öncelikle selam kolay gelsin mirc 6.35 de uyarı vermeyen kod mirc 6.21 de /tokenize: Sıra cok uzun (Satır 16, script2.ini) uyarıısı veriyor bunun nedeni ne oloabilir ve çözümü varmıdır mirc 6.21 kullanmak istiyorum çünkü sunucuda yapılan en ufak bir tarama işleminde mirc 6.35 kasıyor.
kod bu
#giriste on
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on ^*:snotice:*:if $regex($1-,/Sunucuya baglaniyor\.\.\. Baglanan\: (.+) \((.+)\@(.+)\) \- Port\: (.+)/Si) { userip $regml(1) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1 ,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
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 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:isp*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro | tokenize 32 %:pro
if (IP Country: isin $1-) { .hadd -m $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree($1-),2,58) == $null,Belirsiz,$token($htmlfree($1-),2,58)) }
if (IP City: isin $1-) { .hadd -m $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree($1-),2,58) == $null,Belirsiz,$token($htmlfree($1-),2,58)) }
if (ISP Provider: isin $1-) {
var %:isp $iif($token($htmlfree($1-),2,58) == $null,Belirsiz,$token($htmlfree($1-),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %sehir $hget(%:n,Sehir)
msg #Takip 0,1 Nick: 4 %:n 0 IP: 4 %ip 0- Ulke: 4 %ülke 0 - Sehir: 4 %sehir 0- ISP: 4 %:isp 0 Önceki 4KuLLandığı Nickler:1 4 $readini(giris.txt, %ip, nicks)
.hfree -w %: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, Kapali, on, Açik) >:.
}