Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:wip:{
sockwrite -tn $sockname GET $+(/,%sip,/json?token=bdbdb82ae05b96) HTTP/1.1
sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8
sockwrite -tn $sockname Connection: keep-alive
sockwrite -tn $sockname Host: ipinfo.io
sockwrite -tn $sockname $crlf }
on *:sockread:wip:{ var %d_wip | sockread %d_wip | tokenize 32 %d_wip
if *"ip":* iswm %d_wip { Echo -a 2IP Adresi:4 $gettok(%d_wip,2-,58) }
if *"hostname":* iswm %d_wip { Echo -a 2Host Uzantısı:4 $gettok(%d_wip,2-,58) }
if *"region":* iswm %d_wip { Echo -a 2Şehir:4 $gettok(%d_wip,2-,58) }
if *"country":* iswm %d_wip { Echo -a 2Ülke:4 $gettok(%d_wip,2-,58) }
if *"loc":* iswm %d_wip { Echo -a 2Lokasyon:4 $gettok(%d_wip,2-,58) }
if *"postal":* iswm %d_wip { Echo -a 2Posta Kodu:4 $gettok(%d_wip,2-,58) }
if *"org":* iswm %d_wip { Echo -a 2Bağlantı kaynağı:4 $gettok(%d_wip,2-,58) | sockclose wip } }
alias d_wip { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) {
sockclose d_wip | %sip = $replace($1,-,.) | sockopen wip ipinfo.io 80 | return }
set -e %d_nick $1 | enable #wip | userip $1 }
#wip off
raw 340:*:{ if $2 { %sip = $gettok($2,2,64) | sockopen wip ipinfo.io 80 | disable #wip | return }
echo -a %d_nick nickinin ip adresine ulasılamadı. | disable #wip }
#wip end
Kullanım şekli aynıdır. Operator kaynaklı bağlantılarda gerçek konumun verilmesi imkansız gibi görünüyor. dolayısı ile şu site gerçeği söylüyor demek çok zor. Yinede en doğru bilgi ülke bilgisidir gerisine pek takılmayın derim.
Umarım işinize yarar.