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
DurumuÇevrimdışı
Önce hayaller ölür,
sonra insan...
Aytac - ait Kullanıcı Resmi (Avatar)
Üye No: 1
Üyelik tarihi: 03.Ekim.2018
Şehir: 08 Artvin
Mesaj Sayısı: 589
Konu Sayısı: 349
Beğendikleri: 80
Alınan Beğeni: 127
HF Ticaret Sayısı: (0)
HF Ticaret Yüzdesi: (%)
Ruh Hali
Keyifli
Kan Grubum: 0 RH +

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ı

Aytac Üyenin Son 5 Konusu
Baslik Kategori Son Yazan Cevaplar Okunma Son Mesaj
RANDOM Nick/Ident Koruması mIRC Hazır Kodlar Aytac 0 155 12.Nisan.2019 23:23
AWAY iken Bildiri mIRC Hazır Kodlar Aytac 0 121 12.Nisan.2019 23:21
!anket [Socket] mIRC Hazır Kodlar Aytac 0 121 12.Nisan.2019 23:19
Namaz/Ramazan Imsakiye 2019 mIRC Hazır Kodlar Aytac 0 127 12.Nisan.2019 23:18
.nerden [IP|Nick] Yeni.. mIRC Hazır Kodlar Aytac 0 106 12.Nisan.2019 23:15


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
best 10