lookjapan.COM - IRC ve mIRC dünyasının forumu!   buy vps


  lookjapan.COM - IRC ve mIRC dünyasının forumu! IF - mIRC Scripting Hazır Kodlar


Like Tree4Teşekkürler;
  • 4 Post By Toprak

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 16 Şubat 2015, 20:26   #1
Bir umuttur yaşamak
 
Toprak - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya
Mesajlar: 323
WEB Sitesi: https://www.teklan.com.tr/
IRC Sunucusu: irc.teklan.com.tr
İlgi Alanı: mIRC Scripting
Alınan Beğeni: 211
Standart !nerden Kodu

Merhaba,
Site içeriğini değiştirdiği için !nerden kodu yazıyım dedim işine yarıyanlar olabilir.



Kod:
on *:text:*:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
on *:input:#:{
  if $regex($1,/^([!\.]nerden)$/i) {
    if !$2 { msg # Lütfen !nerden IP/Nick olarak belirtiniz. | return }
    set %:kanal #
    if $regex($2,/(\d+\.\d+\.\d+\.\d+)) { _nerden $2 }
    else { .enable #nerdenbul | .who +I $2 }
  }
}
#nerdenbul off
raw 352:*: _nerden $4 
raw 315:*:.disable #nerdenbul
#nerdenbul end
alias _nerden { var %:r $r(1000,99999) | sockopen $+(yerbul,%:r) www.ipaddresslocation.org 80 | sockmark $+(yerbul,%:r) $1 }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:sockopen:yerbul*:{  
  sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1
  sockwrite -n $sockname Host: www.ipaddresslocation.org
  sockwrite -n $sockname Connection: keep-alive
  sockwrite -n $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
  sockwrite -n $sockname $crlf  
} 
on *:sockread:yerbul*:{  
  var %:yerbul | sockread -f %:yerbul
  if (Hostname: isin %:yerbul) { msg %:kanal Hostname:4 $iif(!$token($htmlfree(%:yerbul),3,58),Belirsiz,$token($htmlfree(%:yerbul),3,58)) }
  if (IP Country: isin %:yerbul) { msg %:kanal Ülke:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Country Code: isin %:yerbul) { msg %:kanal Ülke Kodu:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Continent: isin %:yerbul) { msg %:kanal Kıta:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP City: isin %:yerbul) { msg %:kanal Sehir:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Latitude: isin %:yerbul) { msg %:kanal Enlem:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (IP Longitude: isin %:yerbul) { msg %:kanal Boylam:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) }
  if (ISP Provider: isin %:yerbul) { msg %:kanal ISP:4 $iif(!$token($htmlfree(%:yerbul),2,58),Belirsiz,$token($htmlfree(%:yerbul),2,58)) | sockclose $sockname }
}
Entrance, Diablo, Jag ve 1 diğerleri bu mesaja teşekkür etti





Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
 Toprak isimli Üye şimdilik offline konumundadır   Alıntı
Alt 17 Şubat 2015, 00:54   #2
 
Goemon - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 11 Şubat 2015
Bulunduğu yer: CR Codeman Goemon
Mesajlar: 625
WEB Sitesi: CR
IRC Sunucusu: iRC CR
İlgi Alanı:
Alınan Beğeni: 201
Standart Cevap: !nerden Kodu

Eline sağlık





CR Codeman Goemon
 Goemon isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
kodu, nerden


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

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

BB code is 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 Cevaplar Son Mesaj
ILık bir rüzgar esti nerden geldi bilmiyorum.. Vesaire Şiir Arşivi 0 14 Mart 2015 23:33
CR de Söz Yazma Kodu Goemon ConferenceRoom 0 05 Mart 2015 10:51
!nerden <IP> Feragat Hazır Kodlar 1 25 Şubat 2015 21:34
Motd Kodu Goemon ConferenceRoom 0 15 Şubat 2015 17:02
/nerden rumuz Toprak mIRC Parça Kodlar 0 27 Ocak 2015 22:41

web hosting web hosting
 buy vds
 vps buy

Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.