Hm check das nonet so ganze aber bissi funzt ja schonma *hust*
Also mein Code
Code:
Imports System.IO, System.Net, System.Text
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim User = TextBox1.Text, Pwd = TextBox2.Text
Dim Request As HttpWebRequest = CType(WebRequest.Create("https://store.steampowered.com/login/"), HttpWebRequest)
'Dim Request As HttpWebRequest = CType(WebRequest.Create("https://store.steampowered.com/login/"), HttpWebRequest)
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Dim Post As String = "email=" & User & "&pass=" & Pwd & "&step=1&submit=&as_fid=1"
Dim byteArray() As Byte = Encoding.UTF8.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()
If InStr(ServerResponse, "Thank you for logging in") Then
MessageBox.Show("Erfolgreich eingeloggt")
Else
MessageBox.Show("Nicht erfolgreich!")
End If
End Sub
End Class
Dennoch bekomme ich IMMER auch wenn die Login Daten richtig oder falsch sind die Msg Nicht Erfolgreich..
Hm was machen?