Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch ber Twitter erhalten. Follow us!fb:porticula NoPaste
PingRouter.Bas(noch ohne Zeitschleife)
| Uploader: |  ytwinky |
| Datum/Zeit: | 26.01.2008 14:53:51 |
'+-----------------------------------------------------------------------------------+
'| Header: Bestimmen der bergabeparameter |
'| AnzeigeCheck:|Il1 sind Alt-0124, Groes i, kleines L, Eins ߎę֚|
Const Author="PingRouter.Bas v0.18.3b 2008 by ytwinky, MD"' |
'| (Tastenkombination: keine) |
'| |
'| Zweck : Router in regelmigem Abstand anpingen |
'+-----------------------------------------------------------------------------------+
'(Anmerkung zu den Sonderzeichen: zuerst steht das DOS-Zeichen, danach das Windowszeichen)
Const Ping="C:\Windows\System32\Ping.Exe"
Dim As String RouterIP=Command(1), ZeitAbstand=Command(2)
Dim As Integer Abstand=60, Fehler
If RouterIP="" Then Input"Router-IP eingeben:", RouterIP
If RouterIP="" Then
Print "Na gut, denn nich.."
EndIf
If ZeitAbstand="" Then Input"Zeitabstand eingeben:", ZeitAbstand
If ZeitAbstand<>"" Then Abstand=Val(ZeitAbstand)
Fehler=Exec(Ping, RouterIP &" -n 1") 'nur EINEN Ping senden..
If Fehler Then
Print "Ooops, der Router antwortet nicht.. " &Fehler
Else
Print "Wow, der Router hat geantwortet.."
EndIf
Sleep
End
'Die Zeitschleife fehlt noch..