Dim request As HttpWebRequest = CType(WebRequest.Create("https://store.steampowered.com/login/"), HttpWebRequest)
request.Method = "POST"
request.CookieContainer = CookieContainer
request.ContentType = "text/html; charset=UTF-8"
Dim POST As String = "redir=&username=" & txtUser.Text & "&password=" & txtPass.Text
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()
response.Close()
datastream.Close()
If InStr(serverresponse, "Account von") Then
MessageBox.Show("Login ok!")
Else
MessageBox.Show("Login nicht ok!")
End If