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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - !ulke nick (nerden baglandigina bakin) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/38475-ulke-nick-nerden-baglandigina-bakin.html)

XcLusive

24 Eylül 2007 17:25

!ulke nick (nerden baglandigina bakin)

Eğlence amaçlı yazdığım kodu paylaşmak istedim belki arkadaşlarımız sunucularına koymak ister..

Kodun Çalışması için Bot Nick'inin Oper Olması Gerek ve Aynı Mirc Üzerinden Denemeyin Farklı Mirc Açıp Deneyin.

Kod:

raw 340:*:{

if $2- == $null { msg #dns Ulkesine Baktığınız Nick - %ulkenick - Sunucumuzda Online Değil, Lütfen Başka Bir Nick Deneyiniz. | halt }

set %ulkenick $remove($gettok($2-,1,61),*)

set %ulkeip $gettok($2-,2,64)

ulkebul

halt

}

alias ulkebul {

sockclose ulke

sockopen ulke [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80

}

on *:sockopen:ulke:{

if ($sockerr) { msg #dns İşlem Gerçekleştirilemedi Lütfen Daha Sonra Tekrar Deneyin | halt }

sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %ulkeip HTTP/1.1

sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf

sockwrite -n $sockname $clrf

}

on *:sockread:ulke:{

var %ulkeoku

sockread %ulkeoku

if (%ulkeoku != $null) { 

if (*>City<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Sehir :4 $remove(%ulkeoku,<tr><td align="right">City</td><td><b>,</b></td></tr>, ) }

if (*State*or*Region* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Bolge :4 $remove(%ulkeoku,<tr><td align="right">State or Region</td><td><b>,</b></td></tr>, ) }

if (*>Country<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Ulke :4 $remove(%ulkeoku,<tr><td align="right">Country</td><td><b>,</b></td></tr>, ) }

if (*>ISP<* iswm %ulkeoku) { msg #dns %mesajnick 2 $+ %ulkenick Baglandigi ADSL :4 $remove(%ulkeoku,<tr><td align="right">ISP</td><td><b>,&nbsp;</b></td></tr>, ) | sockclose $sockname }

}

}

on *:text:*:#dns:{

if ($1 == !ulke) {

if ($sock(ulke)) { msg #dns Suanda Baska Bir Nick'in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }

set %ulkenick $remove($2,*)

set %mesajnick $nick

userip $2

msg $chan Lütfen Bekleyiniz...

msg $chan $2 Nick'inin ISP Adresi Kontrol Ediliyor..

}

}

Kodu remoteye ekledikten sonra #dns kanalında !ulke nick komutunu kullanarak kişilerin nerden bağlandığına bakabilirsiniz

NOT : bazen sehir cikmayabilir

Örnek :

[17:18:11] <Nick> !ulke Maria
[17:18:11] <Bot> Lütfen Bekleyiniz...
[17:18:11] <Botl> Maria Nick'inin ISP Adresi Kontrol Ediliyor..
[17:18:13] <Bot> Ozgur MaRiA Sehir : ISTANBUL
[17:18:13] <Bot> Ozgur MaRiA Bolge : ISTANBUL
[17:18:13] <Bot> Ozgur MaRiA Ulke : TURKEY
[17:18:13] <Bot> Ozgur MaRiA Baglandigi ADSL : TT ADSL-ALCATEL DYNAMIC_GAY.

[17:13:35] <Nick> !ulke ESmer_CaDi
[17:13:35] <Bot> Lütfen Bekleyiniz...
[17:13:35] <Bot> ESmer_CaDi Nick'inin ISP Adresi Kontrol Ediliyor..
[17:13:39] <Bot> Ozgur ESmer_CaDi Sehir : -
[17:13:39] <Bot> Ozgur ESmer_CaDi Bolge : -
[17:13:39] <Bot> Ozgur ESmer_CaDi Ulke : TURKEY
[17:13:39] <Bot> Ozgur ESmer_CaDi Baglandigi ADSL : TT ADSL-ALCATEL_ULU.

Umarım Beğenirsiniz Kolay Gelsin Arkadaşlar.

HaLiL (XcLusive)

Besmelejack

24 Eylül 2007 18:11

Cevap: !ulke nick (nerden baglandigina bakin)

Eline emeğine sağlık bana da code yazsana HaLiL :D:D Dünyanın sonu gelse sen bana code yazıp vermezsin :D Anca iki saat dil dökücem ki ondan sonra veresin :D:D

Cemalizim

24 Eylül 2007 18:24

Cevap: !ulke nick (nerden baglandigina bakin)

quseL eLİne SagLık :)

wachersphy

24 Eylül 2007 19:32

Cevap: !ulke nick (nerden baglandigina bakin)

kodu remoteye ekledim ama #dns de birşey olmuyor :S

Kan	24 Eylül 2007 19:43

Cevap: !ulke nick (nerden baglandigina bakin)

Çalışması için OPER yetkisi olması lazım.

Cemalizim

25 Eylül 2007 02:11

Cevap: !ulke nick (nerden baglandigina bakin)

waLLa caLısıyor ama Okadar hızLı degiL YanLız Kendi Mirc'inde Deneme Ba$ka Mirc aç öyle dene : )

TImezOne

25 Eylül 2007 02:50

Cevap: !ulke nick (nerden baglandigina bakin)

XcLusive ; uLa Usagım Trabzondanda olunırmı:) anLadın Sen Onu.Emegıne sagLık..

archangel

25 Eylül 2007 11:56

Cevap: !ulke nick (nerden baglandigina bakin)

buna benzer bir codda h4pp3n yazmıştı , !nerden nick ,şeklinde calışan bir coddu sanirim . başarılar.

XcLusive

25 Eylül 2007 23:46

Yanıt: !ulke nick (nerden baglandigina bakin)

Teşekkürler Arkadaşlar Umarım Size Eğlence Katar ve Beğenirsiniz.

Besmelejack

25 Eylül 2007 23:49

Cevap: !ulke nick (nerden baglandigina bakin)

Katmasada canın sağolsun HaLo :D

BLaCK_and_WHiTe

26 Eylül 2007 05:40

Cevap: !ulke nick (nerden baglandigina bakin)

Alıntı:

TimezOne Nickli Üyeden Alıntı (Mesaj 265769)

XcLusive ; uLa Usagım Trabzondanda olunırmı:) anLadın Sen Onu.Emegıne sagLık..

UUiiyyy haçen uşağım trabzon başka memleket mi daaa

alper123

27 Kasım 2007 04:23

Cevap: !ulke nick (nerden baglandigina bakin)

gerçekden emeginize saglık. bende bi tavsiyede bulunucam.burda daha çok bilği alma sansınız var.

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

örnek:
IP address location & IP address info:My IP address [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]:88.235.208.13 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] IP address country: Turkey IP address state:IstanbulIP address city:IstanbulIP address latitude:41.0186IP address longitude:28.9647ISP of this IP [[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]:Turk TelekomProxy:None / Highly Anonymous [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Organization:Turk TelekomLocal Time of this IP country:2007-11-27 04:16

GeCeLeRiN_YaRGICI

27 Kasım 2007 12:15

Cevap: !ulke nick (nerden baglandigina bakin)

Güzel çalışma ama genelde hepside yanlış gösteriyor yerleri..

ircmsn

02 Aralık 2007 10:37

Cevap: !ulke nick (nerden baglandigina bakin)

Belirtmis oldugunuz komut calismiyor, sadece bu mesaji kanala yaziyor sonuc olarak hic birsey vermiyor, böylece bekliyorum.

<Prens> !ulke Ali
<Bot> Lütfen Bekleyiniz...
<Bot> Ali Nick'inin ISP Adresi Kontrol Ediliyor..

XcLusive

29 Aralık 2007 23:46

Cevap: !ulke nick (nerden baglandigina bakin)

kodun çalışması için 1. ircop olmak gerekir 2. unreal ircd raw ayarına göre ayarlandı 3. #dns kanalında ve 4. başka bir mirc ile yapılması gerekir kodun yüklendiği mircten olmaz.

IRCDelisi

01 Ocak 2008 10:37

Cevap: !ulke nick (nerden baglandigina bakin)

Ben ekledim Sorunsuz çalışıyor.
Üstelik kendi nickime eklemişim Özel arkadaşlarıma Bu kodu yönlendirdiğim kanal adını weriyorum milletin bilgilerine bakıp eğleniyoruz :)
Bazen Hatayda oturan birini İzmir'de gösteriyor gibi pek nadir hatalar werse de genelde güzel çalışıyor. Eline sağlık coderim :)

Hayat

02 Şubat 2009 20:19

Cevap: !ulke nick (nerden baglandigina bakin)

Bu kod benim için çok gerekli gayette güzel fakat bu kodun çalışması için Nomercy gibi bir bot olacak ve sunucuda online olacak komutları algılayacak. herkesin mircine bunu koysam bir kişi ip sorguladığında tüm adminler tek tek yanıt verir olmaz.

Acaba bu kodu mircine yükleyen kişi komutu uyguladığında kendi sorusuna kendi cevap verebilirmi. Mesela ahmet nicki komut gönderdiğinde yine ahmet nicki kendine cevap verecek ya da sunucumda botserv kurulu bs say #kanal komutu ile bot konuşturuluyor botu konuşturabilirmiyiz ?

Freedom

03 Şubat 2009 15:21

Cevap: !ulke nick (nerden baglandigina bakin)

süper bi çalişma. tesekürler ..

Rohit

03 Şubat 2009 22:36

Cevap: !ulke nick (nerden baglandigina bakin)

wooww ..
Te$ekkurler guzel bi cali$ma.

Hayat

04 Şubat 2009 17:02

Cevap: !ulke nick (nerden baglandigina bakin)

Arkadaşlar istediğim şekilde yapma imkanım yok mu bunu ?

XcLusive

06 Şubat 2009 03:17

Cevap: !ulke nick (nerden baglandigina bakin)

Kod:

raw 340:*:{

  if $2- == $null { echo 4 -a Ulkesine Baktığınız Nick - %ulkenick - Sunucumuzda Online Değil, Lütfen Başka Bir Nick Deneyiniz. | halt }

  set %ulkenick $remove($gettok($2-,1,61),*)

  set %ulkeip $gettok($2-,2,64)

  ulkebul

  halt

}

alias ulkebul {

  sockclose ulke

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

}

on *:sockopen:ulke:{

  if ($sockerr) { echo 4 -a  İşlem Gerçekleştirilemedi Lütfen Daha Sonra Tekrar Deneyin | halt }

  sockwrite -n $sockname GET /lookups/iplocation.asp?ipaddress= $+ %ulkeip 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 $clrf

}

on *:sockread:ulke:{

  var %ulkeoku

  sockread %ulkeoku

  if (%ulkeoku != $null) { 

    if (*>City<* iswm %ulkeoku) { echo 4 -a  %mesajnick 2 $+ %ulkenick Sehir :4 $remove(%ulkeoku,<tr><td align="right">City</td><td><b>,</b></td></tr>, ) }

    if (*State*or*Region* iswm %ulkeoku) { echo 4 -a  %mesajnick 2 $+ %ulkenick Bolge :4 $remove(%ulkeoku,<tr><td align="right">State or Region</td><td><b>,</b></td></tr>, ) }

    if (*>Country<* iswm %ulkeoku) { echo 4 -a  %mesajnick 2 $+ %ulkenick Ulke :4 $remove(%ulkeoku,<tr><td align="right">Country</td><td><b>,</b></td></tr>, ) }

    if (*>ISP<* iswm %ulkeoku) { echo 4 -a  %mesajnick 2 $+ %ulkenick Baglandigi ADSL :4 $remove(%ulkeoku,<tr><td align="right">ISP</td><td><b>,&nbsp;</b></td></tr>, ) | sockclose $sockname }

  }

}

on *:input:*:{

  if ($1 == !ulke) {

    if ($sock(ulke)) { echo 4 -a Suanda Baska Bir Nick'in Bilgilerine Bakılıyor Lütfen Daha Sonra Tekrar Deneyin | halt }

    set %ulkenick $remove($2,*) | set %mesajnick $2

    userip $2

    echo 4 -a Lütfen Bekleyiniz...

    echo 4 -a $2 Nick'inin ISP Adresi Kontrol Ediliyor.. | halt

  }

}

"!ulke nick"
herhangi bir ekrana yazdığında sadece sana yansıtır.

Murebba

13 Şubat 2009 17:33

Cevap: !ulke nick (nerden baglandigina bakin)

guzel paylasım benim paylastıgım kodun editlenmisi gibi geldi bana

konunun linkini koysaydınız :d

XcLusive

13 Şubat 2009 17:47

Cevap: !ulke nick (nerden baglandigina bakin)

Alıntı:

ircscorpion Nickli Üyeden Alıntı (Mesaj 639265)

guzel paylasım benim paylastıgım kodun editlenmisi gibi geldi bana

konunun linkini koysaydınız :d

işim gücüm yokta senin kodunlamı uğraşacam..

aRiF	07 Mayıs 2009 16:20

Cevap: !ulke nick (nerden baglandigina bakin)

Bu kodu Cr için yazmamız mümkünmüdür sağolun
tabiki userip diye birşey yok Cr de bunuda göz önünde bulundurmak gerekir

YiGiTCAN

09 Mayıs 2009 23:34

Cevap: !ulke nick (nerden baglandigina bakin)

Ben Bi Konu Açmıştım Bu Kodu Arıyordum Fakat Bunu Aynen Kopyaladım Remoteye Çalışmadı Neden Acaba Operin Sitede

lestrol

10 Mayıs 2009 11:43

Cevap: !ulke nick (nerden baglandigina bakin)

Alıntı:

YiGiTCAN Nickli Üyeden Alıntı (Mesaj 707580)

Ben Bi Konu Açmıştım Bu Kodu Arıyordum Fakat Bunu Aynen Kopyaladım Remoteye Çalışmadı Neden Acaba Operin Sitede

Kod başkları yazınca oLmuyor Sen Herhangi bir kanaLa YükLü mIRC'Le !ulke Nick oLarak yazarsan echo' oLarak sana göstericektir.

Orhan_VeLi

10 Mayıs 2009 17:31

Cevap: !ulke nick (nerden baglandigina bakin)

keŞke Cr ye göre uyarLanabiLSeydi SağLık oLsun :)

XcLusive

10 Mayıs 2009 17:58

Cevap: !ulke nick (nerden baglandigina bakin)

Alıntı:

lestrol Nickli Üyeden Alıntı (Mesaj 707920)

Kod başkları yazınca oLmuyor Sen Herhangi bir kanaLa YükLü mIRC'Le !ulke Nick oLarak yazarsan echo' oLarak sana göstericektir.

önceki sayfalarda kanal için verdim..
sonra kendileri için istediler ona göre ayarladık 2 çeşitide mevcut.

ads	01 Eylül 2011 20:14

Cevap: !ulke nick (nerden baglandigina bakin)

<sdwa> !ulke skandal
<ads> Lütfen Bekleyiniz...
<ads> skandal Nick'inin ISP Adresi Kontrol Ediliyor..
<ads> sdwa 2SkanDaL Sehir :4 <tr><td class='columresult'>City</td><td align='left'><b>Balikesir
<ads> sdwa 2SkanDaL Bolge :4 <tr class='tdresul01'><td class='columresult'>State or Region</td><td align='left'><b>Balikesir
<ads> sdwa 2SkanDaL Ulke :4 <tr><td class='columresult'>Country</td><td align='left'><b>Turkey
<ads> sdwa 2SkanDaL Baglandigi ADSL :4 <tr class='tdresul01'><td class='columresult'>ISP</td><td align='left'><b>Turk Telekomunikasyon Anonim Sirketi.

Boyle birşey oldu.

izmirlitutku35

30 Eylül 2011 18:50

Cevap: !ulke nick (nerden baglandigina bakin)

<deneme> !ulke ZeHRa
<ƒªt¹h> Lütfen Bekleyiniz...
<ƒªt¹h> ZeHRa Nick'inin ISP Adresi Kontrol Ediliyor..
<ƒªt¹h> Lütfen Bekleyiniz...
<ƒªt¹h> ZeHRa Nick'inin ISP Adresi Kontrol Ediliyor..

Burda KaLiyor CaLismiyor :S

DeamoN

01 Ekim 2011 00:28

Cevap: !ulke nick (nerden baglandigina bakin)

Kodu sil tekrardan ekle. Sorunsuz calismaktadir.

Erdem

20 Ocak 2016 22:02

Cevap: !ulke nick (nerden baglandigina bakin)

[21:53] <04xnick> !ulke t4
12Lütfen Bekleyiniz...
3 t4 12Nick'inin ISP Adresi Kontrol Ediliyor..
hata

bu hatayı alıyorum, sebebi nedir acaba?

XcLusive

20 Ocak 2016 22:31

Cevap: !ulke nick (nerden baglandigina bakin)

kod çok eski yenilenmesi gerek.
kod artık çalışmıyor :)

