!nerden Kodu Çalısmıyor - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

CINN · 26 Şubat 2015, 12:26

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] s.a kardeşim seni yine rahatsız edecez ama bu !nerden kodu yine çalısmıyor mümkünse kodu bı bakabilirmisin

Toprak · 26 Şubat 2015, 13:09

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] s.a kardeşim seni yine rahatsız edecez ama bu !nerden kodu yine çalısmıyor mümkünse kodu bı bakabilirmisin

a.Selam şuan denedim çalışıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

CINN · 26 Şubat 2015, 15:21

alla alla bende çalışmıyor senin düzeltmenden sonra bı kac kez aynı sekılde calısmamazlık yaptı ama 2 gündür tık yok

¿ · 27 Şubat 2015, 05:15

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.

Toprak · 27 Şubat 2015, 14:06

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Sorgulanan sitenin sağ üst köşesindeki bir not;
%87 doğruluk oranı ve site üzerinde sınırsız sorgu.

zeusmk · 10 Mayıs 2015, 04:41

bu kodun nasıl çalışacağını anlatırsanız sevinirim. ben yapamadım

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) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  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  
} 
on *:sockread:yerbul*:{  
  var %:yerbul | sockread -f %:yerbul
  if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
  if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP City: isin %:yerbul) { msg %:kanal Sehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}

Feragat · 10 Mayıs 2015, 11:59

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

bu kodun nasıl çalışacağını anlatırsanız sevinirim. ben yapamadım

ALT + R ile Remote sayfasını açıp, boş bir Remote sayfasına ekle. Sonra herhangi bir kanalda !nerden IP yazarak sorgu yapabilirsin.

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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.