Login mit HTTPRequest

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Gutelaunetyp.

    Login mit HTTPRequest

    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

    VB.NET-Quellcode

    1. Dim user = "piii", pwd = "laxasusu" 'Nur ein Testaccount
    3. Dim Request As HttpWebRequest = CType(WebRequest.Create("http://rockz.com/login"), HttpWebRequest)
    5. Request.Method = "POST"
    6. Request.ContentType = "application/x-www-form-urlencoded"
    8. Request.Headers.Add(HttpRequestHeader.Host, "rockz.com")
    9. 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)")
    10. Request.Headers.Add(HttpRequestHeader.Accept, "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8")
    11. Request.Headers.Add(HttpRequestHeader.AcceptLanguage, "de-de,de;q=0.8,en-us;q=0.5,en;q=0.3")
    12. Request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate")
    13. Request.Headers.Add(HttpRequestHeader.AcceptCharset, "ISO-8859-1,utf-8;q=0.7,*;q=0.7")
    14. Request.Headers.Add(HttpRequestHeader.KeepAlive, "300")
    15. Request.Headers.Add(HttpRequestHeader.Connection, "keep-alive")
    16. Request.Headers.Add(HttpRequestHeader.Referer, "http://rockz.com/")
    17. Request.Headers.Add(HttpRequestHeader.Cookie, "Cookywerte aus dem Headermitschnit siehe unten")
    19. Dim Post As String = "do=login&ref=&name=" & user & "&password=" & pwd
    20. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
    22. Request.ContentLength = byteArray.Length
    24. Dim DataStream As Stream = Request.GetRequestStream()
    25. DataStream.Write(byteArray, 0, byteArray.Length)
    26. DataStream.Close()
    28. Dim Response As HttpWebResponse = Request.GetResponse()
    29. DataStream = Response.GetResponseStream()
    30. Dim reader As New StreamReader(DataStream)
    31. Dim ServerResponse As String = reader.ReadToEnd()
    32. reader.Close()
    33. DataStream.Close()
    34. Response.Close()
    36. If InStr(ServerResponse, "Meine Profilseite") Then
    37. MessageBox.Show("Login OK")
    38. Else
    39. MessageBox.Show("Login nicht OK")
    40. End If


    Hier noch der Headermittschnitt:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. 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)
    2. Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    3. Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
    4. Accept-Encoding: gzip,deflate
    5. Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
    6. Keep-Alive: 300
    7. Connection: keep-alive
    8. Referer: http://rockz.com/
    9. Cookie: cookywert
    10. Content-Type: application/x-www-form-urlencoded
    11. Content-Length: 41
    12. do=login&ref=&name=Piii&password=laxasusu
    15. HTTP/1.1 302 Found
    16. Transfer-Encoding: chunked
    17. Content-Type: text/html; charset=utf-8
    18. Cache-Control: no-cache
    19. Set-Cookie: cookywert
    20. Set-Cookie: cookywert
    21. Set-Cookie: cookywert
    22. Set-Cookie: cookywert
    23. Location: /my
    24. Content-Encoding: gzip
    25. Vary: Accept-Encoding
    26. Date: Wed, 17 Feb 2010 13:24:33 GMT
    27. Server: lighttpd
    28. ----------------------------------------------------------
    29. http://rockz.com/my
    31. GET /my HTTP/1.1
    32. Host: rockz.com
    33. 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)
    34. Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    35. Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
    36. Accept-Encoding: gzip,deflate
    37. Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
    38. Keep-Alive: 300
    39. Connection: keep-alive
    40. Referer: http://rockz.com/
    41. Cookie: cookywert
    43. HTTP/1.1 200 OK
    44. Transfer-Encoding: chunked
    45. Content-Type: text/html; charset=utf-8
    46. Cache-Control: no-cache, no-store
    47. Pragma: no-cache
    48. Content-Encoding: gzip
    49. Vary: Accept-Encoding
    50. Date: Wed, 17 Feb 2010 13:24:34 GMT
    51. 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 :)

    An welcher Stelle stürzt es denn genau ab?
    Habs mal eben selbst ausprobiert: Es liegt daran, dass man die Header so nicht setzen kann. Ich weiß gerade nicht, wie man es machen muss, aber da hilft sicher das Forum oder Google weiter. Und dann musst du noch ein "ServicePointManager.Expect100Continue = False" einfügen, sonst liefert der Server den Fehler 417.
    Allerdings scheint der Login noch nicht zu gehen, das immer "Login nicht OK" angezeigt wird. Da müsstest du dann nochmal schauen.

    P.S.: Komischerweise habe ich im Visual Studio gleich den Fehler angezeigt bekommen ;)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Ultimator“ ()

    Hallo,



    bekomme auch immer eine Fehlermeldung, dass keine Cookies akzeptiert werden.


    VB.NET-Quellcode

    1. Dim Post As String = "ws_user=" & TextBox1.Text & "&pwd=" & TextBox2.Text & "&login.x=0" & "&login.y=0"
    2. leseite.Method = "POST"
    3. leseite.ContentType = "application/x-www-form-urlencoded"
    4. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
    5. leseite.ContentLength = byteArray.Length
    6. Dim DataStream As Stream = leseite.GetRequestStream()
    7. DataStream.Write(byteArray, 0, byteArray.Length)
    8. DataStream.Close()
    9. Dim Response As HttpWebResponse = leseite.GetResponse()
    10. DataStream = Response.GetResponseStream()
    11. Dim reader As New StreamReader(DataStream)
    12. Dim ServerResponse As String = reader.ReadToEnd()
    13. reader.Close()
    14. DataStream.Close()
    15. Response.Close()
    18. MsgBox(ServerResponse)
    19. If InStr(ServerResponse, "Erfolgreich angemeldet") ThenMessageBox.Show("Login OK")
    20. ElseMessageBox.Show("Login nicht OK")
    21. End If


    Hab es auch schon mit:

    VB.NET-Quellcode

    1. leseite.Headers.Add(HttpRequestHeader.Cookie, "ws_session")
    2. cookies2.Add(New Uri("http://www.cod4-gamers.de/checklogin.php"), New Cookie("ws_session", 1234))

    probiert, aber ohne Erfolg.

    Wäre super, wenn jemand ne Lösung wüsste.

    Habe versucht dies bei der Seite "http://www.schuelervz.net" an zu wenden. Allerdings bekomme ich immer die Programmmeldung: "Login nicht OK".
    Kann mir einer vieleicht bei der Codeübertragung auf die besagte Seite helfen?


    LG :thumbsup:

    VB.NET-Quellcode

    1. Imports System.IO, System.Net, System.Text
    3. Public Class Form1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Dim User = "MEINE EMAIL", Pwd = "MEIN PW"
    7. Dim Request As HttpWebRequest = CType(WebRequest.Create("https://secure.schuelervz.net/Login"), HttpWebRequest)
    8. Request.Method = "POST"
    9. Request.ContentType = "application/x-www-form-urlencoded"
    10. Dim Post As String = "login_email=" & User & "&login_password=" & Pwd
    11. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
    12. Request.ContentLength = byteArray.Length
    13. Dim DataStream As Stream = Request.GetRequestStream()
    14. DataStream.Write(byteArray, 0, byteArray.Length)
    15. DataStream.Close()
    17. Dim Response As HttpWebResponse = Request.GetResponse()
    18. DataStream = Response.GetResponseStream()
    19. Dim reader As New StreamReader(DataStream)
    20. Dim ServerResponse As String = reader.ReadToEnd()
    21. reader.Close()
    22. DataStream.Close()
    23. Response.Close()
    25. If InStr(ServerResponse, "Sie wurden erfolgreich angemeldet.") Then
    26. MessageBox.Show("Login OK")
    27. Else
    28. MessageBox.Show("Login nicht OK")
    29. End If
    31. End Sub
    32. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „DrVisualBasic“ ()

Facebook
Telefonspende