Webseiten Login mit HTTPWebRequest

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von bluedra.

    Webseiten Login mit HTTPWebRequest

    Hallo,

    Ich versuche vergeblich, mich bei dem Browsergame "Seafight" mittels HTTPWebRequest einzuloggen.
    Ich bekomme den Fehler 403 (Unzulässig), weiß aber nicht warum.
    Der Fehler muss in der Post-Daten Übergabe liegen, denn wenn ich den ermittelten Link in Firefox öffne, dann erhalte ich zwar nicht das gewünschte Ergebnis, aber immerhin keine 403-Meldung.

    Mein Code bisher:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Text
    3. Imports System.Net
    5. Module Module1
    6. Dim cookies As CookieContainer
    7. Sub Main()
    8. Try
    9. Dim background As ConsoleColor = ConsoleColor.Black
    10. Dim foreground As ConsoleColor = ConsoleColor.Green
    11. Console.BackgroundColor = background
    12. Console.ForegroundColor = foreground
    13. Dim user As String = "xxxx", server As String = "de1", pass As String = "xxxxxxxxx"
    14. Dim loginToken As String = Request("http://" & server & ".seafight.bigpoint.com").ToString.Replace("cation/Bigpoint?authUser=14&token=", "ä").Split("ä")(1).Replace(""">", "ä").Split("ä")(0)
    15. Console.WriteLine("Logintoken received: " & loginToken)
    16. Console.WriteLine("Try now to login...")
    17. Dim logintry As String = Request("https://auth3.bpsecure.com/Sas/Authentication/Bigpoint?authUser=14&token=" & loginToken, "loginname=" & user & "&password=" & pass, "http://" & server & ".seafight.bigpoint.com").ToString
    18. Console.WriteLine("Answer:" & vbNewLine & logintry) 'Hier wird der Fehler ausgegeben
    19. Console.ReadLine()
    20. Catch ex As Exception
    21. Console.WriteLine("Error: " & ErrorToString())
    22. Console.ReadLine()
    23. End Try
    24. End Sub
    25. Public Function Request(ByVal address As String, Optional Post As String = "", Optional ref As String = "")
    26. Try
    27. Dim htRequest As HttpWebRequest = CType(WebRequest.Create(address), HttpWebRequest)
    28. htRequest.CookieContainer = cookies
    29. htRequest.Method = "POST"
    30. htRequest.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:14.0) Gecko/20100101 Firefox/14.0.1"
    31. htRequest.Accept = "text/htmlapplication/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
    32. htRequest.Referer = ref
    33. Dim byteArray() As Byte = Encoding.UTF8.GetBytes(Post)
    34. htRequest.ContentLength = byteArray.Length
    35. Dim DataStream As Stream = htRequest.GetRequestStream()
    36. DataStream.Write(byteArray, 0, byteArray.Length)
    37. DataStream.Close()
    38. Dim Response As HttpWebResponse = htRequest.GetResponse() 'Hier entsteht er (WebException)
    39. DataStream = Response.GetResponseStream()
    40. Dim reader As New StreamReader(DataStream)
    41. Dim ServerResponse As String = reader.ReadToEnd()
    42. reader.Close()
    43. DataStream.Close()
    44. Response.Close()
    45. Return ServerResponse
    46. Catch ex As Exception
    47. Return ex
    48. End Try
    49. End Function
    51. End Module


    Ich hoffe, dass mir hier jemand helfen kann..
    Danke im vorraus


    bluedra

    P.S: Es soll kein Bot werden. Lediglich ein Tool, dass mir in gewissen Abständen Informationen zum Status meines Accounts liefert, damit ich mich nicht jedesmal dafür einloggen muss. Diese Funktion ist aber noch nicht implementiert, da ich bereits beim Einloggen scheitere

    Funktioniert aber trotzdem nicht.

    Mit cookies.Add() kann ich neue Cookies einfügen, richtig?
    Denn wie's aussieht bin ich nicht weit genug, um das Problem zu beheben.
    Wenn ich den Login-Cookie mit Firefox hole, müsste ich theoretisch direkt auf die Seite navigieren können, die nach dem Login kommt. Richtig?

Facebook
Telefonspende