Monitor the health of your connection by constant PINGs

[Richard Frost]

Code: QB64: [Select]

1. DEFINT A-Z
2. DIM buffer$(100), site$(20), pass&(20), errcount&(20)
3.  
4. DATA "boredpanda.com"
5. DATA "ebay.ca"
6. DATA "facebook.com"
7. DATA "gmail.com"
8. DATA "google.ca"
9. DATA "kijiji.ca"
10. DATA "mail.com"
11. DATA "netgear.com"
12. DATA "purple.com"
13. DATA "qb64.org"
14. DATA "radio.net"
15. DATA "scitechdaily.com"
16. DATA "wikipedia.org"
17. DATA "yahoo.com"
18. DATA "youtube.com"
19. DATA end
20.  
21. begin:
22. DO
23.     READ p$
24.     IF p$ = "end" THEN EXIT DO
25.     numsites = numsites + 1
26.     site$(numsites) = p$
27. LOOP
28.  
29. DO: _LIMIT 10
30.     currentsite = currentsite + 1 + (currentsite = numsites) * numsites
31.     pass&(currentsite) = pass&(currentsite) + 1
32.     SHELL _HIDE "CMD /c ping www." + site$(currentsite) + " -n 1 -w 500 >temp.txt"
33.     FOR row = 18 TO 25
34.         LOCATE row, 1: PRINT SPACE$(80);
35.     NEXT row
36.     OPEN "temp.txt" FOR INPUT AS #1
37.     n = 0: errflag = 1: myrow = 19
38.     WHILE NOT (EOF(1))
39.         n = n + 1
40.         LINE INPUT #1, buffer$(n)
41.         lb = LEN(buffer$(n))
42.         IF (lb > 0) AND (myrow < 26) THEN
43.             LOCATE myrow, 1: PRINT LEFT$(buffer$(n), 79);
44.             myrow = myrow + 1
45.         END IF
46.         IF LEFT$(buffer$(n), 10) = "Reply from" THEN errflag = 0
47.     WEND
48.     CLOSE #1
49.     LOCATE currentsite + 2, 48: PRINT SPACE$(32);
50.     IF errflag THEN
51.         'SOUND 200, 1
52.         errcount&(currentsite) = errcount&(currentsite) + 1
53.     END IF
54.     GOSUB Stats
55.     wait1! = ((TIMER + 1 - (currentsite = numsites) * 1) MOD 86400) - RND
56.     DO
57.         xx = (xx + 1) MOD 4
58.         LOCATE currentsite + 2, 21: PRINT MID$("|/-\", xx + 1, 1);
59.         wait2! = TIMER + .2: IF wait2! > 86400 THEN wait2! = 0
60.         DO: _LIMIT 10
61.             i$ = INKEY$
62.             IF i$ = CHR$(27) THEN EXIT DO
63.         LOOP UNTIL TIMER > wait2!
64.     LOOP UNTIL (i$ = CHR$(27)) OR (TIMER > wait1!)
65.     LOCATE currentsite + 2, 21: PRINT " ":
66. LOOP UNTIL i$ = CHR$(27)
67. SYSTEM
68.  
69. Stats:
70. LOCATE 1, 1: PRINT SPACE$(22); "Good    Bad      Loss %"
71. LOCATE 2, 1: PRINT SPACE$(22); "----    ----     ------"
72. LOCATE currentsite + 2, 1: PRINT site$(currentsite); TAB(22);
73. good& = pass&(currentsite) - errcount&(currentsite)
74. PRINT good&; TAB(32);
75. PRINT errcount&(currentsite); TAB(39);
76. IF good& = 0 THEN loss = 100 ELSE loss = INT(errcount&(currentsite) * 100 / pass&(currentsite) + .5)
77. PRINT loss;
78. GOSUB bar
79. RETURN
80.  
81. bar:
82. x = loss / 100 * 30
83. DEF SEG = &HB800
84. FOR i = 1 TO 30
85.     a = (currentsite + 1) * 160 + (i + 46) * 2 + 1
86.     IF x < i THEN c = 2 ELSE c = 4
87.     IF PEEK(a - 1) = 32 THEN POKE (a - 1), ASC("-")
88.     POKE a, c
89. NEXT i
90. RETURN
91.  
92.  
93.