Hallo,
ich hab schon sehr viel im Internet gegooglet und auch hier im Forum einige Dinge gefunden, die mir die ersten Schritte vereinfacht haben. Jetzt stehe ich aber auf dem Schlauch und bräuchte eure Hilfe: Ich mächte mich über meine Anwendung bei http://rockz.comanmelden. Dafür habe ich mir folgenden Code geschrieben:
Spoiler anzeigen
Hier noch der Headermittschnitt:
Spoiler anzeigen
Wie bereits oben erwähnt habe ich mich an Codebeispielen aus diesem Forum gehalten, aber dennoch bekomme ich kein Ergebnis. Das Programm reagiert bei einem Button-Klick nicht und stürzt ab. Ich erhalte keine Fehlermeldung, sondern land nur im Visual Studio
Ich würde mich über eine Antwort freuen
ich hab schon sehr viel im Internet gegooglet und auch hier im Forum einige Dinge gefunden, die mir die ersten Schritte vereinfacht haben. Jetzt stehe ich aber auf dem Schlauch und bräuchte eure Hilfe: Ich mächte mich über meine Anwendung bei http://rockz.comanmelden. Dafür habe ich mir folgenden Code geschrieben:
VB.NET-Quellcode
- Dim user = "piii", pwd = "laxasusu" 'Nur ein Testaccount
- Dim Request As HttpWebRequest = CType(WebRequest.Create("http://rockz.com/login"), HttpWebRequest)
- Request.Method = "POST"
- Request.ContentType = "application/x-www-form-urlencoded"
- Request.Headers.Add(HttpRequestHeader.Host, "rockz.com")
- Request.Headers.Add(HttpRequestHeader.UserAgent, "Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7 (.NET CLR 3.5.30729)")
- Request.Headers.Add(HttpRequestHeader.Accept, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
- Request.Headers.Add(HttpRequestHeader.AcceptLanguage, "de-de,de;q=0.8,en-us;q=0.5,en;q=0.3")
- Request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate")
- Request.Headers.Add(HttpRequestHeader.AcceptCharset, "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
- Request.Headers.Add(HttpRequestHeader.KeepAlive, "300")
- Request.Headers.Add(HttpRequestHeader.Connection, "keep-alive")
- Request.Headers.Add(HttpRequestHeader.Referer, "http://rockz.com/")
- Request.Headers.Add(HttpRequestHeader.Cookie, "Cookywerte aus dem Headermitschnit siehe unten")
- Dim Post As String = "do=login&ref=&name=" & user & "&password=" & pwd
- 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, "Meine Profilseite") Then
- MessageBox.Show("Login OK")
- Else
- MessageBox.Show("Login nicht OK")
- End If
Hier noch der Headermittschnitt:
VB.NET-Quellcode
- User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7 (.NET CLR 3.5.30729)
- Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
- Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
- Accept-Encoding: gzip,deflate
- Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
- Keep-Alive: 300
- Connection: keep-alive
- Referer: http://rockz.com/
- Cookie: cookywert
- Content-Type: application/x-www-form-urlencoded
- Content-Length: 41
- do=login&ref=&name=Piii&password=laxasusu
- HTTP/1.1 302 Found
- Transfer-Encoding: chunked
- Content-Type: text/html; charset=utf-8
- Cache-Control: no-cache
- Set-Cookie: cookywert
- Set-Cookie: cookywert
- Set-Cookie: cookywert
- Set-Cookie: cookywert
- Location: /my
- Content-Encoding: gzip
- Vary: Accept-Encoding
- Date: Wed, 17 Feb 2010 13:24:33 GMT
- Server: lighttpd
- ----------------------------------------------------------
- http://rockz.com/my
- GET /my HTTP/1.1
- Host: rockz.com
- User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; de; rv:1.9.1.7) Gecko/20091221 Firefox/3.5.7 (.NET CLR 3.5.30729)
- Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
- Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
- Accept-Encoding: gzip,deflate
- Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
- Keep-Alive: 300
- Connection: keep-alive
- Referer: http://rockz.com/
- Cookie: cookywert
- HTTP/1.1 200 OK
- Transfer-Encoding: chunked
- Content-Type: text/html; charset=utf-8
- Cache-Control: no-cache, no-store
- Pragma: no-cache
- Content-Encoding: gzip
- Vary: Accept-Encoding
- Date: Wed, 17 Feb 2010 13:24:34 GMT
- Server: lighttpd
Wie bereits oben erwähnt habe ich mich an Codebeispielen aus diesem Forum gehalten, aber dennoch bekomme ich kein Ergebnis. Das Programm reagiert bei einem Button-Klick nicht und stürzt ab. Ich erhalte keine Fehlermeldung, sondern land nur im Visual Studio
Ich würde mich über eine Antwort freuen