Kod:
on *:load: {
.echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: ip-tracker $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: [email protected] $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: ip-tracker $chr(40) $+ v5.4 $+ $chr(41))
echo -a _____________________________________________________________________________________
echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor...
echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os
echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: [email protected]
echo -a 4,1[00,01 SaNCaK 4,1] 15,1 www.mircclub.org 12©SaNCaK 15 1999-2017
echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: {
.echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: ip-tracker $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: [email protected] $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: ip-tracker $chr(40) $+ v5.4 $+ $chr(41))
}
raw 378:*: {
if ($regex($1-,/is connecting from [*][@](.+)\s(.+)/)) {
var %host $regml(1)
var %ip $regml(2)
set %tracknick $$2
set %trackip %ip
sockopen ip-tracker ip-tracker.org 80
}
}
on *:SOCKOPEN:ip-tracker: {
if ($sockerr) {
echo -a Error: $sock(tracert).wsmsg
}
else {
sockwrite -n $sockname GET /locator/ip-lookup.php?ip= $+ %trackip HTTP/1.0
sockwrite -n $sockname Host: www.ip-tracker.org
sockwrite -n $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
}
on *:SOCKREAD:ip-tracker: {
sockread %ip-tracker
if $regex(%ip-tracker,/<th>IP Address:</th> <td class='tracking'>([^<>]+)/) {
var %ip $regml(1)
}
if $regex(%ip-tracker,/<th>Hostname:</th> <td>([^<>]+)/) {
var %host $regml(1)
}
if $regex(%ip-tracker,/<th>Continent:<\/th><td class='tracking'>([^<>]+)/) {
var %continent $regml(1)
}
if $regex(%ip-tracker,/<th>Country:</th><td>([^<>]+)/) {
var %country $remove($regml(1), )
}
if $regex(%ip-tracker,/<th>Capital:</th><td class='tracking'>([^<>]+)/) {
var %capital $regml(1)
}
if $regex(%ip-tracker,/<th>State:</th><td class='tracking'>([^<>]+)/) {
var %state $regml(1)
}
if $regex(%ip-tracker,/<th>City Location:</th><td>([^<>]+)/) {
var %city $regml(1)
}
if $regex(%ip-tracker,/<th>ISP:</th><td class='tracking'>([^<>]+)/) {
var %isp $regml(1)
}
if $regex(%ip-tracker,/<th>Organization:</th><td>([^<>]+)/) {
var %organization $regml(1)
echo -a %tracknick is connnecting from (Contintent: %continent $+ , Country: %country $+ , State: %state $+ , City: %city $+ , ISP: %isp $+ )
echo -a %tracknick is at Organization %organization
}
}