[VB.NET]Post Daten an PHP script übergeben

Hi leute ich wolte einen Battlefield heroes Starter schreiben also einfach die login daten an die Webseite übergeben und dann die "Play Now!" Seite aufrufen .

leider stellte sich das als schwieriger heraus als gedacht

Code:

---

1. Public Class Form1
2.     Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
3.         WebBrowser1.Visible = True
4.                 Dim mail As String = tb1.Text
5.         Dim password As String = tb2.Text
6.         Dim target As String = "_self"
7.         Dim header As String = "Content-Type: application/x-www-form-urlencoded"
8.         Dim sPostData As String = "mail=*******" & mail & "&password=*******" & password
9.         webbrowser1.Navigate("https://www.battlefieldheroes.com/user/login", target, System.Text.Encoding.ASCII.GetBytes(sPostData), header)
10.     End Sub
11. End Class

---

das ist bis jetz dabei heraus gekommen daten werden gesendet aber leider nicht die richtigen wäre nett wenn ihr mir helfen könntet

mfg revan12

Mh hab leider nicht viel Ahnung von VB.Net und in solchen sachen.

Aber was passiert wenn du

Zitat:

---

Dim sPostData As String = "mail=" & mail & "&password=" & password

---

nehmen würdest?

Achso, leider ist ja immoment die Page Offline

so war das ja ursprünglich aber so krieg ich den inhalt der textboxen nicht übertragen

von the papst gibts nen icq uni regger, schau dir den enfach mal an, ist eig ganz einfach, muss die namen der textboxen und des buttons herrausfinden, einfach rechtsklick und "quellcode anzeigen"

Code:

---


        Dim webRequest As Net.HttpWebRequest = Net.WebRequest.Create("http://free-hack.com/login.php?do=login")
        webRequest.ContentType = "application/x-www-form-urlencoded"
        webRequest.Method = "POST"
        Dim bytes As Byte() = Encoding.ASCII.GetBytes("CONTENT")
        Dim os As Stream = Nothing
        webRequest.ContentLength = bytes.Length
        os = webRequest.GetRequestStream()
        os.Write(bytes, 0, bytes.Length)
        Dim webResponse As Net.HttpWebResponse = webRequest.GetResponse()
        Dim sr As New StreamReader(webResponse.GetResponseStream())
        RichTextBox1.Text = (sr.ReadToEnd().Trim())

---

Da. :D

hat sich schon erledigt hab das ganze jetz über nen webbrowser erledigt hätt ich so oder so machen müssen um da spiel starten zu könen
aber danke für die hilfe
mfg
revan12