Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Richard Frost on January 31, 2019, 11:31:40 pm

Title: Monitor the health of your connection by constant PINGs
Post by: Richard Frost on January 31, 2019, 11:31:40 pm
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"
  20.  
  21. begin:
  23.     READ p$
  24.     IF p$ = "end" THEN EXIT DO
  25.     numsites = numsites + 1
  26.     site$(numsites) = p$
  28.  
  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)
  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
  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
  91.  
  92.  
  93.  
Text Only | Text with Attachments