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

24Beğeni(ler)

Yeni Konu aç Cevapla
 
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ı sohbet odaları Yazgulu 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

Etiketler
calısmıyor, kodu, nerden


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

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