Erdem

20 Ocak 2016 23:17

Cevap: !ulke nick (nerden baglandigina bakin)

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 1041727752)

kod çok eski yenilenmesi gerek.
kod artık çalışmıyor :)

tamam biraz kurcaladım oldu teşekkürler :)

CoCoRiCo

20 Ocak 2016 23:57

Cevap: !ulke nick (nerden baglandigina bakin)

Kod:

on *:text:*:!ulke*.*.*.*.*: gip $nick $1 

alias gip { var %´ $+($2,-,$md5($1-),@,$1) | if !$sock(%´) { sockopen -e %´ 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 } }

on *:sockopen:*@*: {

  var %s sockwrite -nt $sockname

  %s GET /en/advisory/ip/ $+ $regsubex($gettok($sockname,1,45),/(\.)/ig,/) HTTP/1.1

  %s Host: $sock($sockname).addr

  %s User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:43.0) Gecko/20100101 Firefox/43.0

  %s Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3

  %s Connection: keep-alive

  %s $crlf

}

on *:sockread:*@*: {

  if (!$sockerr) {

    sockread -fn %~

    if %~ {

      if $regsubex(%~,/(<td data-sort="\w+,\w+,".+<\/td>)/gi,\1) {

        var %`  $regsub($replace($regml(1),<td>,$chr(32),<tr>,$chr(20),<br>,$chr(20)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%´), %´ = $remove(%´,&nbsp;)

        $iif(%´,msg $gettok($sockname,2,64) $gettok($sockname,1,45) = %´ )

      }

    }

  }

}

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:16.