; WhatIsMyWanIp v1.0 - By Ñãzã®78 (MetalasiA) @ www.malayX.Tech.nu
;
; A simple mIRC socket trick to find out your current WAN IP numeric address
; Works like a charm if you're on or even not on NICs/NATs/Routers/BNCs
; End your DCC SEND/CHAT failures just because mIRC can't find your external ip
; Just place`em on your mIRC root directory & type: /load -rs whatismywanip.mrc
; No configurations needed, auto detection everytime you connects to a server/bnc
;
; Notes: You still have to open/foward ports on your router for DCCs
; I've been using this snippet for personal use and found it very useful
; especially for servers thus sharing it with you guys.
; Distribute`em freely but please "AS IT IS" I hate rippers, be original :P
;
; Cheers, Ñãzã®78 (MetalasiA)..._\m/
on *:sockopen:whatismywanip: {
if ($sockerr) echo 4 -est [ WhatIsMyWanIp v1.0 ] Ops, an error has occured! You might not be connected or the service is down? " $+ $sock($sockname).wsmsg $+ "... \ m/
else {
echo 4 -est [ WhatIsMyWanIp v1.0 ] Tryin` to find $me $+ 's new WAN IP if there's any... \ m/
sockwrite -n $sockname GET / HTTP/1.0 $+ $crlf $+ $crlf
}
}
on *:sockread:whatismywanip: {
if ($sockerr) echo 4 -est [ WhatIsMyWanIp v1.0 ] Ops, an error has occured! You might not be connected or the service is down? " $+ $sock($sockname).wsmsg $+ "... \ m/
else {
var %tmp
sockread %tmp
if ($regex(%tmp,/^.+Current\sIP\sAddress\:\s(.+\d).+/sig)) {
if ($regml(1) != $ip) {
echo 4 -est [ WhatIsMyWanIp v1.0 ] Found a new WAN IP " $+ $regml(1) $+ "! Registerin` to mIRC's Localinfo... \ m/
localinfo $iif($host,$ifmatch,LOCALHOST) $regml(1)
}
else echo 4 -est [ WhatIsMyWanIp v1.0 ] No new WAN IP found $+ $iif($ip,$chr(44) stickin` to " $+ $ip $+ ") $+ ... \ m/
}
}
}
alias -l whatismywanip if ($sock(whatismywanip)) sockclose whatismywanip | var %tmp = 28VAE8VMI<"YD>6YD;G,N;W)G```` | sockopen whatismywanip $decode(%tmp) 8245
raw 001:*:return $whatismywanip
on *:start:echo 4 -est [ WhatIsMyWanIp v1.0 ] WhatIsMyWanIp v1.0 - By Ñãzã®78 (MetalasiA) @ www.malayX.Tech.nu ... \ m/ | return $whatismywanip