Hallo und guten Morgen,
mein Programm ermittelt u.a. die Wetteraussichten für die nächsten Tage.
Nun scheint die Seite nicht erreichbar zu sein.
Die nachstehende Funktion gibt mir folgende Fehlermeldung zurück:
Zusätzliche Informationen: Die zugrunde liegende Verbindung wurde geschlossen: Unbekannter Fehler beim Empfangen..
Der Try - Catch greift hier nicht
mein Programm ermittelt u.a. die Wetteraussichten für die nächsten Tage.
Nun scheint die Seite nicht erreichbar zu sein.
Die nachstehende Funktion gibt mir folgende Fehlermeldung zurück:
Zusätzliche Informationen: Die zugrunde liegende Verbindung wurde geschlossen: Unbekannter Fehler beim Empfangen..
VB.NET-Quellcode
- Private Function Webseite(ByVal WebLink As String) As String
- Me.InternetverbindungOK = False
- Try
- Dim hReq As HttpWebRequest = DirectCast(HttpWebRequest.Create(WebLink), HttpWebRequest)
- Dim hRes As HttpWebResponse = DirectCast(hReq.GetResponse(), HttpWebResponse)
- Dim s As Stream = hRes.GetResponseStream()
- Dim sR As New StreamReader(s)
- Dim webPage As String = sR.ReadToEnd()
- sR.Close()
- s.Close()
- sR = Nothing
- s = Nothing
- hReq = Nothing
- hRes = Nothing
- Me.InternetverbindungOK = True
- Return webPage
- Catch ex As Exception
- Me.InternetverbindungOK = False
- Return Nothing
- End Try
- End Function
Der Try - Catch greift hier nicht
Gruß Markus