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

8Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Ocak 2013, 13:56   #1
Çevrimiçi
~ Coktatli.net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
!nerden Nick




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias nerden { set %ip $1 sockclose nerden sockopen nerden whatismyipaddress.com 80 } on *:sockopen:nerden:{ sockwrite -n $sockname GET /ip/ $+ %ip HTTP/1.1 sockwrite -n $sockname Host: whatismyipaddress.com $+ $crlf $+ $crlf } on *:sockread:nerden:{ var %happen sockread $htmlfree(%happen) .tokenize 32 $htmlfree(%happen) if (*State/Region:* iswm %happen) { .set %yerelbölge 0 .set %yerelbölge $1 $2 .set %yerelbölge $remove(%yerelbölge,State/Region:) } if (*City:* iswm %happen) { .set %yerelsehir 0 .set %yerelsehir $1 $2 .set %yerelsehir $remove(%yerelsehir,City:) } if (*Country:* iswm %happen) { .set %yerelulke 0 .set %yerelulke $1 $2 .set %yerelulke $remove(%yerelulke,Country:) } if (*Latitude:* iswm %happen) { .set %yerelenlem 0 .set %yerelenlem $1 $2 .set %yerelenlem $remove(%yerelenlem,Latitude:) } if (*Longitude:* iswm %happen) { .set %yerelboylam 0 .set %yerelboylam $1 $2 .set %yerelboylam $remove(%yerelboylam,Longitude:) .msg #kontrol 12« 5Verdiginiz Nickın Bılgılerıne Bakılıyor Lutfen Bekleyın.. 12» .msg #kontrol 12« 5Nick: 1 %yerelnick  12» .msg #kontrol 12« 5IP No: 1 %ip  12» .msg #kontrol 12« 5Bölge: 1 %yerelbölge  12» .msg #kontrol 12« 5Şehir: 1 %yerelsehir  12» .msg #kontrol 12« 5Ülke: 1 $replace(%yerelulke,TURKEY,Türkiye,GERMANY,Almanya,NETHERLANDS,Hollanda,UNITED KINGDOM,Ingiltere,UNITED STATES,Amerika B. Devletleri,CHINA,Çin,EGYPT,Mısır)  12» .msg #kontrol 12« 5Enlem: 1 %yerelenlem  12» .msg #kontrol 12« 5Boylam: 1 %yerelboylam  12» } } on *:text:*:#bilgi:{ if ($1 == !nerden) && $2 { bak $2 } } alias bak { .whois $1 | enable #dirim } #dirim off raw 328:*: { nerden $7 | .set %yerelnick $2 | disable #dirim } #dirim end alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;) return %x }

Kod @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ArKadaşimiza Ait kod Suan ÇaLişmior Yardim.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 11 Ocak 2013, 19:55   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




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.
sockwrite -n $sockname $crlf } on *:sockread:yerbul: { var %yerbul sockread %yerbul if (*<i>*</i><b>* iswm %yerbul) { msg %aktif 4Hostu:2 $gettok($replacecs($htmlfree(%yerbul),Hostname:,@),2,64) } if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 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

Farklı bir siteye(uzun zamandır kullandığım bir site) göre ayarlamıştım. .nerden ip veya .nerden Nick şeklinde kullanabilirsin veya "!" ünlemde kullanabilirsin (!nerden) şeklinde. Hangi kanalda yaparsan o kanala sonuç verir.
Not: Kodu bu şekilde Scriptine eklersen diğer kullanıcılar tarafından kullanılabilir. Eğer sadece kendin kullanmak istersen ;
Bu Satırı;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {

Bunula değiştirin;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*: {


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 11 Ocak 2013, 20:01   #3
Çevrimiçi
~ Coktatli.net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




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 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.
sockwrite -n $sockname $crlf } on *:sockread:yerbul: { var %yerbul sockread %yerbul if (*<i>*</i><b>* iswm %yerbul) { msg %aktif 4Hostu:2 $gettok($replacecs($htmlfree(%yerbul),Hostname:,@),2,64) } if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 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

Farklı bir siteye(uzun zamandır kullandığım bir site) göre ayarlamıştım. .nerden ip veya .nerden Nick şeklinde kullanabilirsin veya "!" ünlemde kullanabilirsin (!nerden) şeklinde. Hangi kanalda yaparsan o kanala sonuç verir.
Not: Kodu bu şekilde Scriptine eklersen diğer kullanıcılar tarafından kullanılabilir. Eğer sadece kendin kullanmak istersen ;
Bu Satırı;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: {

Bunula değiştirin;
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*: {


ÇaLişmadi USERIP Bilinmeyen Komut Kullandiniz.

 
Alıntı ile Cevapla

Alt 11 Ocak 2013, 20:21   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




CR' mu senin bulunduğun sunucu ? Eğer CR ise CR hakkında hiçbir bilgim yok, bilgisi olan arkadaşlar kodu dilediği gibi değiştirebilir.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 11 Ocak 2013, 22:43   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




CR ye uyumlu şekli, ayrıca active ekrana yansıyordu sonuçlar onu kanala yansıyacak şekilde ayarladım.
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.
sockwrite -n $sockname $crlf } on *:sockread:yerbul: { var %yerbul sockread %yerbul if (*<i>*</i><b>* iswm %yerbul) { msg %aktif 4Hostu:2 $gettok($replacecs($htmlfree(%yerbul),Hostname:,@),2,64) } if (<i>*</i> <b>* iswm %yerbul) || (<i>*<b>*</b><br />* iswm %yerbul) { msg %aktif 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 $chan .nerden $2 .timer 1 2 .sockclose nerden } else { who $2 .enable #nerdenbul set -e %aktif $chan .timer 1 2 .sockclose nerden } } } #nerdenbul off raw 352:*:{ set %nrd $4 nerden $4 .disable #nerdenbul } #nerdenbul end


 
Alıntı ile Cevapla

Alt 11 Ocak 2013, 22:45   #6
Goemon
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




Med CeziR ellerine sağlık usta sendende bu beklenirdi. bir tşk ü çok görmezler inş.

 
Alıntı ile Cevapla

Alt 11 Ocak 2013, 22:55   #7
Çevrimiçi
~ IRCTR.Org ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




By-ATMACA
Senın verdıgın kod zaten calısıyor Ben Duzenlemıstım Zamanında

[22:52] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> !nerden DaDaS
[22:52] <@TRBoT> « Verdiginiz Nickın Bılgılerıne Bakılıyor Lutfen Bekleyın.. »
[22:52] <@TRBoT> « Nick: DaDaS »
[22:52] <@TRBoT> « IP No: 78.168.190.43 »
[22:52] <@TRBoT> « Bölge: Erzurum »
[22:52] <@TRBoT> « Şehir: Erzurum »
[22:52] <@TRBoT> « Ülke: Türkiye »
[22:52] <@TRBoT> « Enlem: »
[22:52] <@TRBoT> « Boylam: »

 
Alıntı ile Cevapla

Alt 11 Ocak 2013, 22:58   #8
Çevrimiçi
~ Coktatli.net ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (2)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




[22:56] <Koruma2> Hostu: 46-45-170-103.turkrdns.com
[22:56] <Koruma2> Ülke: Turkey
[22:56] <Koruma2> Ülke Kodu: TUR
[22:56] <Koruma2> Kıta: Asia
[22:56] <Koruma2> Bölge:
[22:56] <Koruma2> Şehir:
[22:56] <Koruma2> Enlem: 39
[22:56] <Koruma2> Boylam: 35
[22:56] <Koruma2> Şirket: Istanbul DC Customer
[22:56] <Koruma2> Servis Sağlayıcı: Radore Hosting Telekomunikasyon Hizmetleri San. ve
Die Çıkıor

 
Alıntı ile Cevapla

Alt 19 Ocak 2013, 11:20   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




Güzel bir kod Eline sağlık

 
Alıntı ile Cevapla

Alt 30 Ocak 2015, 13:55   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !nerden Nick




Konuyu hortlatmış gibi olmayayım, bu kod'u sunucuya her gireni otomatik olarak sorgulayıp elde ettiği verileri #dns kanalına aktarabilir hale nasıl getirebiliriz ? Değerli fikirleriniz için şimdiden teşekkür ederim.

 
Alıntı ile Cevapla

Cevapla

Etiketler
nerden, nick


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
!ulke nick (nerden baglandigina bakin) XcLusive mIRC Scripting Hazır Kodlar 34 20 Ocak 2016 23:57
!rootekle nick !rootsil nick !root bot'a üzerinde nasil uygularım? ircmsn mIRC Scripting Sorunları 30 20 Temmuz 2012 18:15
!nerden Nick Şeklinde nick bilgileri ögrenme kod istegi Nothinq mIRC Scripting Sorunları 3 07 Şubat 2011 14:44