Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
PingCheck(mit Ausgabeunterdrückung)
| Uploader: |  ytwinky |
| Datum/Zeit: | 27.01.2008 17:15:23 |
'PingCheck.Bas
'¸2008 by ytwinky, MD
'Bei Bedarf nach Belieben änderbar :D
'Verändert durch Sebastian St. (26.01.2008)
'Siehe http://forum.qbasic.at/viewtopic.php?t=5281
'Letzte Modifikationen von Siedlerchr (alias Christoph) (27.01.2008)
'Wenn der Router nicht erreichbar ist wird das Programm "OFF (Owner Free Filesystem) " beendet und anschließend neu gestartet
'Es wird jetzt alle 10 Sekunden geprüft, ob eine Verbindung besteht
'
Const Lf =!"\n", Esc=!"\27"
Const RouterIP ="192.168.2.1"'"127.0.0.1"'
Const PruefIntervall = 10 'Sekunden
Dim As String Path2Exe=Environ("windir") &"\System32"
Dim As String ExeDatei="\Ping.Exe"
Dim As String Parameter=" -n 1 -l 1 " &RouterIP
If Dir(Path2Exe &ExeDatei)="" Then
Print Path2Exe &ExeDatei &" nicht gefunden oder nicht richtig installiert ;-))"
Sleep
End
End If
Locate 1,1:Print "ESC zum Beenden druecken.."
Do
If Shell(Path2Exe &ExeDatei &Parameter &" >Nul") Then '"Zeitüberschreitung" gefunden... ^^
Locate 2, 1
Print Date &" " &Time &" keine Verbindung zu " &RouterIP;
Shell "TASKKILL /F /IM offsystem.exe" 'Prozess beenden
Sleep 10000 'warten bis der Prozess erfolgreich beendet ist
Chdir("D:\Programme2\OFFSystem") 'ins Verzeichnis wechseln
Shell "START offsystem.exe" 'Programm starten
Continue Do 'weiter mit der Hauptschleife
Else
Locate 2, 1
Print Date &" " &Time &" Verbindung steht." &String(20, 32) &String(20, 8);
End If
Sleep PruefIntervall*1000
Loop Until Inkey = Esc
End