Website durchsuchen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Croasider.

    Website durchsuchen

    Hallo @ all

    Ich logge mich mit diesem Code auf dieser Website ein:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim Post As String = "user=" & UsernameTextBox.Text & "&pass=" & PasswordTextBox.Text & "&login=Login"
    3. Dim R As HttpWebRequest = HttpWebRequest.Create("http://usdb.animux.de/index.php?&link=login")
    4. R.Method = "POST"
    5. R.Host = "usdb.animux.de"
    6. R.CookieContainer = My.Settings.Cookie
    7. R.ContentType = "application/x-www-form-urlencoded"
    8. R.ContentLength = Post.Length
    10. Dim Writer As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII)
    11. Writer.Write(Post)
    12. Writer.Close()
    14. Dim Reader As New StreamReader(R.GetResponse.GetResponseStream())
    15. Dim Response As String = Reader.ReadToEnd
    16. Reader.Close()
    18. If Response.Contains("Logout") Then
    19. MessageBox.Show("Erfolgreich eingeloggt!")
    20. Form1.Show()
    21. Else
    22. MessageBox.Show("Login fehlgeschlagen!")
    23. End If


    Jetzt möchte ich diese Website auch durchsuchen, was aber nur geht wenn ich eingeloggt bin. Also wie gesagt, der Login klappt wunderbar, aber wenn ich meinen Code zum durchsuchen der Website aufrufe klappt es nicht und im Quelltext steht ich wäre nicht eingeloggt. Das kann ja eigentlich nur am Cookie liegen oder? Mache ich was mit dem falsch? Mein Code zum Website durchsuchen:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim R As HttpWebRequest = HttpWebRequest.Create("http://usdb.animux.de/index.php?&link=browse")
    2. Dim Post As String = "interpret=Unheilig&title=&edition=&language=&order=id&ud=asc&limit=30"
    4. R.Method = "POST"
    5. R.CookieContainer = My.Settings.Cookie
    6. R.Host = "usdb.animux.de"
    7. R.ContentType = "application/x-www-form-urlencoded"
    8. R.ContentLength = Post.Length
    10. Dim Writer As New StreamWriter(R.GetRequestStream(), System.Text.Encoding.ASCII)
    11. Writer.Write(Post)
    12. Writer.Close()
    14. Dim Reader As New StreamReader(R.GetResponse.GetResponseStream())
    15. Dim Response As String = Reader.ReadToEnd
    16. Reader.Close()
    18. Return Response


    Die ganzen Infos habe ich von Firefox Addon HTTP Live Headers, sollte soweit alles richtig sein:

    Spoiler anzeigen

    Quellcode

    1. http://usdb.animux.de/?link=list
    3. POST /?link=list HTTP/1.1
    4. Host: usdb.animux.de
    5. User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.13) Gecko/20101203 Firefox/3.6.13
    6. Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
    7. Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
    8. Accept-Encoding: gzip,deflate
    9. Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
    10. Keep-Alive: 115
    11. Connection: keep-alive
    12. Referer: http://usdb.animux.de/?&link=browse
    13. Cookie: PHPSESSID=meaemmcp5g1rq674sdcs3ls736; __utma=7495734.177714416.1302191208.1302195185.1302271750.3; __utmz=7495734.1302271750.3.2.utmcsr=google|utmccn=(organic)|utmcmd=organic|utmctr=usdb; __utmb=7495734.4.10.1302271750; __utmc=7495734
    14. Content-Type: application/x-www-form-urlencoded
    15. Content-Length: 69
    16. interpret=Unheilig&title=&edition=&language=&order=id&ud=asc&limit=30
    17. HTTP/1.1 200 OK
    18. Date: Fri, 08 Apr 2011 14:09:44 GMT
    19. Server: Apache
    20. Expires: Thu, 19 Nov 1981 08:52:00 GMT
    21. Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
    22. Pragma: no-cache
    23. Keep-Alive: timeout=15, max=100
    24. Connection: Keep-Alive
    25. Transfer-Encoding: chunked
    26. Content-Type: text/html; charset=utf-8

    Hoffe ihr könnt mir helfen. Bin für jede Hilfe dankbar.

    Viele Grüße
    Croasider

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

Facebook
Telefonspende