Announcement

Collapse
No announcement yet.

Eine Ausnahme (erste Chance) des Typs "System.Net.WebException" ist in System.dll auf

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Eine Ausnahme (erste Chance) des Typs "System.Net.WebException" ist in System.dll auf

    Hallo,

    ich bin dabei, ein kleineres Projekt zu realisieren aber habe schon am Anfang Startschwierigkeiten.

    Was habe ich bis jetzt gemacht?
    -Ein bisschen Code (siehe Unten)
    -Das Zielframework von 4 auf 3.5 eingestellt, um evtl. die ausführbarkeit auf Rechner zu ermöglichen, die nicht das aktuellste Framework installiert haben. Ich denke auch darüber nach, auf 2.0 zu konfigurieren.

    Und das Problem??
    Wenn ich debugge. funktioniert alles einwandfrei, doch kommt im Direktfenster folgendes:
    Eine Ausnahme (erste Chance) des Typs "System.Net.WebException" ist in System.dll aufgetreten.

    Wenn dioch alles funktioniert, warum dann diese Ausnahme/Warnung/fehlermeldung??

    Nun der Code:
    Code:
    Imports System.Net
    Imports System.IO
    Imports System.Text
    
    Public Class Form1
    
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
        End Sub
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    
            If My.Computer.Network.Ping("octanius.no-ip.org", 1000) Then 'SERVER VERFÜGBAR ???
                MsgBox("Ping erfolgreich")
                MsgBox(GETIP)               'SPÄTER IP IN DATEI ODER DATENBANK SCHREIBEN
                MsgBox(GETHOST)             'SPÄTER HOST IN DATEI ODER DATENBANK SCHREIBEN
            Else
                MsgBox("Ping nicht erfolgreich")
    
            End If
    
        End Sub
    
        Function GETIP() As String
    
            Dim Provider As String = "http://octanius.no-ip.org/ip/ip.php"
            Dim WebReq As HttpWebRequest = HttpWebRequest.Create(Provider)
            Dim WebRes As HttpWebResponse = WebReq.GetResponse()
    
            Dim ResStream As System.IO.Stream = WebRes.GetResponseStream
            Dim ResStreamReader As New StreamReader(ResStream, Encoding.UTF8)
    
            Dim IP As String = ResStreamReader.ReadToEnd
    
            ResStream.Close()
            WebRes.Close()
    
            Return IP
    
        End Function
    
        Function GETHOST() As String
            'Try
            Dim Provider As String = "http://octanius.no-ip.org/ip/hostname.php"
            Dim WebReq As HttpWebRequest = HttpWebRequest.Create(Provider)
            Dim WebRes As HttpWebResponse = WebReq.GetResponse()
    
            Dim ResStream As System.IO.Stream = WebRes.GetResponseStream
            Dim ResStreamReader As New StreamReader(ResStream, Encoding.UTF8)
    
            Dim HOST As String = ResStreamReader.ReadToEnd
    
            ResStream.Close()
            WebRes.Close()
    
            Return HOST
    
        End Function
    End Class
    Mein Technikblog ideebuzz.de

  • #2
    Mh funktioniert das Teil denn wenn Du einfach die exe startest? In Visual Studio werden manchmal auch exceptions gezeigt die eigentlich gefangen werden und deswegen nicht schlimm sind.
    Versuch mal die exe einfach auszuführen und schau ob dann auch die exception auftritt.

    Comment

    Working...
    X