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

[revan12]

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

Public Class Form1
    Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click
        WebBrowser1.Visible = True
                Dim mail As String = tb1.Text
        Dim password As String = tb2.Text
        Dim target As String = "_self"
        Dim header As String = "Content-Type: application/x-www-form-urlencoded"
        Dim sPostData As String = "mail=*******" & mail & "&password=*******" & password
        webbrowser1.Navigate("https://www.battlefieldheroes.com/user/login", target, System.Text.Encoding.ASCII.GetBytes(sPostData), header)
    End Sub
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

[Escador]

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

Aber was passiert wenn du

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

nehmen würdest?

Achso, leider ist ja immoment die Page Offline

[revan12]

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

[krusty]

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"

[Sirect]

        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.

[revan12]

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