IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  vaybe sohbet

>
+
Etiketlenen Kullanıcılar

24Beğeni(ler)

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 27 Şubat 2015, 05:15   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Kodu Çalısmıyor




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ if $regex($1,/^([!\.]nerden)$/i) { if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } on *:input:#:{ if $regex($1,/^([!\.]nerden)$/i) { if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return } set %:kanal # if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 } else { .enable #nerdenbul | .who +I $2 } } } #nerdenbul off raw 352:*: _nerden $4 raw 315:*:.disable #nerdenbul #nerdenbul end alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) api.ipinfodb.com 80 | sockmark $+(yerbul,%:r) $1 } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:yerbul*:{ sockwrite -n $sockname GET $+(/v3/ip-city/?key=<BURAYA-YAPISTIR>&format=xml&ip=,$sock($sockname).mark) HTTP/1.1 sockwrite -n $sockname Host: api.ipinfodb.com sockwrite -n $sockname Connection: keep-alive sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36 sockwrite -n $sockname $crlf msg %:kanal - } on *:sockread:yerbul*:{ var %:yerbul | sockread -f %:yerbul if (<countryName> isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),1,58),Belirsiz,$token($htmlfree(%:yerbul),1,58)) } if (<countryCode> isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),1,58),Belirsiz,$token($htmlfree(%:yerbul),1,58)) } if (<regionName> isin %:yerbul) { msg %:kanal Sehir:4 $iif(!$token($htmlfree(%:yerbul),1,58),Belirsiz,$token($htmlfree(%:yerbul),1,58)) } if (<cityName> isin %:yerbul) { msg %:kanal İlçe:4 $iif(!$token($htmlfree(%:yerbul),1,58),Belirsiz,$token($htmlfree(%:yerbul),1,58)) } if (<latitude> isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),1,58),Belirsiz,$token($htmlfree(%:yerbul),1,58)) } if (<longitude> isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),1,58),Belirsiz,$token($htmlfree(%:yerbul),1,58)) } }

Sorgulattiginiz sitede belli bir limit vardir bu limit'i astiginiz takdirde dogal olarak calismayacaktir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] burdan sorgulattigimiz siteye kayit olun.
Kayit olduktan sonra size key verecek aldiginiz key'i kod kisminda belirttigim yere yapistiriniz. (...key=<BURAYA-YAPISTIR>...)
Sorunsuz bir sekilde calisacaktir, ben uzun zamandir bu siteyi kullaniyorum gayet iyi calisiyor ve diger sitelere gore daha dogru gosteriyor.
Ayrica kayit olup API key aldiginiz icin limit koymuyorlar dilediginiz gibi kullanabilirsiniz.


 
Alıntı ile Cevapla

 

Etiketler
calısmıyor, kodu, nerden


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Bu Kodu nerden bulabilirim ACİL MorfiN mIRC Scripting Sorunları 2 10 Mart 2012 22:36
socket bot'a Greet kodu ekLememiz mümkünmü ? deLiyimmm mIRC Scripting Sorunları 3 27 Nisan 2010 00:16