'********************************************************************
Proc Ping
Parameters nic$,pingdatei1$,pingdatei2$
let pingstring$="PING.EXE",nic$,">",pingdatei1$
Assign #6,pingdatei2$
Rewrite #6
Print #6,pingstring$
Close #6
WinExecwait(pingdatei2$,0)
Assign #5,pingdatei2$
Erase #5
ASSIGN #3,pingdatei1$
RESET #3
Ping%=0
WHILENOT EOF(#3)
  input #3,ping$
  ping$=mid$(ping$,1,11)
  case equ$(ping$,"Antwort von"):Ping%=1
WEND
CLOSE #3
Assign #1,pingdatei1$
Erase #1
EndProc
'********************************************************************

'Beschreibung:
'Es gibt zwar schon eine schnelle und schöne Onlineabfrage über API,
'aber leider gibt die Funktion nur 1 für Online zurück, wenn
'man über ein Standart DFÜ eingewählt ist.
'Diese Prozedur ist halt nur etwas langsamer aber man kann sogar DSL
'(also - keine DFÜ-Verbindung) oder das alte T-Online u.s.w abfragen!!
'alles mit einem Stern umrandete ist wichtig für die Abfrage
'Rolf Koch - Rokosoftware - Koblenz 2002

'BEISPIEL
declare pingstring$,ping$,ping%
WINDOWSTYLE 31
Window 200,200-300,80
Windowtitle "Onlinstatus-Prüfung ohne Api"
TextColor RGB(0,0,255),-1
UseFont "TIMES NEW ROMAN",20,10,0,0,0
DRAWTEXT 40,10,"..moment ermittele!"


' HIER JETZT DER AUFRUF DER PROZEDUR:********************
'PING ADRESSE,ERGEBNISDATEI,BATCHDATEI
'Parameter
'1.) Webadresse - eine immer vorhandene wie www.nic.de
'2.) Dateiname, in welche Pingergebnis geschrieben wird - wird wieder gelöscht!
'3.) Dateiname, um Ping korrekt aufzurufen. - wird wieder gelöscht!
Ping "www.nic.de","PINGTEST.TXT","PING.BAT"
'********************************************************


TextColor RGB(255,255,255),RGB(255,255,255)
DRAWTEXT 40,10,"                                "
UseFont "TIMES NEW ROMAN",25,20,1,0,0
TextColor RGB(0,0,255),-1
if equ(ping%,1)
  DRAWTEXT 25,10,"ONLINE :)"
else
  DRAWTEXT 25,10,"OFFLINE :("
endif
waitinput