exiter28
Erfahrenes Mitglied
Hey Jungs und Mädels,
ich versuche gerade mit dem WebClient einen Quelltext auszulesen.
Leider bekomme ich beim Verbindungsversuch immer die Meldung:
"die verbindung mit dem remoteserver kann nicht hergestellt werden"
Kennt jemand das Problem?
Muss ich einen Port freigeben?
Hier mal der Code:
ich versuche gerade mit dem WebClient einen Quelltext auszulesen.
Leider bekomme ich beim Verbindungsversuch immer die Meldung:
"die verbindung mit dem remoteserver kann nicht hergestellt werden"
Kennt jemand das Problem?
Muss ich einen Port freigeben?
Hier mal der Code:
Code:
Public Sub readhtml()
Dim address As String = ("http://www.gold.de")
Dim client As New WebClient()
' Add a user agent header in case the
' requested URI contains a query.
client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
Dim data As Stream = client.OpenRead(address)
Dim fs As IO.FileStream ' Filestream deklarieren
Dim tw As IO.StreamWriter ' Streamreader deklarieren
fs = New IO.FileStream("C:\htmlsource.txt", IO.FileMode.Create) 'immer neue datei erzeugen
tw = New IO.StreamWriter(fs) ' StreamWriter mit Filestream setzen
tw.WriteLine(data)
tw.Flush() ' Puffer leeren
tw.Close() ' StreamWriter schließen
End Sub 'Main