Proxy in vb.net - .NET Archiv @ tutorials.de: Forum & Hilfe

Tortilla · 21.07.04, 12:23

Hi Leute!
Ich benötige hier mal etwas professionelle Hilfe.

Ich versuche in meinem Quellcode eine Internetverbindung über einen Proxy herzustellen und eine Seite in einen Stream auszulesen.
Zu diesem Zweck habe ich ein Objekt "pr" der Klasse "System.Net.Webproxy" erstellt.
Im Code sieht das ganze folgendermaßen aus:

            
                    Code:
                  
                   	        Dim pr As System.Net.WebProxy 
        pr.GetDefaultProxy()
        Dim uriString As String
        uriString = url
        Dim wReq As WebRequest = WebRequest.Create(uriString)
        Dim urix As Uri = New Uri(uriString)
        Dim myWebClient As WebClient = New System.Net.WebClient
        wReq.Proxy = pr
        Dim wresp As WebResponse = wReq.GetResponse()
        Dim myStream As Stream = myWebClient.OpenRead(uriString)
        Dim sr As StreamReader = New StreamReader(myStream)
        myStream.Close()
        Dim Quelltext As String = sr.ReadToEnd.ToString

Das Probem ist nur, dass die Methode "pr.GetDefaultProxy" nicht funktioniert, da der Proxy über ein automatisches Konfigurationsskript eingestellt wird.
Kann mir vielleicht jemand sagen, wie es möglich ist, die Proxyeinstellungen, die der Internet Explorer verwendet, in meinen Code zu integrieren?

Damit wäre mir wirklich sehr geholfen.

Gruß Tortilla

PS: Ich benutze das .NET Framework 1.1 unter Windows XP Professional

Tortilla · 11.08.04, 14:01

So geht´s:

            
                    Code:
                  
                   	        Dim proxyURI As New Uri("http://myProxy:80")
        GlobalProxySelection.Select = New WebProxy(proxyURI)
        Dim uriString As String
        uriString = URL
        Dim wReq As WebRequest = WebRequest.Create(uriString)
        Dim urix As Uri = New Uri(uriString)
        Dim myWebClient As New WebClient
        wReq.Proxy.GetProxy(proxyURI)
        Dim wResp As WebResponse = wReq.GetResponse()
        Dim myStream As Stream = myWebClient.OpenRead(uriString)
        Dim sr As StreamReader = New StreamReader(myStream)
        Dim Quelltext As String = sr.ReadToEnd.ToString
        wReq.Abort()

Tortilla