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

By_ATMACA · 11 Ocak 2013, 13:56

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.

Feragat · 11 Ocak 2013, 19:55

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:*: {

By_ATMACA · 11 Ocak 2013, 20:01

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.

Feragat · 11 Ocak 2013, 20:21

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.

Med Cezir · 11 Ocak 2013, 22:43

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

11 Ocak 2013, 22:45

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

DaDaS · 11 Ocak 2013, 22:55

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: »

By_ATMACA · 11 Ocak 2013, 22:58

[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

LeiteR · 19 Ocak 2013, 11:20

Güzel bir kod Eline sağlık

mercenary · 30 Ocak 2015, 13:55

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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

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

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

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.