Hallo VB-Paradise Community,
und zwar würde ich mich gerne via WebRequests auf einer Seite einloggen und mit einem 2. Request auf der Unterseite einen Wert via Regex abrufen, allerdings sehe ich in der Source von beiden Requests das ich nicht eingeloggt bin.
Bei unzähligen anderen Seiten funktioniert es jedoch auf diese Weise und ich habe keine Ansatz woran es in diesem Fall liegen könnte.
###
Ich möchte mich auf tubeload.to einloggen und dann auf tubeload.to/manager die Hitszahl aus folgendem String auslesen: "0 Hits @ 0 Files" - Also im Endeffekt möchte ich die 0
Login: vbparadise
Passwort: vbparadise
Mit folgendem Code versuche ich das Ganze durchzuführen: (Mir ist klar das der Reguläre Ausdruck nicht zutrifft Den passe ich an sobald der Login einwandfrei klappt.
Ich höffe ihr könnt mir weiterhelfen Vielen Dank im voraus!
MfG,
mewcrazy
und zwar würde ich mich gerne via WebRequests auf einer Seite einloggen und mit einem 2. Request auf der Unterseite einen Wert via Regex abrufen, allerdings sehe ich in der Source von beiden Requests das ich nicht eingeloggt bin.
Bei unzähligen anderen Seiten funktioniert es jedoch auf diese Weise und ich habe keine Ansatz woran es in diesem Fall liegen könnte.
###
Ich möchte mich auf tubeload.to einloggen und dann auf tubeload.to/manager die Hitszahl aus folgendem String auslesen: "0 Hits @ 0 Files" - Also im Endeffekt möchte ich die 0
Login: vbparadise
Passwort: vbparadise
Mit folgendem Code versuche ich das Ganze durchzuführen: (Mir ist klar das der Reguläre Ausdruck nicht zutrifft Den passe ich an sobald der Login einwandfrei klappt.
VB.NET-Quellcode
- Dim login_tubeload As String = Req("http://www.tubeload.to/login", "sUsername=vbparadise&sPassword=vbparadise&login_submit=", "POST", "tubeload.to")
- Dim source_tubeload As String = Req("http://www.tubeload.to/manager", "", "POST", "tubeload.to")
- Dim guthaben_tubeload As String = get_tubeloadmoney(source_tubeload)
- lbl_tubeloadmoney.Text = guthaben_tubeload
- Private Function get_tubeloadmoney(ByVal c As String) As String
- Dim guthaben As String = ""
- Dim rx As New Regex("((.*?))")
- Dim matches As MatchCollection = rx.Matches(c)
- If matches.Count <> 0 Then
- For Each Match As Match In matches
- guthaben = Match.Groups(5).Value
- Next
- Else
- guthaben = "n/a"
- End If
- Return guthaben
- End Function
- Private Function Req(ByVal Site As String, ByVal P As String, ByVal Method As String, ByVal Host As String) As String
- Dim CookieCount As Double = 0
- Dim R As HttpWebRequest = HttpWebRequest.Create(Site)
- R.Method = Method
- R.ServicePoint.Expect100Continue = False
- R.CookieContainer = Cookies
- R.Host = Host
- R.MaximumAutomaticRedirections = 20
- R.AllowAutoRedirect = False
- R.Referer = ""
- R.Headers("useragent") = "Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8"
- R.ContentType = "application/x-www-form-urlencoded"
- Dim Post As String = P
- R.ContentLength = Post.Length
- Dim writer As New IO.StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII)
- writer.Write(Post)
- writer.Close()
- Dim reader As New IO.StreamReader(R.GetResponse.GetResponseStream())
- Dim Response As String = reader.ReadToEnd
- reader.Close()
- Return Response
- End Function
Ich höffe ihr könnt mir weiterhelfen Vielen Dank im voraus!
MfG,
mewcrazy