Toprak
27 Ocak 2015, 23:07
Merhaba,
Bir arkadaşın isteği üzerine yazmıştım baya oldu yeni paylaşmak aklıma geldi =)
Sunucusunda cycle bot kullanan arkadaşların işine yarıyabilir.
Yapamayan olursa PM atsın yardımcı olabilirim.
on *:sockopen:radyoc*:{
if ($sockerr > 0) { sockclose $sockname | returnex }
sw $sockname CONNECT RadyoIP:RadyoPORT $+([Only Registered Users Can See Links]$CRLF,$CRLF)
}
on *:sockread:radyoc*:{
var %;rdin | sockread %;rdin | tokenize 32 %;rdin
if ($gettok(%;rdin,1-2,32) == [Only Registered Users Can See Links] 200) || ($gettok(%;rdin,1-2,32) == [Only Registered Users Can See Links] 200) {
sockwrite -nt $sockname GET /;*.nsv [Only Registered Users Can See Links]
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept-Encoding: identity;q=1, *;q=0
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
sockwrite -nt $sockname Range: bytes=0-
sockwrite -nt $sockname $crlf
}
}
Cyclenize eklemek için;
Örn;
var %:rnd $+($md5($ticks),$r(10,999))
.sockopen $+(radyoc,%:rnd) IP PORT
Bir arkadaşın isteği üzerine yazmıştım baya oldu yeni paylaşmak aklıma geldi =)
Sunucusunda cycle bot kullanan arkadaşların işine yarıyabilir.
Yapamayan olursa PM atsın yardımcı olabilirim.
on *:sockopen:radyoc*:{
if ($sockerr > 0) { sockclose $sockname | returnex }
sw $sockname CONNECT RadyoIP:RadyoPORT $+([Only Registered Users Can See Links]$CRLF,$CRLF)
}
on *:sockread:radyoc*:{
var %;rdin | sockread %;rdin | tokenize 32 %;rdin
if ($gettok(%;rdin,1-2,32) == [Only Registered Users Can See Links] 200) || ($gettok(%;rdin,1-2,32) == [Only Registered Users Can See Links] 200) {
sockwrite -nt $sockname GET /;*.nsv [Only Registered Users Can See Links]
sockwrite -nt $sockname Host: $sock($sockname).addr
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept-Encoding: identity;q=1, *;q=0
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36
sockwrite -nt $sockname Accept: */*
sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
sockwrite -nt $sockname Range: bytes=0-
sockwrite -nt $sockname $crlf
}
}
Cyclenize eklemek için;
Örn;
var %:rnd $+($md5($ticks),$r(10,999))
.sockopen $+(radyoc,%:rnd) IP PORT