Nabend,
Ich hab mich hier im Forum ein wenig über Cookies & Webseiten einlogen informiert.
Ich kriegs irgendwie nicht hin. Ich scheiter an den Cookies.
Der Benutzernamen & PW wird ja bereits übergeben, aber es kommt immer das falsche Ergebnis raus
Sprich, ich werde bei meiner zweiten Anfrage auf die Website nicht als Eingelogt angegeben und meine letzte If Abfrage gibt mir immer ein False zurück.
Vl. kann mir jemand hierbei helfen?
Habt dank
MfG Prosoft
Ich hab mich hier im Forum ein wenig über Cookies & Webseiten einlogen informiert.
Ich kriegs irgendwie nicht hin. Ich scheiter an den Cookies.
Der Benutzernamen & PW wird ja bereits übergeben, aber es kommt immer das falsche Ergebnis raus
Sprich, ich werde bei meiner zweiten Anfrage auf die Website nicht als Eingelogt angegeben und meine letzte If Abfrage gibt mir immer ein False zurück.
Vl. kann mir jemand hierbei helfen?
VB.NET-Quellcode
- Dim username, password As String
- username = "UserMustermann"
- password = "MusterPW"
- 'Cookie Container erstellen um bei der nächsten Anfrage wieder eingelogt zu sein
- Dim Request As HttpWebRequest = CType(WebRequest.Create("http://www.relink.us/index.php"), HttpWebRequest)
- With Request
- .Method = "POST"
- .ContentType = "application/x-www-form-urlencoded"
- End With
- 'Benutzername und Passwort wird abgeschickt
- Dim Post As String = "username=" & username & "&password=" & password & "=Login"
- 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()
- 'Response vom Server erhalten - Eingelogt oder nicht
- 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, "Umfrage") Then
- MessageBox.Show("Login erfolgreich")
- Else
- MessageBox.Show("Login nicht erfolgreich")
- End If
Habt dank
MfG Prosoft