IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar !nerden [IP|Nick]
irc

!nerden [IP|Nick]
Aytac
!nerden [IP|Nick]
0
387
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
ip nerden nick

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
dyeni 
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

Kod :
alias nerden {
  if $sock(yerbul) {
    sockclose yerbul
  }
  sockopen yerbul www.ipaddresslocation.org 80 
}

on $*:text:/^((!|.)nerden\40\S+)$/i:#: {
  if $regex($2,^\d) {
    .set -e %nrd $2 | set -e %c_n $chan
    .nerden
  }
  else {
    .userip $2
    .enable #nrdn
    set -e %c_n $chan
  }
}
on *:sockopen:yerbul:{ 
var %xy = sockwrite -n $sockname
%xy  GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
%xy host: www.ipaddresslocation.org
%xy Connection: keep-alive
%xy Cache-Control: max-age=0
%xy Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
%xy User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.81 Safari/537.36
%xy Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
%xy $crlf 
}

on *:sockread:yerbul: { 
  if ($sockerr) { /msg %c_n Bağlantı Hatası Oluştu! | halt }
  var %yerbul
  sockread %yerbul
  if $regex(hst,%yerbul,/(</\142><\142\162\40/><\151>\110\S{7}\72</\151>\40<\142>(.+)</\142><\142\162\40/>)$/i) { /msg %c_n 2Host:4 $regml(hst,2) }
  if $regex(cnt,%yerbul,/^(<\151>\111\120\40\S{7}\72</\151>\40<\142>(\S+)</\142>)$/i) { /msg %c_n 2Ulke:4 $regml(cnt,2)  }
  if $regex(cod,%yerbul,/^(<\151>\111\120\40\S{7}\40\S{4}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Ulke Kodu:4 $regml(cod,2) }
  if $regex(kta,%yerbul,/^(<\151>\111\120\40\103\S{8}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Kita:4 $regml(kta,2) }
  if $regex(rgn,%yerbul,/^(<\151>\111\120\40\122\S{5}\72</\151>\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Bolge:4 $regml(rgn,2) }
  if $regex(cty,%yerbul,/^(<\151>\111\120\40\103\S{3}\72\40<\142>(\S+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Sehir:4 $regml(cty,2) }
  if $regex(org,%yerbul,/^(<\151>\117\S{11}\72</\151>\40<\142>(.+)</\142><\142\162\40\/>)$/i) { /msg %c_n 2Organizasyon:4 $regml(org,2) }
  if $regex(iss,%yerbul,/^(<\151>\111\123\120\40\S{8}\72</\151>\40<\142>(.+)</\142><\142\162\40\/><\142\162\40\/>)$/i) { /msg %c_n 2Servis Saglayici:4 $regml(iss,2) }
}

#nrdn off
raw 340:*: {
  if (!$2) { /msg %c_n Sorgulanan Nick Sunucuda bulunmuyor. | goto down }
  set -e %nrd $regsubex($2,/.+\100(\d+\56\d+\56\d+\56\d+)$/g,\1)
  .nerden
  :down 
  .disable #nrdn
  .halt
}
#nrdn end
Kullanımı: !nerden <Nick> veya !nerden <IP>
Not:Eğer kodu başkaları değilde siz kullanmak isterseniz;

Bu bölümü
Kod :
on $*:text:/^((!|.)nerden\40\S+)$/i:#: {
  if $regex($2,^\d) {
    .set -e %nrd $2 | set -e %c_n $chan
    .nerden
  }
  else {
    .userip $2
    .enable #nrdn
    set -e %c_n $chan
  }
}
Aşağıdaki ile değiştirin.
Kod :
on *:input:#: {
  if $regex($regsubex($1-,/[[:cntrl:]]/g,return halt),/^((!|.)nerden\40\S+)$/i) {
    if $regex($2,^\d) {
      .set -e %nrd $2 | set -e %c_n $chan
      .nerden
    }
    else {
      .userip $2
      .enable #nrdn
      set -e %c_n $chan
    }
  }
}
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
asiren
Web Nick Kayıt Aytac 2 614 05.12.2020, 14:21
Son Mesaj: Sadullah
  !gbt Nick/!gbtip IP Aytac 0 508 14.04.2020, 00:58
Son Mesaj: Aytac
  Girişte Nick Şehir Ülke İp Gosterme ve Hotlink İp Banlama Aytac 0 698 02.04.2020, 18:20
Son Mesaj: Aytac
  mIRC Nick Puan Kodu Aytac 0 402 28.03.2020, 18:59
Son Mesaj: Aytac
  !arsiv IP Nick Aytac 0 362 28.03.2020, 18:17
Son Mesaj: Aytac

Foruma Git: