Port Checker Version
| 2008-12-02, 4:57 PM |
;;;;;;;;;;;;;;;;;;
;; Port Checker ;;
;; By Jonesy44 ;;
;;;;;;;;;;;;;;;;;;
alias pc {
set %pc.addr $$input(Enter the Address/IP and port of the server you want to check (IP:Port),eq,Port Check - Input Information)
if ($sock(pc)) {
.sockclose pc
}
if (%pc.addr) {
echo -a 2Port Check; --------------------------------------------------------------------------------------
echo -a 2Port Check; Checking address $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80)) Please wait..
.sockopen pc $iif(: isin %pc.addr,$replace(%pc.addr,$chr(58),$chr(32)),%pc.addr 80)
set %pc.timeout 5
.timerpc1 0 1 pc.timeout
}
}
alias pc.timeout {
if (%pc.timeout <= 0) {
echo -a 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80))
echo -a 2Port Check; --------------------------------------------------------------------------------------
.sockclose pc
.timerpc1 off
unset %pc.addr
}
else {
dec %pc.timeout
}
}
on *:SOCKOPEN:pc: {
if ($sockerr) {
echo -a 4Port Check: Could not connect to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80))
}
else {
echo -a 3Port Check: Connected succesfully to $qt($iif(: isin %pc.addr,%pc.addr,%pc.addr $+ : $+ 80))
}
echo -a 2Port Check; --------------------------------------------------------------------------------------
unset %pc.addr
.sockclose pc
.timerpc1 off
}
|
|
Category: Mirc Scripts | Added by: addu-dalnet |
| Views: 580 | Downloads: 0
| Rating: 0.0/0 |