IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   !nerden Nick (https://www.ircforumlari.net/mirc-scripting-sorunlari/520355-nerden-nick.html)

By_ATMACA 11 Ocak 2013 13:56
!nerden Nick
 
Kod:
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
Cevap: !nerden Nick
 
Kod:
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:
on *:text:*:#: {
Bunula değiştirin;
Kod:
on *:input:*: {

By_ATMACA 11 Ocak 2013 20:01
Cevap: !nerden Nick
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041268184)
Kod:
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:
on *:text:*:#: {
Bunula değiştirin;
Kod:
on *:input:*: {
ÇaLişmadi USERIP Bilinmeyen Komut Kullandiniz.

Feragat 11 Ocak 2013 20:21
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.

Med Cezir 11 Ocak 2013 22:43
Cevap: !nerden Nick
 
CR ye uyumlu şekli, ayrıca active ekrana yansıyordu sonuçlar onu kanala yansıyacak şekilde ayarladım.
Kod:
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

Goemon 11 Ocak 2013 22:45
Cevap: !nerden Nick
 
Med CeziR ellerine sağlık usta sendende bu beklenirdi. bir tşk ü çok görmezler inş.

DaDaS 11 Ocak 2013 22:55
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: »

By_ATMACA 11 Ocak 2013 22:58
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

LeiteR 19 Ocak 2013 11:20
Cevap: !nerden Nick
 
Güzel bir kod Eline sağlık

mercenary 30 Ocak 2015 13:55
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.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 06:32.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net