🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
Regex teşekkür ederim fakat mirc kodunun daha düzenli hali yok mu? mirc bunu kabul etmiyor Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.