Mirc Icin Whois Kodu
Kisi Sorgulama
Detayli Whois
Kod:
on *:sockopen:whoiz:{
sockwrite -n $sockname GET /index.php?query= $+ %difyipno HTTP/1.1
sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $clrf
}
on *:sockread:whoiz:{
if ($sockerr) { echo -a Veri aliminda Hata olustu. | halt }
else {
var %difi
sockread %difi
if (*Country*Region*City* iswm %difi) { set %dify $htmlfree($replace(%difi,
,$chr(32))) }
elseif (*Registry*Information* iswm %difi) {
sockclose whoiz
if $regex(%dify,/Region City ISP (.+) Google Map for.+Geolocation data from/i) {
set %difuzyon $regml(1)
if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -adk0 +let @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 700 80 290 132 Verdana 12 | titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yerel bilgiler… }
else { window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Nick1…11:8 %difyyerelnick 1…………………………………………….
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1IP no1.11:8 $token(%difuzyon,1,32) 1……………………………………………..
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Ülke1……………11:9 $token(%difuzyon,2,32) 1……………………………………..
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Bölge1………….11:9 $token(%difuzyon,3,32) 1…………………………………
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Sehir1…………..11:9 $token(%difuzyon,4,32) 1………………………………..
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 11,1Organizasyon:9 $token(%difuzyon,5-,32) 1………………………………………….
aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 0,1—————-Bilgi Sonu————————————————————
unset %dif*
}
}
}
}
alias baglanti {
sockclose whoiz
sockopen whoiz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
on *:snotice:*whois*on*you*: {
if !$hfind(Whoisler,$2).item && !$regex($sock(yerelbilgi).status,active) {
hadd -m Whoisler $2 $remove($token($3,2,64),$chr(41))
set -e %difyipno $remove($token($3,2,64),$chr(41))
set -e %difyyerelnick $2
baglanti
echo -a 9,2***8 $2 11nicki size whois çekti,bilgileri aliniyor…
}
}
|
