; PingChk
; -------
; Ping a series of IP addresses read from a file
; and report if any ping is not successful.
; Ping check is resident as an icon in system tray
;
:enter
;report on
priority low
setfont Tahoma,14
banner Ping Checker
delay 15
banoff
puttray Ping Check,chkit,A

setvar D,20
setvar E,true
setvar F,true
setvar G,Hide Ping
setvar H,No Sound
;step on

:pingfirst
readline iplist.txt,A

:pingnext
ifvar A,,nextip2
substr %A,1,1,B
ifvar B,;,nextip2
ifvar E,false,doping
setfont Tahoma,8
banner %A,R|T,100|40,5,A
:doping
ping %A
iferror prob2
goto nextip

:prob2
banoff
setfont Tahoma,14
banner Lost contact with %A
ifvar F,false,dowait
beep 4
:dowait
delay 20
banoff

:nextip
delay %D
:nextip2
nextline iplist.txt,A
iferror pingfirst
goto pingnext

:chkit
menubox PingChk,Select a function,Set Delay|%G|%H|Set List|End PingChk
casemsg nextip|setdel|setpng|setsnd|setlst|end
goto end

:setdel
setvar J,%D
divvar J,10
numbox Ping Delay,Enter seconds between pings,J,0|%J|1200
ifmsg cancel,nextip
mulvar J,10
setvar D,%J
goto nextip

:setpng
ifvar E,true,hidep
setvar E,true
setvar G,Hide Ping
goto nextip

:hidep
setvar E,false
setvar G,Show Ping
banoff
goto nextip

:setsnd
ifvar F,true,nosnd
setvar F,true
setvar H,No Sound
goto nextip

:nosnd
setvar F,false
setvar H,Sound On
banoff
goto nextip

:setlst
start notepad iplist.txt
goto nextip

:end