ChatForumlari - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet



 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 13-Mar-2020   #1 (permalink)
Çevrimiçi
!Nerden kodu güncel.


-- Sponsor Baglantı --



Kullanımı: !nerden IP/NICK

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ if $regex($1,/^[!.-]nerden$/Si) { 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$/Si) { 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 $+(nerden,%:r) www.ipaddresslocation.org 80 | sockmark $+(nerden,%:r) $1 } on *:sockopen:nerden*:{ sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).addr 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:nerden*:{ var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden if $regex($1-,/<i>Hostname:<\/i> <b>(.+)<\/b>/i) { msg %:kanal 4Hostname: $regml(1) } elseif $regex($1-,/<i>(.+)\:.+<b>(.+)<\/b>/i) { msg %:kanal $+(4,$replace($regml(1),Domain,IP),:) $regml(2) } }

Kullanımı: !nerden IP/NICK

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{ if $regex($1,/^[!.-]nerden$/Si) { 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$/Si) { 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 $+(nerden,%:r) www.ipaddresslocation.org 80 | sockmark $+(nerden,%:r) $1 } on *:sockopen:nerden*:{ sockwrite -n $sockname GET $+(/ip-address-locator.php?lookup=,$sock($sockname).mark) HTTP/1.1 sockwrite -n $sockname Host: $sock($sockname).addr 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:nerden*:{ var %:nerden | sockread -f %:nerden | tokenize 32 %:nerden if $regex($1-,/<i>Hostname:<\/i> <b>(.+)<\/b>/i) { msg %:kanal 4Hostname: $regml(1) } elseif $regex($1-,/<i>(.+)\:.+<b>(.+)<\/b>/i) { msg %:kanal $+(4,$replace($regml(1),Domain,IP),:) $regml(2) } }

  Alıntı ile Cevapla

 

Etiketler
kod

Seçenekler Arama
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