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:
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
Comment