Cookie in URL einfügen?

  • VB.NET
  • .NET (FX) 4.5–4.8

    Cookie in URL einfügen?

    Guten Tag allerseits!
    Ich arbeite gerade an einem Programm, mit dem ich mich über POST in eine Seite einloggen kann. Das Problem ist, dass im post ("methodToCall=submit&CSId=1091N47Sc28f346f4b9ce7807341bafeddd214597b532c88&username=USERNAME&password=PASSWORT") ein cookie zu finden ist (User session). Es ist momentan 1091N47Sc28f346f4b9ce7807341bafeddd214597b532c88, ändert sich allerdings alle 5 minuten.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Dim postData As String = "methodToCall=submit&CSId=1091N47Sc28f346f4b9ce7807341bafeddd214597b532c88&username=USERNAME&password=PASSWORT"
    4. Dim tempCookies As New CookieContainer
    5. Dim encoding As New UTF8Encoding
    6. Dim byteData As Byte() = encoding.GetBytes(postData)
    7. Dim logincookie As CookieContainer
    8. Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://opac.stadtbibliothek-bremen.de/webOPACClient/login.do"), HttpWebRequest)
    9. postReq.Method = "POST"
    10. postReq.KeepAlive = True
    11. postReq.CookieContainer = tempCookies
    12. postReq.ContentType = "application/x-www-form-urlencoded"
    13. postReq.Referer = "https://opac.stadtbibliothek-bremen.de/webOPACClient/login.do"
    14. postReq.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:40.0) Gecko/20100101 Firefox/40.1"
    15. postReq.ContentLength = byteData.Length
    16. Dim postreqstream As Stream = postReq.GetRequestStream()
    17. postreqstream.Write(byteData, 0, byteData.Length)
    18. postreqstream.Close()
    19. Dim postresponse As HttpWebResponse
    20. postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
    21. tempCookies.Add(postresponse.Cookies)
    22. logincookie = tempCookies
    23. Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
    24. Dim thepage As String = postreqreader.ReadToEnd
    25. If thepage.Contains("<a href=""/webOPACClient/login.do?methodToCall=logout"" title=""Abmelden"">Abmelden</a>") Then
    26. MsgBox("Anmelden erfolgreich")
    27. End If



    Wie kann ich das umsetzen?

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()