![[vb]HTTP Request Problem](https://www.elitepvpers.com/forum/iconimages/net-languages/vb-http-request-problem_ltr.gif){kind=small}
Es gibt mir immer zurück das der Login fehlgeschlagen ist...
Hier der Code
PHP Code:
Imports System.IO, System.Net, System.Text, System.Security.Cryptography
Module login
Public Function logintovb(ByVal user As String, ByVal pw As String)
Dim loginsucces As Boolean
Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.|vBulletinLink|/login.php?do=login"), HttpWebRequest)
Request.Method = "POST"
Request.ContentType = "application/x-www-form-urlencoded"
Dim Post As String = "vb_login_username=" & user & "&vb_login_password=&s=&securitytoken=guest&do=login&vb_login_md5password=" & StringToMD5(pw) & "&vb_login_md5password_utf=" & StringToMD5(pw)
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
loginsucces = True
Else
loginsucces = False
End If
Return loginsucces
End Function
Private Function StringToMD5(ByVal Content As String) As String
Dim M5 As New MD5CryptoServiceProvider
Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
ByteString = M5.ComputeHash(ByteString)
Dim FinalString As String = Nothing
For Each bt As Byte In ByteString
FinalString &= bt.ToString("x2")
Next
Return FinalString
End Function
End Module
Was könnte ich falsch gemacht haben? ;/
Button Code:
PHP Code:
If logintovb(textbox1.text, textbox2.text) = True Then
Form2.Show()
Else
MsgBox("Falscher Benutzername oder Passwort")
End If
