IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
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