Tekil Mesaj gösterimi
Alt 13.Mart.2020   #1
Çevrimiçi
Emre Konuyu Baslatan
~ Www.ircforumda.net ~
!Nerden kodu güncel.


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

IRCForumda.Net Reklamlar
sohbet isami sohbet