Zitat:

System.AccessViolationException wurde nicht behandelt. Message="Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist." Source="System.Windows.Forms" StackTrace: bei System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) bei System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) bei System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) bei System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) bei System.Windows.Forms.Application.Run(ApplicationContext context) bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) bei WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81. bei System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) bei System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() bei System.Threading.ThreadHelper.ThreadStart_Context(Object state) bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) bei System.Threading.ThreadHelper.ThreadStart() InnerException:

Imports System.Net
Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    ' Internet-Datei auslesen
    Private Function inetReadFile(ByVal sURL As String) As String
        Dim sBuffer As String
 
        ' WebRequest
        Dim oRequest As WebRequest = WebRequest.Create(sURL)
 
        ' GET-Methode (wir wollen etwas abholen :-)
        oRequest.Method = "GET"
 
        ' Antwort auf unsere Anfrage abholen
        Dim oResponse As WebResponse = oRequest.GetResponse()
 
        ' Datenstrom auslesen
        Dim oStream As New StreamReader(oResponse.GetResponseStream())
        sBuffer = oStream.ReadToEnd()
        oStream.Close()
 
        ' Beenden
        oResponse.Close()
 
        ' Inhalt zurückgeben
        Return sBuffer
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ' Geht zu der angegebenen URL
        WebBrowser1.Navigate(TextBox1.Text)
 
        Dim sBuffer As String
        sBuffer = inetReadFile(TextBox1.Text)
 
        ' lokal speichern
        Dim oStream As New StreamWriter("f:\test.txt")
        oStream.Write(sBuffer)
        oStream.Close()
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        WebBrowser1.Show()
        TextBox2.Text = ("f:\test.txt")
    End Sub
End Class