Konu: !nerden Nick
Tekil Mesaj gösterimi
Alt 11 Ocak 2013, 13:56   #1
Çevrimiçi
By_ATMACA
~ Coktatli.net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
!nerden Nick




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { set %ip $1 sockclose nerden sockopen nerden whatismyipaddress.com 80 } on *:sockopen:nerden:{ sockwrite -n $sockname GET /ip/ $+ %ip HTTP/1.1 sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf } on *:sockread:nerden:{ var %happen sockread $htmlfree(%happen) .tokenize 32 $htmlfree(%happen) if (*State/Region:* iswm %happen) { .set %yerelbölge 0 .set %yerelbölge $1 $2 .set %yerelbölge $remove(%yerelbölge,State/Region:) } if (*City:* iswm %happen) { .set %yerelsehir 0 .set %yerelsehir $1 $2 .set %yerelsehir $remove(%yerelsehir,City:) } if (*Country:* iswm %happen) { .set %yerelulke 0 .set %yerelulke $1 $2 .set %yerelulke $remove(%yerelulke,Country:) } if (*Latitude:* iswm %happen) { .set %yerelenlem 0 .set %yerelenlem $1 $2 .set %yerelenlem $remove(%yerelenlem,Latitude:) } if (*Longitude:* iswm %happen) { .set %yerelboylam 0 .set %yerelboylam $1 $2 .set %yerelboylam $remove(%yerelboylam,Longitude:) .msg #kontrol 12« 5Verdiginiz Nickın Bılgılerıne Bakılıyor Lutfen Bekleyın.. 12» .msg #kontrol 12« 5Nick: 1 %yerelnick  12» .msg #kontrol 12« 5IP No: 1 %ip  12» .msg #kontrol 12« 5Bölge: 1 %yerelbölge  12» .msg #kontrol 12« 5Şehir: 1 %yerelsehir  12» .msg #kontrol 12« 5Ülke: 1 $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin,EGYPT,Mısır)  12» .msg #kontrol 12« 5Enlem: 1 %yerelenlem  12» .msg #kontrol 12« 5Boylam: 1 %yerelboylam  12» } } on *:text:*:#bilgi:{ if ($1 == !nerden) && $2 { bak $2 } } alias bak { .whois $1 | enable #dirim } #dirim off raw 328:*: { nerden $7 | .set %yerelnick $2 | disable #dirim } #dirim end alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;) return %x }

Kod @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ArKadaşimiza Ait kod Suan ÇaLişmior Yardim.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver