Hallo. Ich habe ein kleines Problem mit HTTP Request bei einem vBulletin board.
Es gibt mir immer zurück das der Login fehlgeschlagen ist...
Hier der Code
(Hab den Link mal entfernt)
Was könnte ich falsch gemacht haben? ;/
Button Code:
Schonmal danke ^^
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
