Mit HttpWebRequest Post versenden

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von vico255.

    Danke @Mono ich bin drin :thumbsup:

    VB.NET-Quellcode

    1. Imports System.IO, System.Net, System.Text
    2. Public Class Form1
    4. Dim cc As CookieContainer = New CookieContainer
    5. Dim baseUrl As Uri = New Uri("https://www.xxx.de/administrator/")
    6. Dim LoginUrl As Uri = New Uri("https://www.xxx.de/administrator/index.php")
    7. Dim return2 As String = Nothing
    9. Private Sub Button1_Click1(sender As Object, e As EventArgs) Handles Button1.Click
    10. 'Erster GET
    11. Dim request As HttpWebRequest = CType(WebRequest.Create(baseUrl), HttpWebRequest)
    12. cc = New CookieContainer
    13. request.CookieContainer = cc
    14. 'cookies werden hier reingeladen
    15. request.UserAgent = "Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0"
    16. Dim res As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
    17. Dim streamResponse As Stream = res.GetResponseStream
    18. Dim sr As StreamReader = New StreamReader(streamResponse)
    19. Dim html As String = sr.ReadToEnd
    20. return2 = Mid(html, InStr(html, "aW5kZXgucGhw") + 45, 32)
    21. MsgBox("fertig")
    22. End Sub
    24. Private Sub Button2_Click1(sender As Object, e As EventArgs) Handles Button2.Click
    25. Dim request As HttpWebRequest = CType(WebRequest.Create(LoginUrl), HttpWebRequest)
    26. request.AllowAutoRedirect = False
    27. request.Method = "POST"
    28. request.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
    29. request.Referer = "https://www.xxx.de/administrator/"
    30. request.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
    31. request.CookieContainer = cc
    32. request.UserAgent = "Mozilla/5.0 (Windows NT 6.3; WOW64; rv:49.0) Gecko/20100101 Firefox/49.0"
    33. Dim postData As String = ("username=xxx&passwd=xxx&lang=&option=com_login&task=login&return=aW5kZXgucGhw&" & return2 & "=1")
    34. Dim data() As Byte = Encoding.ASCII.GetBytes(postData)
    35. request.ContentLength = data.Length
    37. Dim s As Stream = request.GetRequestStream
    38. s.Write(data, 0, data.Length)
    40. Dim res As HttpWebResponse = CType(request.GetResponse, HttpWebResponse)
    42. request = CType(WebRequest.Create(baseUrl), HttpWebRequest)
    43. request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/53.0.2785.116 " & _
    44. "Safari/537.36"
    45. request.CookieContainer = cc
    46. res = CType(request.GetResponse, HttpWebResponse)
    47. Dim streamResponse As Stream = res.GetResponseStream
    48. Dim sr As StreamReader = New StreamReader(streamResponse)
    49. MsgBox(sr.ReadToEnd)
    50. End Sub


    Kann man da noch was dran verbessern?
    In Arbeit...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „vico255“ ()

Facebook
Telefonspende