Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
PingCecker(elegantere Version)
| Uploader: |  ytwinky |
| Datum/Zeit: | 27.01.2008 15:42:27 |
'¸2007 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
'
'Die endgültige Unterdrückung der Ping-Ausgabe fehlt noch..
Sub Msg(s As String)
Locate 2, 1:Print String(1024, 32)
Locate 2, 1:Print Date &" " &Time &s;
End Sub
Const Lf =!"\n", Esc=!"\27"
Const RouterIP = "127.0.0.1"' "192.168.2.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 Exec(Path2Exe &ExeDatei, Parameter) Then '"Zeitüberschreitung" gefunden... ^^
Msg(" keine Verbindung! ")
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
Msg(" Verbindung steht.")
End If
Sleep PruefIntervall*1000
Loop Until Inkey = Esc
End