/ScriptServ

alias ProxyScanner {
  .set %latestproxyfound $read(found.txt,$lines(found.txt))
  .dialog -m ProxyScanner ProxyScanner
}
dialog ProxyScanner {
  title "Proxy Scanner"
  size -1 -1 270 158
  option dbu
  text "Proxy Scanning and generally port scanning is illegal, you might have troubles with your isp after running this addon. Run it at your own risk. -The Script Author-"  , 11, 2 2 260 35, ok tab 1, center
  text 01) Port: 1080 Status: %port1scanstatus, 12, 20 30 70 10, ok tab 1,
  text 02) Port: 8081 Status: %port2scanstatus, 13, 20 40 70 10, ok tab 1,
  text 03) Port: 8080 Status: %port3scanstatus, 14, 20 50 70 10, ok tab 1,
  text 04) Port: 3128 Status: %port4scanstatus, 15, 20 60 70 10, ok tab 1,
  text 05) Port: 6588 Status: %port5scanstatus, 16, 20 70 70 10, ok tab 1,
  text 06) Port: 3388 Status: %port6scanstatus, 17, 20 80 70 10, ok tab 1,
  text 07) Port: 6052 Status: %port7scanstatus, 18, 20 90 70 10, ok tab 1,
  text 08) Port: 4769 Status: %port8scanstatus, 19, 20 100 70 10, ok tab 1,
  text 09) Port: 2445 Status: %port9scanstatus, 20, 20 110 70 10, ok tab 1,
  text 10) Port: 8888 Status: %port10scanstatus, 21, 20 120 70 10, ok tab 1,
  text 11) Port: 0058 Status: %port11scanstatus, 112, 145 30 70 10, ok tab 1,
  text 12) Port: 1289 Status: %port12scanstatus, 113, 145 40 70 10, ok tab 1,
  text 13) Port: 6969 Status: %port13scanstatus, 114, 145 50 70 10, ok tab 1,
  text 14) Port: 4852 Status: %port14scanstatus, 115, 145 60 70 10, ok tab 1,
  text 15) Port: 5445 Status: %port15scanstatus, 116, 145 70 70 10, ok tab 1,
  text 16) Port: 8905 Status: %port16scanstatus, 117, 145 80 70 10, ok tab 1,
  text 17) Port: 9200 Status: %port17scanstatus, 118, 145 90 70 10, ok tab 1,
  text 18) Port: 7497 Status: %port18scanstatus, 119, 145 100 70 10, ok tab 1,
  text 19) Port: 7948 Status: %port19scanstatus, 120, 145 110 70 10, ok tab 1,
  text 20) Port: 3127 Status: %port20scanstatus, 121, 145 120 70 10, ok tab 1,

  text Proxies Found: $lines(found.txt), 22, 2 140 70 10, ok tab 1,
  text Last Proxy Found: %latestproxyfound, 43, 2 148 140 10, ok tab 1,
  button on, 23, 95 28 12 10
  button off, 24, 108 28 12 10
  button on, 25, 95 38 12 10
  button off, 26, 108 38 12 10
  button on, 27, 95 48 12 10
  button off, 28, 108 48 12 10
  button on, 29, 95 58 12 10
  button off, 30, 108 58 12 10
  button on, 31, 95 68 12 10
  button off, 32, 108 68 12 10
  button on, 33, 95 78 12 10
  button off, 34, 108 78 12 10
  button on, 35, 95 88 12 10
  button off, 36, 108 88 12 10
  button on, 37, 95 98 12 10
  button off, 38, 108 98 12 10
  button on, 39, 95 108 12 10
  button off, 40, 108 108 12 10
  button on, 41, 95 118 12 10
  button off, 42, 108 118 12 10
  button ViewList, 1111, 133 137 30 20
  button Exit, 48, 245 136 22 20
  button Disable All, 448, 165 136 33 10
  button Enable All, 449, 165 147 33 10
  button Select Usual, 450, 200 136 43 10
  button Select Unsual, 451, 200 147 43 10

  button on, 123, 220 28 12 10
  button off, 124, 233 28 12 10
  button on, 125, 220 38 12 10
  button off, 126, 233 38 12 10
  button on, 127, 220 48 12 10
  button off, 128, 233 48 12 10
  button on, 129, 220 58 12 10
  button off, 130, 233 58 12 10
  button on, 131, 220 68 12 10
  button off, 132, 233 68 12 10
  button on, 133, 220 78 12 10
  button off, 134, 233 78 12 10
  button on, 135, 220 88 12 10
  button off, 136, 233 88 12 10
  button on, 137, 220 98 12 10
  button off, 138, 233 98 12 10
  button on, 139, 220 108 12 10
  button off, 140, 233 108 12 10
  button on, 141, 220 118 12 10
  button off, 142, 233 118 12 10
}
alias goref {
  dialog -c proxyscanner proxyscanner
  proxyscanner
}
on 1:dialog:ProxyScanner:sclick:*: {
  if ($did == 23) { .set %port1scanstatus on | goref }
  if ($did == 24) { .set %port1scanstatus off | goref }
  if ($did == 25) { .set %port2scanstatus on | goref }
  if ($did == 26) { .set %port2scanstatus off | goref }
  if ($did == 27) { .set %port3scanstatus on | goref }
  if ($did == 28) { .set %port3scanstatus off | goref }
  if ($did == 29) { .set %port4scanstatus on | goref }
  if ($did == 30) { .set %port4scanstatus off | goref }
  if ($did == 31) { .set %port5scanstatus on | goref }
  if ($did == 32) { .set %port5scanstatus off | goref }
  if ($did == 33) { .set %port6scanstatus on | goref }
  if ($did == 34) { .set %port6scanstatus off | goref }
  if ($did == 35) { .set %port7scanstatus on | goref }
  if ($did == 36) { .set %port7scanstatus off | goref }
  if ($did == 37) { .set %port8scanstatus on | goref }
  if ($did == 38) { .set %port8scanstatus off | goref }
  if ($did == 39) { .set %port9scanstatus on | goref }
  if ($did == 40) { .set %port9scanstatus off | goref }
  if ($did == 41) { .set %port10scanstatus on | goref }
  if ($did == 42) { .set %port10scanstatus off | goref }
  if ($did == 123) { .set %port11scanstatus on | goref }
  if ($did == 124) { .set %port11scanstatus off | goref }
  if ($did == 125) { .set %port12scanstatus on | goref }
  if ($did == 126) { .set %port12scanstatus off | goref }
  if ($did == 127) { .set %port13scanstatus on | goref }
  if ($did == 128) { .set %port13scanstatus off | goref }
  if ($did == 129) { .set %port14scanstatus on | goref }
  if ($did == 130) { .set %port14scanstatus off | goref }
  if ($did == 131) { .set %port15scanstatus on | goref }
  if ($did == 132) { .set %port15scanstatus off | goref }
  if ($did == 133) { .set %port16scanstatus on | goref }
  if ($did == 134) { .set %port16scanstatus off | goref }
  if ($did == 135) { .set %port17scanstatus on | goref }
  if ($did == 136) { .set %port17scanstatus off | goref }
  if ($did == 137) { .set %port18scanstatus on | goref }
  if ($did == 138) { .set %port18scanstatus off | goref }
  if ($did == 139) { .set %port19scanstatus on | goref }
  if ($did == 140) { .set %port19scanstatus off | goref }
  if ($did == 141) { .set %port20scanstatus on | goref }
  if ($did == 142) { .set %port20scanstatus off | goref }
  if ($did == 1111) { .run found.txt } 
  if ($did == 448) { 
    .set %port1scanstatus off
    .set %port2scanstatus off
    .set %port3scanstatus off
    .set %port4scanstatus off
    .set %port5scanstatus off
    .set %port6scanstatus off
    .set %port7scanstatus off
    .set %port8scanstatus off
    .set %port9scanstatus off
    .set %port10scanstatus off
    .set %port11scanstatus off
    .set %port12scanstatus off
    .set %port13scanstatus off
    .set %port14scanstatus off
    .set %port15scanstatus off
    .set %port16scanstatus off
    .set %port17scanstatus off
    .set %port18scanstatus off
    .set %port19scanstatus off
    .set %port20scanstatus off
    .goref
  }
  if ($did == 449) { 
    .set %port1scanstatus on
    .set %port2scanstatus on
    .set %port3scanstatus on
    .set %port4scanstatus on
    .set %port5scanstatus on
    .set %port6scanstatus on
    .set %port7scanstatus on
    .set %port8scanstatus on
    .set %port9scanstatus on
    .set %port10scanstatus on
    .set %port11scanstatus on
    .set %port12scanstatus on
    .set %port13scanstatus on
    .set %port14scanstatus on
    .set %port15scanstatus on
    .set %port16scanstatus on
    .set %port17scanstatus on
    .set %port18scanstatus on
    .set %port19scanstatus on
    .set %port20scanstatus on
    .goref
  }
  if ($did == 450) {
    .set %port1scanstatus on
    .set %port3scanstatus on
    .set %port4scanstatus on
    .set %port2scanstatus off
    .set %port5scanstatus off
    .set %port6scanstatus off
    .set %port7scanstatus off
    .set %port8scanstatus off
    .set %port9scanstatus off
    .set %port10scanstatus off
    .set %port11scanstatus off
    .set %port12scanstatus off
    .set %port13scanstatus off
    .set %port14scanstatus off
    .set %port15scanstatus off
    .set %port16scanstatus off
    .set %port17scanstatus off
    .set %port18scanstatus off
    .set %port19scanstatus off
    .set %port20scanstatus off
    .goref
  }
  if ($did == 451) {
    .set %port1scanstatus off
    .set %port3scanstatus off
    .set %port4scanstatus off
    .set %port2scanstatus on
    .set %port5scanstatus on
    .set %port6scanstatus on
    .set %port7scanstatus on
    .set %port8scanstatus on
    .set %port9scanstatus on
    .set %port10scanstatus on
    .set %port11scanstatus on
    .set %port12scanstatus on
    .set %port13scanstatus on
    .set %port14scanstatus on
    .set %port15scanstatus on
    .set %port16scanstatus on
    .set %port17scanstatus on
    .set %port18scanstatus on
    .set %port19scanstatus on
    .set %port20scanstatus on
    .goref
  }

  if ($did == 48) { .dialog -c proxyscanner proxyscanner }
}