Regex teşekkür ederim fakat mirc kodunun daha düzenli hali yok mu? mirc bunu kabul etmiyor
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias loadit_config {
if $1 == username { return buraya config.php deki $yukleme_user da ne yazdın ise onu yaz }
elseif $1 == pass { return buraya config.php deki $yukleme_pass da ne yazdın ise onu yaz }
}
on *:start: { ;600 10 dk da bir demek, 10 dk da bir kanalları upload edicek 600 ü değiştirerek yapabilirsin
;aşağıdaki serverde kanal listesi çekerek servere upload eder .timerloadit 0 600 /loadchanlist
;aşağıdaki kodun yüklü olduğu mirc hangi kanallarda ise onu yükler aktif etmek için başındaki ; yi kaldır yukarıdaki .timer a ; koy ;
.timerloadit 0 600 /loadjoinedchans
}
alias loadit {
if $sock(loadit) {
sockclose loadit
}
sockopen loadit web adresin 80
}
on *:sockopen:loadit: {
var %file = $qt($+($scriptdir,loadit.bin))
sockwrite -nt $sockname POST /loadit.php HTTP/1.1 $+ $crlf
sockwrite -nt $sockname Host: web adresin $+ $crlf
sockwrite -nt $sockname Accept-Language: tr $+ $crlf
sockwrite -nt $sockname Connection: Keep-Alive $+ $crlf
sockwrite -nt $sockname Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) $+ $crlf
sockwrite -nt $sockname Content-Length: $file(%file).size $+ $crlf $+ $crlf
var %i = 1, %end = $lines(%file) while %i <= %end { sockwrite -nt $sockname $read(%file,%i) inc %i 1 } }
on *:sockread:loadit: { if $sockerr { echo [LOAD IT]: hata oluştu return } }
alias loadjoinedchans { if $server { set %loadit_file $qt($+($scriptdir,loadit.bin)) write -c %loadit_file write %loadit_file User= $+ $loadit_config(username) $+ &Pass= $+ $loadit_config(pass) $+ & var %i = 1, %end = $chan(0) while %i <= %end {
write %loadit_file $+($chr(38),chan[,%i,$chr(93),=,$chan(%i),$chr(38),users[,%i,$chr(93),=,$nick($chan(%i),0),$chr(38)) inc %i 1 } loadit } }
alias loadchanlist { if $server { set %loadit_invischan $true set %loadit_file $qt($+($scriptdir,loadit.bin)) set %loadit_count 1 write -c %loadit_file write %loadit_file User= $+ $loadit_config(username) $+ &Pass= $+ $loadit_config(pass) $+ &
;20 den büyük useri olan kanalları listeliyoruz
list >20
}
}
raw 322:*: { if %loadit_invischan { write %loadit_file $+($chr(38),chan[,%loadit_count,$chr(93),=,$2,$chr(38),users[,%loadit_count,$chr(93),=,$3,$chr(38)) inc %loadit_count 1 } }
raw 323:*: { if %loadit_invischan { loadit | unset %loadit_invischan, %loadit_count } }
düzenleyebildiğim kadar düzenledim fakat yinede çalışmıyor.
teşekkürler.