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

 Kayıt ol  Topluluk
24Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 1 Toplam 3 Sayfadan 1 23
 
LinkBack Seçenekler Stil
Alt 16 Şubat 2015, 09:18   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
!nerden Kodu Çalısmıyor



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias nerden { sockopen yerbul [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80  }  
on *:sockopen:yerbul:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
  sockwrite -n $sockname host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf  
}  
on *:sockread:yerbul: {  
  var %yerbul
  sockread %yerbul
  if (*<i>*</i><b>* iswm %yerbul) { msg #opers 4Hostu:2 $gettok($replacecs($htmlfree(%yerbul),Hostname:,@),2,64) }
  if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg #opers 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ülke,Code,Kodu,IP Continent,Kıta,IP Region,Bölge,IP City,Şehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Şirket,ISP Provider,Servis Sağlayıcı) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) }
}
on *:text:*:#: {
  if ($1 == !nerden) || ($1 == .nerden) && ($2) {
    if ($left($2,1) isnum) { 
      .set -e %nrd $2 | set -e %aktif $active
      .nerden $2
      .timer 1 2 .sockclose nerden  
    }
    else { 
      .userip $2
      .enable #nerdenbul
      set -e %aktif $active
      .nerden $2
      .timer 1 2 .sockclose nerden

    }
  }
}
#nerdenbul off
raw 340:*: {
  set %nrd $gettok($2,2,64)
  .disable #nerdenbul
}
#nerdenbul end


Konu Toprak tarafından (16 Şubat 2015 Saat 16:47 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 16 Şubat 2015, 18:40   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Kodu Çalısmıyor



Çalışmamasının sebep'i belli aslında biraz uğraşsan sende yapabilirsin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Buyur;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias htmlfree {  
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x  
}
alias nerden sockopen yerbul 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  
on *:sockopen:yerbul:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color="Red">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 %yerbul
  if (*<i>*</i><b>* iswm %yerbul) { msg #opers 4Hostu:2 $gettok($replacecs($htmlfree(%yerbul),Hostname:,@),2,64) }
  if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg #opers 4 $+ $replacecs($gettok($htmlfree(%yerbul),1,58),IP Country,Ülke,Code,Kodu,IP Continent,Kıta,IP Region,Bölge,IP City,Şehir,IP Latitude,Enlem,IP Longitude,Boylam,Organization,Şirket,ISP Provider,Servis Sağlayıcı) $+ : $+ 2 $+ $gettok($htmlfree(%yerbul),2,58) }
}
on *:text:*:#: {
  if $regex($1,/^([!\.]nerden)$/i) && ($2) {
    if ($left($2,1) isnum) { 
      .set -e %nrd $2 | set -e %aktif $active
      .nerden $2
      .timer 1 2 .sockclose nerden  
    }
    else { 
      .userip $2
      .enable #nerdenbul
      set -e %aktif $active
      .nerden $2
      .timer 1 2 .sockclose nerden

    }
  }
}
#nerdenbul off
raw 340:*: {
  set %nrd $gettok($2,2,64)
  .disable #nerdenbul
}
#nerdenbul end

Eklediğim yeri kırmızı olarak belirttim..



Buda benden olsun biraz kısalttım ve basit bir hal aldı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 }
}


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

Alt 16 Şubat 2015, 21:11   #3
Ç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



Emeğine sağlık Toprak

 
Alıntı ile Cevapla

Alt 17 Şubat 2015, 07:38   #4
Ç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



Toprak sen varya bi harikasın tşk ederim kardesım ellerine saglık.Bu arada bu kod 1 haftadır calısmıyordu 1 uzun zamandır botta kullanıyoruz gayet saglıklı çalısıyordu.Bİrde sunu sorayım şehir olarak belirsiz dıe gösterıo stattik ip kullanıyorum ben ama baska iplerde de aynı sey diyor sebebı nedır acaba

 
Alıntı ile Cevapla

Alt 17 Şubat 2015, 09:04   #5
Ç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



link sonunda xx.xx.xx.xx olan yeri kendi IP adresinizle yada bilgisine bakmak istediğiniz adresle değişerek şu linki açın.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

sayfanın en altında şu notu göreceksiniz->
"Tracking, tracing percentage and accuracy from our free IP Address Locator tool comparing with another IP lookup tools on the Net is very high. However we cannot guarantee 100% accuracy of our IP database and our IP Address Lookup tool."

kısaca diyor ki "bizim ücretsiz IP arama aracımız net'teki diğer IP arama araçlarının verileriyle kıyaslanırsa ,doğruluk oranı oldukça yüksektir.Ancak bizim verilerimizin de doğruluğunu %100 garanti edemeyiz."
demişler.

ki net'teki hiçbir sitede bizim verilerimiz %100 doğrudur diyemez/diyemiyor.

o nedenle bazı bakılan adreslerde bilgi/veri eksikliği yada hatası olması herzaman ihtimal dahilindedir.

 
Alıntı ile Cevapla

Alt 17 Şubat 2015, 09:30   #6
Ç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



@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] anladım kardesım haklısın bu konuda ama su varki sorunlu olan kod uzun zamandır kullandım ve pek fazla yanılmadı verdıgı bilgilerde ama sagolsun @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardesımız halletti sorunu

 
Alıntı ile Cevapla

Alt 26 Şubat 2015, 12:26   #7
Ç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



@[Ü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

 
Alıntı ile Cevapla

Alt 26 Şubat 2015, 13:09   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Kodu Çalısmıyor



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.
 
Alıntı ile Cevapla

Alt 26 Şubat 2015, 15:21   #9
Ç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



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

 
Alıntı ile Cevapla

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

Cevapla
Sayfa 1 Toplam 3 Sayfadan 1 23

Etiketler
calısmıyor, kodu, nerden

« önceki Konu | sonraki Konu »

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




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org