| Mahrez | 13 Mayıs 2021 12:29 |
Giriş yansıtma remotesinde sorun.
Kod:
on ^*!:nick: {
if $regex($usermode,o) { set %tkp. [ $+ [ $newnick ] ] 1 | who +I $newnick }
}
on *:start: {
if $isfile(iptakip.63) { hmake iptakip | hload iptakip iptakip.63 }
}
#giriste on
;on *:snotice:*Client connecting on port*:who +I $9
on *:snotice:*: {
if $regex($1-,/Client connecting (on port|at)/Si) { who +I $token($token($1-,1,40),-1,32) }
elseif $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { who +I $regml(1) }
}
raw 352:*:var %:r $r(1000,99999) | sockopen -e $+(pro,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 | sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias gtekrar { who +I $regml(1) }
on *:sockopen:pro*:{
sockwrite -nt $sockname GET $+(/locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:87.0) Gecko/20100101 Firefox/87.0
sockwrite -nt $sockname $crlf
}
on *:sockread:pro*:{
var %:pro
sockread %:pro
if $regex(u,%:pro,/IP Country\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($htmlfree($regml(u,1)) == $null,Belirsiz,$htmlfree($regml(u,1))) }
if $regex(c,%:pro,/Town\x3A\x20(\S+)\x20/Si) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($htmlfree($regml(c,1)) == $null,Belirsiz,$htmlfree($regml(c,1))) }
if $regex(i,%:pro,/ISP Provider\x3A\x20(.+)<hr>/Si) {
var %:isp $iif($htmlfree($regml(i,1)) == $null,Belirsiz,$htmlfree($regml(i,1)))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
msg #MersinLi 14,1 Nick:0 %:n 1... 14IP:0 %ip 1... 14Ülke:0 %ülke 1... 14Şehir:0 %sehir 1... 14ISP:0 %:isp 2 $iif($hget(iptakip,%ip),Eski Giriş Bulundu: $v1)
hadd -m iptakip %ip $addtok($hget(iptakip,%ip),%:n,32)
hsave iptakip iptakip.63
.hfree -sw %:n
sockclose $sockname
}
}
#giriste end
menu menubar {
+> IP GIRIS
..Aç:!if $group(#giriste).status = on { echo 4 -tgae IP NERDEN Zaten AÇIK } | else { /.enable #giriste | echo 4 -tgae IP NERDEN AÇILDI | set %giriste on }
..Kapat:!if $group(#giriste).status = off { echo 4 -tgae IP NERDEN Zaten KAPALI } | else { /.disable #giriste | echo 4 -tgae IP NERDEN KAPATILDI | set %giriste off }
..Durum < $replace($group(#giriste).status, off, Kapalı, on, Açık) >:.
}
menu nicklist {
NickKontrol: if $regex($usermode,o) { set %tkp. [ $+ [ $1 ] ] 1 | who +I $$1 }
}
Merhaba değerli IRCForumları kullanıcıları , öncelikle hayırlı bayramlar diliyorum herkeze.
belirttiğim kodda kanala giren userleri yansıtıyordu daha sonradan 10 da 2 useri yansıtmaya başladı. yardımcı olurmusunuz lütfen sevgiler. |
