title image


Smiley Hast Recht, aber es erscheint nix wenn vom Ping keine Antort kommt???
Hier mein bisheriger Code, aber es kommt keine msgbox, wenn der Rechner nicht im Netz ist oder die Firewall aktiv ist:



Public Module PingTester



Public Sub Main()

Console.WriteLine("Millisekunden für den Kontakt zu Q01CKS6720A: " & PingUtility.Pinger.GetPingTime("172.16.164.199"))

Dim PingZeit As Integer = PingUtility.Pinger.GetPingTime("172.16.164.199")

If PingZeit < 100 Then

MsgBox("Alles OK mit: Q01CKS6720A!")

Else

MsgBox("Warnung: Q01CKS6720A antwortet nicht!")

End If

Console.ReadLine()



End Sub



End Module





Gruß

Horst

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: