Element ansprechen im Webbrowser

  • Allgemein

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Sinlyu.

    Hallo OpferKlopfer,

    Warum Webbrowser? Ich würde dir empfehlen es mit httpwebrequest zu machen. Du sendest ne Post Request mit den Strings die du benötigst und empfängst das Ergebniss wieder.

    Das könnte wie folgt aussehn.

    HTTPClass.vb

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Net
    4. Imports System.Text.Encoding
    5. Imports System.Text.RegularExpressions
    6. Imports System.Text
    7. Imports System.IO
    8. Public Class HTTPClass
    9. Public Shared tmpcookies As New CookieContainer
    10. Public Shadows Enum Method
    11. Post = 0
    12. [Get] = 1
    13. End Enum
    15. Public Shared Function CreateRequest(ByVal Meth As Method, ByVal URI As Uri, Optional ByVal PostData As String = "", Optional ByVal Reff As String = "") As String
    17. Select Case Meth
    18. Case Method.Post
    19. Try
    20. Dim req As HttpWebRequest = CType(WebRequest.Create(URI), HttpWebRequest)
    21. req.Method = "POST"
    22. req.ContentType = "application/x-www-form-urlencoded"
    23. req.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:15.0) Gecko/20100101 Firefox/15.0.1"
    24. req.CookieContainer = tmpcookies
    25. req.Referer = Reff
    26. req.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
    28. Dim pdata As String = PostData
    29. Dim byteArray() As Byte = UTF8.GetBytes(pdata)
    30. req.ContentLength = byteArray.Length
    31. Dim DataStream As Stream = req.GetRequestStream
    32. DataStream.Write(byteArray, 0, byteArray.Length)
    33. DataStream.Close()
    35. Dim Response As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
    36. Response.Cookies = req.CookieContainer.GetCookies(req.RequestUri)
    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()
    46. Return ServerResponse
    47. Catch ex As Exception
    49. Return ""
    50. End Try
    51. Case Method.Get
    52. Try
    53. Dim req As HttpWebRequest = CType(WebRequest.Create(URI), HttpWebRequest)
    54. req.Method = "GET"
    55. req.ContentType = "application/x-www-form-urlencoded"
    56. req.UserAgent = "Mozilla/5.0 (Windows NT 5.1; rv:15.0) Gecko/20100101 Firefox/15.0.1"
    57. req.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
    59. req.CookieContainer = tmpcookies
    60. req.Referer = Reff
    61. Dim Response As HttpWebResponse = CType(req.GetResponse(), HttpWebResponse)
    63. Response.Cookies = req.CookieContainer.GetCookies(req.RequestUri)
    64. Dim reader As New StreamReader(Response.GetResponseStream)
    65. Dim ServerResponse As String = reader.ReadToEnd()
    66. reader.Close()
    68. Response.Close()
    72. Return ServerResponse
    73. Catch ex As Exception
    75. Return ""
    76. End Try
    78. End Select
    79. Return ""
    80. End Function
    81. End Class



    Aufruf:

    VB.NET-Quellcode

    1. Dim Response As String = HTTPClass.CreateRequest(Method.POST,new uri("http://www.domain.com/seite.php","postdata=aaa&abc=abcdefg")



    Lg.

    Sinlyu.

Facebook
Telefonspende