!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.

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 2 Üye okuyor. (0 Kayıtlı üye ve 2 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.