Çevrimdışı

Chelt Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

bunu böyle deneyin alias sorgula { if (!$1) { echo -a Lütfen bir IP giriniz. Örnek: /sorgula 1.2.3.4 | return } set %ipaddr $1 set %ipdata $null echo -a IP %ipaddr bilgileri sorgulanıyor... sockopen -e iplookup ipwho.is 443 } on *:SOCKOPEN:iplookup:{ if ($sockerr) { echo -a Sunucuyla bağlantı kurulamıyor. | sockclose $sockname | return } sockwrite -n $sockname GET / $+ %ipaddr HTTP/1.1 sockwrite -n $sockname Host: ipwho.is sockwrite -n $sockname User-Agent: mIRC sockwrite -n $sockname Connection: close sockwrite -n $sockname $crlf } on *:SOCKREAD:iplookup:{ if ($sockerr) { echo -a Sunucuyla bağlantı hatası. | sockclose $sockname | return } var %tmp sockread %tmp if (%tmp != $null) { if (!$regex(%tmp,/^(HTTP\/|Content-|Server:|Date:|Connection:|Access-Control)/i)) { set %ipdata %ipdata $+ %tmp } } } on *:SOCKCLOSE:iplookup:{ .timer 1 1 showdata } alias showdata { if (%ipdata == $null) { echo -a Gösterilecek veri yok. | unset %ipaddr | unset %ipdata | return } var %type = Bulunamadı var %asn = Bulunamadı var %country = Bulunamadı var %region = Bulunamadı var %city = Bulunamadı var %org = Bulunamadı var %domain = Bulunamadı var %continent = Bulunamadı ; API success kontrolü if ($regex(%ipdata,/"success":\s*false/i)) { echo -a 4HATA: API IP bilgisini döndüremedi. unset %ipaddr | unset %ipdata return } if ($regex(%ipdata,/"type":"([^"]+)"/i)) { set %type $regml(1) } if ($regex(%ipdata,/"continent":"([^"]+)"/i)) { set %continent $regml(1) } if ($regex(%ipdata,/"asn":\s*([0-9]+)/i)) { set %asn $regml(1) } elseif ($regex(%ipdata,/"asn":"AS([0-9]+)"/i)) { set %asn $regml(1) } if ($regex(%ipdata,/"org":"([^"]+)"/i)) { set %org $regml(1) } elseif ($regex(%ipdata,/"isp":"([^"]+)"/i)) { set %org $regml(1) } if ($regex(%ipdata,/"country":"([^"]+)"/i)) { set %country $regml(1) } if ($regex(%ipdata,/"region":"([^"]+)"/i)) { set %region $regml(1) } if ($regex(%ipdata,/"city":"([^"]+)"/i)) { set %city $regml(1) } if ($regex(%ipdata,/"domain":"([^"]+)"/i)) { set %domain $regml(1) } elseif ($regex(%ipdata,/"hostname":"([^"]+)"/i)) { set %d

coder sayilmam ama bence bu kod'da eksiklikler var. mümkün mü?

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!