Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Ping Check+ Prozess Kill/-restart (OFF)

Uploader:MitgliedSiedlerchr
Datum/Zeit:18.02.2008 18:09:37

'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
'
'Einfach nur die ROuter IP anpassen...
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 3, 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