URL übergeben httpwebrequest

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    URL übergeben httpwebrequest

    Hallo liebe User,
    leider konnten mir Leute aus anderen Foren nicht helfen, deshalb frag ich nun bei der Elite. :D

    Also folgenes Problem:
    Ich will mich via Webrequest bei Uploaded.net einloggen und unter import eine Url übergeben.
    Der Login funktioniert auch perfekt, nur irgendwie habe ich ein Problem beim übergeben der URL.

    Mein Code:

    VB.NET-Quellcode

    1. With New Http
    2. Dim html As String = String.Empty
    3. html = .GetResponse("http://uploaded.net/io/login", "id=id&pw=pw")
    4. html = .GetResponse("http://uploaded.net/me")
    5. If html.Contains("logout") Then
    6. html = .GetResponse("http://uploaded.net/io/import", "urls=http%3A%2F%2Fuploaded.net%2Ffile%2F3bi8aykb")
    7. Else
    8. MsgBox("grgJO")
    9. End If
    10. End With


    der header für den import:

    HTML-Quellcode

    1. http://uploaded.net/io/import
    3. POST /io/import HTTP/1.1
    4. Host: uploaded.net
    5. User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:33.0) Gecko/20100101 Firefox/33.0
    6. Accept: text/javascript, text/html, application/xml, text/xml, */*
    7. Accept-Language: de,en-US;q=0.7,en;q=0.3
    8. Accept-Encoding: gzip, deflate
    9. X-Requested-With: XMLHttpRequest
    10. X-Prototype-Version: 1.6.1
    11. Content-Type: application/x-www-form-urlencoded; charset=UTF-8
    12. Referer: http://uploaded.net/upload
    13. Content-Length: 48
    14. Cookie: PHPSESSID=0ed844bbb22c616ef24c644d98ac479c; __utma=91125214.1768282295.1426603447.1426603447.1426603447.1; __utmb=91125214.23.10.1426603447; __utmc=91125214; __utmz=91125214.1426603447.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); login=%26id%3D12769343%26pw%3Dd46eff13b9390353b3dcf0ef32b214e422aee934%26cks%3D4fdd0fb78d98; auth=1276934306bcd19fc5c0704cd04d776fdc5d8952; CSUUID_EC=fe2ace36-339b-ddf8-d928-901ea91fbbb2; ulmanagemax=100; ref=ref_user=2980519&date=1426604826; ulDlAd1=seen; __utmt=1; __ctxpop=0
    15. Connection: keep-alive
    16. Pragma: no-cache
    17. Cache-Control: no-cache
    18. urls=http%3A%2F%2Fuploaded.net%2Ffile%2F3bi8aykb
    19. HTTP/1.1 200 OK
    20. Server: nginx
    21. Date: Tue, 17 Mar 2015 15:07:39 GMT
    22. Content-Type: application/javascript; charset=ISO-8859-1
    23. Transfer-Encoding: chunked
    24. Connection: keep-alive
    25. Expires: Thu, 19 Nov 1981 08:52:00 GMT
    26. Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
    27. Pragma: no-cache
    28. Vary: Accept-Encoding
    29. Content-Encoding: gzip


    und hier meine http klasse:

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Imports System.IO
    5. Imports System.Net
    6. Imports System.Text
    8. Public Class Http
    9. Dim cookieCon As New CookieContainer
    10. Dim request As HttpWebRequest
    11. Dim response As HttpWebResponse
    13. Public Function GetResponse(ByVal url As String) As String
    14. request = CType(HttpWebRequest.Create(url), HttpWebRequest)
    15. request.CookieContainer = cookieCon
    16. response = CType(request.GetResponse(), HttpWebResponse)
    18. Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    19. End Function
    21. Public Function GetResponse(ByVal url As String, ByVal post As String) As String
    22. request = CType(HttpWebRequest.Create(url), HttpWebRequest)
    23. request.Method = "POST"
    24. request.CookieContainer = cookieCon
    25. request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:8.0) Gecko/20100101 Firefox/8.0"
    26. request.ContentType = "application/x-www-form-urlencoded"
    28. Dim byteArr() As Byte = Encoding.Default.GetBytes(post)
    29. request.ContentLength = byteArr.Length
    31. Dim dataStream As Stream = request.GetRequestStream()
    32. dataStream.Write(byteArr, 0, byteArr.Length)
    34. response = CType(request.GetResponse(), HttpWebResponse)
    36. Return New StreamReader(response.GetResponseStream()).ReadToEnd()
    37. End Function
    38. End Class


    Ich hoffe einer von euch kann mir helfen ;)

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