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

Etiketlenen Kullanıcılar

16Beğeni(ler)
  • 13 Post By Feragat
  • 1 Post By Goemon
  • 2 Post By Feragat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Mart 2013, 04:43   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
.nerden [IP|Nick] Yeni..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { if $sock(yerbul) { sockclose yerbul } sockopen yerbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on $*:text:/^((!|.)nerden\40\S+)$/i:#: { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } on *:sockopen:yerbul:{ var %xy = sockwrite -n $sockname %xy GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1 %xy host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive %xy Cache-Control: max-age=0 %xy Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36 %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 %xy $crlf } on *:sockread:yerbul: { if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } var %yerbul sockread %yerbul if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) } if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2) } if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) } if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) } if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) } if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) } if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) } if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) } } #nrdn off raw 340:*: { if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down } set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) .nerden :down .disable #nrdn .halt } #nrdn end

Kullanımı: !nerden <Nick> veya !nerden <IP>
Not:Eğer kodu başkaları değilde siz kullanmak isterseniz;

Bu bölümü
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/^((!|.)nerden\40\S+)$/i:#: { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } }

Aşağıdaki ile değiştirin.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#: { if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } }

iyi forumlar.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 27 Mart 2013, 23:03   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (-1)
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




bunu Sade OPER'ler Kullansın Dersek
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 27 Mart 2013, 23:41   #3
Goemon
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




en basiti yönetim yada opers kanalına yönlendirebilirsin

on $*:text:/^((!|.)nerden\40\S+)$/i:#yönetim: {

yada

on $*:text:/^((!|.)nerden\40\S+)$/i:#opers: {

gibi sadece o kanaldaki kişiler kullanabilir hayırlı akşamlar feragat eline sağlık.

 
Alıntı ile Cevapla

Alt 29 Mart 2013, 13:26   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




Feragat Nickli Üyeden Alıntı
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!
alias nerden { if $sock(yerbul) { sockclose yerbul } sockopen yerbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on $*:text:/^((!|.)nerden\40\S+)$/i:#: { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } on *:sockopen:yerbul:{ var %xy = sockwrite -n $sockname %xy GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1 %xy host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive %xy Cache-Control: max-age=0 %xy Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36 %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 %xy $crlf } on *:sockread:yerbul: { if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } var %yerbul sockread %yerbul if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) } if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2) } if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) } if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) } if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) } if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) } if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) } if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) } } #nrdn off raw 340:*: { if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down } set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) .nerden :down .disable #nrdn .halt } #nrdn end

Kullanımı: !nerden <Nick> veya !nerden <IP>
Not:Eğer kodu başkaları değilde siz kullanmak isterseniz;

Bu bölümü
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/^((!|.)nerden\40\S+)$/i:#: { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } }

Aşağıdaki ile değiştirin.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#: { if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) { if $regex($2,^\d) { .set -e %nrd $2 | set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn set -e %c_n $chan } } }

iyi forumlar.


Teşekkürler kod çok güzel hoşuma gitti ama

[13:06.13] <07UsTa> !nerden KeskiN
[13:06.14] <07UsTa> 2Host:4 176.33.230.173
[13:06.14] <07UsTa> 2Ulke:4 Turkey
[13:06.14] <07UsTa> 2Ulke Kodu:4 TUR
[13:06.14] <07UsTa> 2Kita:4 Asia
[13:06.14] <07UsTa> 2Bolge:4 Ankara
[13:06.14] <07UsTa> 2Sehir:4 Ankara
[13:06.14] <07UsTa> 2Organizasyon:4 Tellcom Iletisim Hizmetleri A.s.
[13:06.14] <07UsTa> 2Servis Saglayici:4 Tellcom Iletisim Hizmetleri A.s.

Bu arkadaş Kayseriden bağlanıyor, acaba her İP numarasına duyarlı değilmi, teşekkürler.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:26 -->-> Daha önceki mesaj 13:09 --

SkandaL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
en basiti yönetim yada opers kanalına yönlendirebilirsin

on $*:text:/^((!|.)nerden\40\S+)$/i:#yönetim: {

yada

on $*:text:/^((!|.)nerden\40\S+)$/i:#opers: {

gibi sadece o kanaldaki kişiler kullanabilir hayırlı akşamlar feragat eline sağlık.


on $*:text:/^((!|.)nerden\40\S+)$/i:#OperHelp: {
kanalı olarak ayarladım ama bu sefer benden hariç OperHelp kanalındaki herkes kullanıyor,
hem benim hem OperHelp kanalında bulunan zevatın kullanması için burayı nasıl değiştirmemiz gerekiyor, teşekkürler.

 
Alıntı ile Cevapla

Alt 29 Mart 2013, 15:13   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




Eğer kendi scriptine eklersen(on $*:text...) event ı ile, başkaları !nerden <Nick veya IP> komutu ile kullanabilir sen kullanamazsın. Bu tarz sorgular %100 doğru göstermez, Ayrıca bazı kullanıcılar sorgulanan nickin veya IP in ev adresini gösteriyor gibi yalnış bilgilere sahip, yalnızca IP adresinin dağıtıldığı,sağlandığı hizmet binasının adresini gösterir(Genellikle aynı şehirdir.) ve bu kesinlikle %100 değildir, bölgeye, konuma ve pek çok şeye göre farklılık gösterir. Eğer !nerden <Nick veya IP> komutuyla hem sen, hem de başkaları kullansın istiyorsan bir bota vs. "on $*:text" event'ı ile entegre etmen gerek kodu. Aslında pek çok site var IP sorgulayan ben uzun zamandır bunu kullanıyordum, diğerlerinden bana göre biraz daha sağlıklı geldiği için(kısmen) bu adresi seçtim.

Eğer kodu kendi Scriptine aşağıdaki haliyle eklersen hem sen hemde diğer kullanıcılar Kullanabilir.
Not: Diğer kullanıcılar #OperHelp kanalda !nerden <Nick veya IP> şeklinde kullanılar, Sen /bul <Nick veya IP> komutuyla kullanabilirsin. İyi forumlar.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bul { if $regex($1,/(\d+\56\d+\56\d+\56\d+)$/iA) { .set -e %nrd $1 | .set -e %c_n $chan | .nerden } elseif $regex($1,/^[^\d]/i) { .userip $1 | .enable #nrdn | .set -e %c_n $chan } } alias nerden { if $sock(yerbul) { sockclose yerbul } sockopen yerbul
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 } on $*:text:/^((!|.)nerden\40\S+)$/i:#OperHelp: { if $regex($2,^\d) { .set -e %nrd $2 | .set -e %c_n $chan .nerden } else { .userip $2 .enable #nrdn .set -e %c_n $chan } } on *:sockopen:yerbul:{ var %xy = sockwrite -n $sockname %xy GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1 %xy host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Connection: keep-alive %xy Cache-Control: max-age=0 %xy Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8 %xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36 %xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4 %xy $crlf } on *:sockread:yerbul: { if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt } var %yerbul sockread %yerbul if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) } if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2) } if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) } if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) } if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) } if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) } if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) } if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) } } #nrdn off raw 340:*: { if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down } .set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1) .nerden :down .disable #nrdn } #nrdn end


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 02 Nisan 2019, 21:55   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




çalışmıyor artık

 
Alıntı ile Cevapla

Alt 02 Nisan 2019, 22:16   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




AcImasIz77 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
çalışmıyor artık

Siteye 1,2 gün erişim yoktu bugün aktif oldu, şuan kodda bir sıkıntı yok çalışıyor.

__________________
Dünyanın en güzel yeri neresi biliyor musun? Biraz kenara kaysana...
 
Alıntı ile Cevapla

Alt 03 Nisan 2019, 20:37   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




Site bende hala çalışmıyor



[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ Ip

Bu adres üzerinden düzenleyen olursa çok makbüle geçer. Sonuçları çok daha doğru çıkıyor

 
Alıntı ile Cevapla

Alt 04 Nisan 2019, 21:06   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: .nerden [IP|Nick] Yeni..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:wip:{ sockwrite -tn $sockname GET $+(/,%sip,/json?token=bdbdb82ae05b96) HTTP/1.1 sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8 sockwrite -tn $sockname Connection: keep-alive sockwrite -tn $sockname Host: ipinfo.io sockwrite -tn $sockname $crlf } on *:sockread:wip:{ var %d_wip | sockread %d_wip | tokenize 32 %d_wip if *"ip":* iswm %d_wip { Echo -a 2IP Adresi:4 $gettok(%d_wip,2-,58) } if *"hostname":* iswm %d_wip { Echo -a 2Host Uzantısı:4 $gettok(%d_wip,2-,58) } if *"region":* iswm %d_wip { Echo -a 2Şehir:4 $gettok(%d_wip,2-,58) } if *"country":* iswm %d_wip { Echo -a 2Ülke:4 $gettok(%d_wip,2-,58) } if *"loc":* iswm %d_wip { Echo -a 2Lokasyon:4 $gettok(%d_wip,2-,58) } if *"postal":* iswm %d_wip { Echo -a 2Posta Kodu:4 $gettok(%d_wip,2-,58) } if *"org":* iswm %d_wip { Echo -a 2Bağlantı kaynağı:4 $gettok(%d_wip,2-,58) | sockclose wip } } alias d_wip { if $regex($1,/(\d+\.\d+.\d+\.\d+)/) { sockclose d_wip | %sip = $replace($1,-,.) | sockopen wip ipinfo.io 80 | return } set -e %d_nick $1 | enable #wip | userip $1 } #wip off raw 340:*:{ if $2 { %sip = $gettok($2,2,64) | sockopen wip ipinfo.io 80 | disable #wip | return } echo -a %d_nick nickinin ip adresine ulasılamadı. | disable #wip } #wip end

Kullanım şekli aynıdır. Operator kaynaklı bağlantılarda gerçek konumun verilmesi imkansız gibi görünüyor. dolayısı ile şu site gerçeği söylüyor demek çok zor. Yinede en doğru bilgi ülke bilgisidir gerisine pek takılmayın derim.
Umarım işinize yarar.

__________________
TurkSohbet.NET | #XPass

Konu Feragat tarafından (09 Temmuz 2019 Saat 22:59 ) değiştirilmiştir. Sebep: mIRC Kodlarını CODE tagı içerisinde paylaşınız.
 
Alıntı ile Cevapla

Cevapla

Etiketler
ip|nick, nerden, yeni


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
!ulke nick (nerden baglandigina bakin) XcLusive mIRC Scripting Hazır Kodlar 34 20 Ocak 2016 23:57
!nerden Nick By_ATMACA mIRC Scripting Sorunları 10 30 Ocak 2015 17:06
!nerden Nick Şeklinde nick bilgileri ögrenme kod istegi Nothinq mIRC Scripting Sorunları 3 07 Şubat 2011 14:44