PHP Warning: log10() expects parameter 1 to be double, string given in ..../includes/class_postbit.php(294) : eval()'d code on line 51
.nerden [IP|Nick] Yeni.. - HepForum.Com




HepForum.Com


Geri Git   HepForum.Com > mIRC Scripting > mIRC Hazır Kodlar
mIRC Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

Kullanıcı Etiket Listesi

 
LinkBack Seçenekler
Alt 12.Nisan.2019   #1
Aytac
Guest
Aytac - ait Kullanıcı Resmi (Avatar)
Üye No:
Şehir:
Mesaj Sayısı: n/a
Konu Sayısı: 1371
Beğendikleri:
Alınan Beğeni:

HF Ticaret Yüzdesi: (%)
Ruh Hali
Kan Grubum:

Standart .nerden [IP|Nick] Yeni..

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
    }
  }
}

  Alıntı

Bookmarks

Etiketler
!nerden , .nerden kodu , mirc nerden ögrenme

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevap Son Mesaj
Whois Bilgilerinde Nerden Eklentisi Aytac mIRC Hazır Kodlar 0 27.Şubat.2019 21:31
Nerden Bileyim Ozge Komik Fıkralar 0 13.Ocak.2019 21:55
Yeni Single 2019 Yeni Çıkan Albüm Ayça feat Cem - Şok Etkisi diShy Yeni Çıkan Albümler 0 09.Ocak.2019 00:32
Yeni Single 2019 Yeni Çıkan Albüm Özgün - Aşık diShy Yeni Çıkan Albümler 0 09.Ocak.2019 00:29
Yeni Kaledonya Başkenti - Yeni Kaledonya'nın Başkenti Neresi - Yeni Kaledonya Devleti Adenca Gezelim,Görelim ve Öğrenelim 0 21.Aralık.2018 13:31


Yukarı Çık
Celtabet interbahis Elexbet Hiltonbet ngsbahis giriş Betmatik giriş Sportotobet giriş safirbet avcılar escort Ataköy escort Avcılar escort goldenbahis giriş goldenbahis giriş ngsbahis güncel giriş ngs bahis Süpertotobet giriş mersin escort adana escort ankara escort istanbul escort