title image


Smiley Wenn rechner im Netz, alles ok. Aber wenn nicht erscheint nix???
Hallo und erst mal Danke für deine Hilfe.

Ich habe es jetzt so versucht:



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

If PingZeit > 0 Then MsgBox("Alles OK mit Q01CKS6720A!")

If PingZeit > 100 Then MsgBox("Warnung: Q01CKS6720A antwortet nicht!")

Console.ReadLine()



Kommt eine Antwortzeit, erscheint auch die msgbox.

Wenn nun aber der Rechner nicht im Netz ist, oder die Firewall aktiv ist, dann erscheint nur ein schwarzes Dos Fenster und es tut sich gar nichts. Gibt es hier nicht eine Möglichkeit, wenn keine Pingantwort kommt, dass dann eine Fehlermeldung erscheint?



Herzlichen Dank für jeden Tipp!



Gruß

Horst

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: