- -
!Nerden kodu güncel.
(
https://www.ircforumda.net/mirc-scripting-hazir-kodlar/6280-nerden-kodu-guncel.html)
!Nerden kodu güncel.
Kullanımı: !nerden IP/NICK
Kod:
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-,/Hostname:<\/i> (.+)<\/b>/i) { msg %:kanal 4Hostname: $regml(1) }
elseif $regex($1-,/(.+)\:.+(.+)<\/b>/i) { msg %:kanal $+(4,$replace($regml(1),Domain,IP),:) $regml(2) }
}
|
Forum Saati: 03:56. Zaman dilimi GMT +4 olarak ayarlanmıştır. |
|
Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.