Moin!
ich habe ein einfaches Programm, das einmal die Minute einen Ping absetzt und dann schaut, ob eine Internet-Verbindung besteht. Es geht darum den routerausfall zu dokumentieren.
Spoiler anzeigen
Ich habe einmal folgende Fehlermeldung in der Funktion IsOnline bekommen:
Ist das wie ein IsOnline=false zu interpretieren oder weißt das auf etwas ganz anderes hin?
Gruß jan
*Topic verschoben*
ich habe ein einfaches Programm, das einmal die Minute einen Ping absetzt und dann schaut, ob eine Internet-Verbindung besteht. Es geht darum den routerausfall zu dokumentieren.
VB.NET-Quellcode
- Public Class Form1
- Private _LastOnlineStatus As Integer = 0 ' -1 ... offline / 0 ... kein Status / 1 .... online
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Dim Sekunden As Integer = 60
- Timer1.Interval = 1000 * Sekunden
- Timer1.Enabled = True
- AddHandler Me.Timer1.Tick, New System.EventHandler(AddressOf Me.timer1_Tick)
- End Sub
- Private Sub CheckOnline()
- Dim Zeitpunkt As String = Now.ToString("yyyy-MM-dd HH:mm:ss")
- Dim IsOnlineStatus As Integer = IsOnline()
- Select Case IsOnlineStatus
- Case -1
- If _LastOnlineStatus <> IsOnlineStatus Then TextBox2.AppendText(String.Format("{0} - offline", Zeitpunkt) & Environment.NewLine)
- _LastOnlineStatus = -1
- Case 0
- If _LastOnlineStatus <> IsOnlineStatus Then TextBox2.AppendText(String.Format("{0} - ?????", Zeitpunkt) & Environment.NewLine)
- _LastOnlineStatus = 0
- Case 1 ' online
- If _LastOnlineStatus <> IsOnlineStatus Then TextBox2.AppendText(String.Format("{0} - online", Zeitpunkt) & Environment.NewLine)
- _LastOnlineStatus = 1
- End Select
- TextBox2.ScrollToCaret()
- Label1.Text = "Letzter Pingzeitpunkt: " & Zeitpunkt
- End Sub
- Private Sub timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
- CheckOnline()
- End Sub
- Function IsOnline() As Integer
- If My.Computer.Network.IsAvailable AndAlso My.Computer.Network.Ping("www.google.de", 1000) = True Then Return 1
- Return -1
- End Function
- Private Sub Button1_Click(sender As Object, e As EventArgs)
- CheckOnline()
- End Sub
- End Class
Ich habe einmal folgende Fehlermeldung in der Funktion IsOnline bekommen:
System.Net.NetworkInformation.PingException: Während einer Pinganforderung ist eine Ausnahme aufgetreten. ---> System.Net.Sockets.SocketException: Der angegebene Host ist unbekannt
bei System.Net.Dns.GetAddrInfo(String name)
bei System.Net.Dns.InternalGetHostByName(String hostName, Boolean includeIPv6)
bei System.Net.Dns.GetHostAddresses(String hostNameOrAddress)
bei System.Net.NetworkInformation.Ping.Send(String hostNameOrAddress, Int32 timeout, Byte[] buffer, PingOptions options)
--- Ende der internen Ausnahmestapelüberwachung ---
bei System.Net.NetworkInformation.Ping.Send(String hostNameOrAddress, Int32 timeout, Byte[] buffer, PingOptions options)
bei System.Net.NetworkInformation.Ping.Send(String hostNameOrAddress, Int32 timeout, Byte[] buffer)
bei Microsoft.VisualBasic.Devices.Network.Ping(String hostNameOrAddress, Int32 timeout)
bei InternetPing.Form1.IsOnline() in C:\VSProjects\Privat\InternetPing\InternetPing\Form1.vb:Zeile 40.
bei InternetPing.Form1.CheckOnline() in C:\VSProjects\Privat\InternetPing\InternetPing\Form1.vb:Zeile 14.
bei InternetPing.Form1.timer1_Tick(Object sender, EventArgs e) in C:\VSProjects\Privat\InternetPing\InternetPing\Form1.vb:Zeile 37.
bei System.Windows.Forms.Timer.OnTick(EventArgs e)
bei System.Windows.Forms.Timer.TimerNativeWindow.WndProc(Message& m)
bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Ist das wie ein IsOnline=false zu interpretieren oder weißt das auf etwas ganz anderes hin?
Gruß jan
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()