Servus :)
ich hab da mal ein dringliches Problem. Ich versuche schon die ganze Zeit einen Webbrowser mit eigenem Useragent zum laufen zu bringen.
Soweit ich weiß, ist die einzige Möglichkeit ein httpWebRequest zu verwenden. D.h. erstmal die Seite herunterladen und dann mit dem Webbrowser-Control
parsen. Hier bin ich schon gescheitert... Ein anderes Problem wäre ,wenn die Webseite dann tatsächlich mal dargestellt wird, dass wenn man dann auf einen
Link klicken würde, der Link dann wieder automatisch mit dem IE-Useragent aufgerufen wird (oder nicht?). Das müsste man dann auch noch lösen.
Hier mein erster Versuch:
Vergesst den Versuch - der ist Mist! Ich hab' eine sehr simple Lösung gefunden:
Jetzt habe ich nurnoch das Problem, dass der Useragent bei jedem Linkklick wieder zurückgesetzt wird.
Hat jemand ne Idee wie man das lösen kann?
ich hab da mal ein dringliches Problem. Ich versuche schon die ganze Zeit einen Webbrowser mit eigenem Useragent zum laufen zu bringen.
Soweit ich weiß, ist die einzige Möglichkeit ein httpWebRequest zu verwenden. D.h. erstmal die Seite herunterladen und dann mit dem Webbrowser-Control
parsen. Hier bin ich schon gescheitert... Ein anderes Problem wäre ,wenn die Webseite dann tatsächlich mal dargestellt wird, dass wenn man dann auf einen
Link klicken würde, der Link dann wieder automatisch mit dem IE-Useragent aufgerufen wird (oder nicht?). Das müsste man dann auch noch lösen.
Hier mein erster Versuch:
VB.NET-Quellcode
- Public Sub DownloadWebpage(ByVal URL As String)
- Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(URL), HttpWebRequest)
- myHttpWebRequest.UserAgent = ".NET Framework Test Client"
- ' The response object of 'HttpWebRequest' is assigned to a 'HttpWebResponse' variable.
- Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
- ' Display the contents of the page to the console.
- Dim streamResponse As Stream = myHttpWebResponse.GetResponseStream()
- Dim streamRead As New StreamReader(streamResponse)
- Dim readBuff(256) As [Char]
- Dim count As Integer = streamRead.Read(readBuff, 0, 256)
- 'TextBox2.Text &= vbCrLf & (ControlChars.Cr + "The contents of HTML Page are :" + ControlChars.Cr)
- While count > 0
- Dim outputData As New [String](readBuff, 0, count)
- 'TextBox2.Text &= vbCrLf & (outputData)
- 'webbrowser1.parse_die_verdammte_Seite :D
- count = streamRead.Read(readBuff, 0, 256)
- End While
- streamRead.Close()
- streamResponse.Close()
- ' Release the response object resources.
- myHttpWebResponse.Close()
- End Sub
Vergesst den Versuch - der ist Mist! Ich hab' eine sehr simple Lösung gefunden:
Jetzt habe ich nurnoch das Problem, dass der Useragent bei jedem Linkklick wieder zurückgesetzt wird.
Hat jemand ne Idee wie man das lösen kann?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „aldituete“ ()