Hallo,
auf dieser Seite kann man sich Vorhersagen zu Fußballspielen anzeigen lassen. Einfach Heimmannschaft und Auswärtsmannschaft eingeben und tadaa! (Zum Verständnis am besten selbst kurz ausprobieren, dauert wirklich keine 10 Sekunden). Das ganze möchte ich nun in mein Programm einbauen d.h. die Wahrscheinlichkeiten dort anzeigen lassen.
Mit HTTP Header Live hab ich mir dann angesehen was im Hintergrund passiert um zu wissen wie mein Webrequest aussehen muss. Leider funktioniert das nicht (Ich bekomme keine Antwort, wie auf dem screenshot, sondern nur html Quelltext-> screenshot2) Möglich ist es aber, wie man auf dem screenshot sieht. Dort habe ich das Request mit der Firefox Erweiterung gesendet und die Antwort erhalten. Wahrscheinlich ist es nur eine Kleinigkeit aber ich komme nicht drauf... Für Hilfe wäre ich sehr dankbar
Mein Code:
auf dieser Seite kann man sich Vorhersagen zu Fußballspielen anzeigen lassen. Einfach Heimmannschaft und Auswärtsmannschaft eingeben und tadaa! (Zum Verständnis am besten selbst kurz ausprobieren, dauert wirklich keine 10 Sekunden). Das ganze möchte ich nun in mein Programm einbauen d.h. die Wahrscheinlichkeiten dort anzeigen lassen.
Mit HTTP Header Live hab ich mir dann angesehen was im Hintergrund passiert um zu wissen wie mein Webrequest aussehen muss. Leider funktioniert das nicht (Ich bekomme keine Antwort, wie auf dem screenshot, sondern nur html Quelltext-> screenshot2) Möglich ist es aber, wie man auf dem screenshot sieht. Dort habe ich das Request mit der Firefox Erweiterung gesendet und die Antwort erhalten. Wahrscheinlich ist es nur eine Kleinigkeit aber ich komme nicht drauf... Für Hilfe wäre ich sehr dankbar
Mein Code:
VB.NET-Quellcode
- Dim Request As HttpWebRequest = HttpWebRequest.Create("http://www.statarea.com/actions/controller/")
- Request.Method = "POST"
- 'Request.Proxy = myProxy
- Request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
- Request.UserAgent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.87 Safari/537.36"
- 'Request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate")
- Dim obj As String = "{" & Chr(34) & "action" & Chr(34) & ":" & Chr(34) & "doCustomPredict" & Chr(34) & "," & Chr(34) & "hostteamname" & Chr(34) & ":" & Chr(34) & "Werder Bremen (Germany)" & Chr(34) & "," & Chr(34) & "guestteamname" & Chr(34) & ":" & Chr(34) & "VfB Stuttgart (Germany)" & Chr(34) & "," & Chr(34) & "factors" & Chr(34) & ":255}"
- MessageBox.Show(obj)
- Dim Post As String = "object=" & obj
- Dim byteArray() As Byte = Encoding.Default.GetBytes(Post)
- Request.ContentLength = byteArray.Length
- Dim DataStream As Stream = Request.GetRequestStream()
- DataStream.Write(byteArray, 0, byteArray.Length)
- DataStream.Close()
- Dim Response As HttpWebResponse = Request.GetResponse()
- DataStream = Response.GetResponseStream()
- Dim reader As New StreamReader(DataStream)
- Dim ServerResponse As String = reader.ReadToEnd()
- reader.Close()
- DataStream.Close()
- Response.Close()
- TextBox1.Text = ServerResponse
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „super95“ ()