Imports System.Net
Imports System.Text
 
Public Class Form1
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      Me.TextBox1.Text = GetWebContentWithProxy( _
      "http://www.vbarchiv.net/home/index.php", "ProxyUser", "ProxyPassword")
   End Sub
 
   Private Function GetWebContentWithProxy(ByVal URL As String, ByVal _
     ProxyUserName As String, ByVal ProxyPassword As String) As String
      Dim dWeb As New WebClient
 
      Try
         dWeb.Proxy = Net.WebRequest.GetSystemWebProxy
         dWeb.Proxy.Credentials = New NetworkCredential(ProxyUserName, _
           ProxyPassword)
         dWeb.Encoding = Encoding.Default
         dWeb.CachePolicy = New System.Net.Cache.RequestCachePolicy( _
           System.Net.Cache.RequestCacheLevel.NoCacheNoStore)
 
         Return dWeb.DownloadString(URL)
      Catch ex As Exception
         MessageBox.Show(ex.Message, "Proxy Fehler", MessageBoxButtons.OK, _
           MessageBoxIcon.Error)
         Return String.Empty
      End Try
   End Function
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control