Kod: Kodu kopyalamak için üzerine çift tıklayın!
n $*:snotice:/Client connecting.+\x3A\s(\S+)\s\x28.+@(.+)\x29/i: {
if $level($regml(2)) == Sorunlu {
if $sock(yerelbilgi,1).status != active { set %yerelipno $regml(2) | bağlan $regml(2) }
$iif(!$window(@Uyari),window -ne @Uyari)
aline -hp @Uyari 10Sorunlu giris tespit edildi Nicki:4 $regml(1) 10 ip Adresi:4 $regml(2)
}
}
on *:sockopen:yerelbilgi:{
sockwrite -n $sockname GET /index.php?query= $+ %yerelipno HTTP/1.1
sockwrite -n $sockname Host:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $+ $crlf $+ $crlf
sockwrite -n $sockname $clrf
}
on *:sockread:yerelbilgi:{
if ($sockerr) { aline @Uyari Veri alımında Hata oluştu. | halt }
else {
var %difi
sockread %difi
if (*Country*Region*City* iswm %difi) { set %dify $remove($htmlfrex(%difi),$chr(9)) }
elseif (*Registry*Information* iswm %difi) {
sockclose yerelbilgi
if $regex(%dify,/ISP(.+)Google.+Map.+for.+ISP.+Continent/i) {
splay $mircdirsounds\uyar.wav
aline -hp @Uyari $regml(1)
unset %dif*
}
}
}
}
alias bağlan {
sockclose yerelbilgi
sockopen yerelbilgi
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
alias htmlfrex {
var %x, %i = $regsub($replace($1-,<td>,$chr(160),</td>,$chr(160)),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
Bu kod di----on hocamıza ait sanırım sitede değisiklik olmus bunu tekrar nasıl duzenleyebılırız