« on: January 31, 2019, 11:31:40 pm »
DIM buffer$
(100), site$
(20), pass&
(20), errcount&
(20)
begin:
numsites = numsites + 1
site$(numsites) = p$
currentsite = currentsite + 1 + (currentsite = numsites) * numsites
pass&(currentsite) = pass&(currentsite) + 1
SHELL _HIDE "CMD /c ping www." + site$
(currentsite
) + " -n 1 -w 500 >temp.txt" n = 0: errflag = 1: myrow = 19
n = n + 1
myrow = myrow + 1
IF LEFT$(buffer$
(n
), 10) = "Reply from" THEN errflag
= 0 'SOUND 200, 1
errcount&(currentsite) = errcount&(currentsite) + 1
wait1!
= ((TIMER + 1 - (currentsite
= numsites
) * 1) MOD 86400) - RND
Stats:
good& = pass&(currentsite) - errcount&(currentsite)
IF good&
= 0 THEN loss
= 100 ELSE loss
= INT(errcount&
(currentsite
) * 100 / pass&
(currentsite
) + .5)
bar:
x = loss / 100 * 30
a = (currentsite + 1) * 160 + (i + 46) * 2 + 1
« Last Edit: February 01, 2019, 02:13:31 am by Richard Frost »
Logged
It works better if you plug it in.