 |
  |
|
| Yazar |
Mesaj |
eXtreme
Kayıtlı Üye
Kayıt: 17.09.2006
Üye no: 89
Mesaj: 102
Başlık: 0
Şehir: Türkiye
2 Aşk puanı
|
|
 Sinema Severlere |
|
|
Sinema.com Vizyondakiler sitesinden vizyonda oynayan filmleri mIRC'de /sinema komutu ile Sinema.com penceresine yansıtır. Aşağıdaki kodu mIRC'nin remote (ALT+R) bölümüne koyuyorsunuz. İşte kod:
alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(@Sinema.com) { clear @Sinema.com } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(@Sinema.com) { window -nk0 @Sinema.com } | aline -p @Sinema.com $1- }
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf }
on *:sockread:sinema:{
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri alırken hata oluştu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (*<td width="271" class="red" valign="top"><a href="film_ozetbilgiler.aspx* iswm %-) || (*<td width="391"><a href="film_ozetbilgiler.aspx?FilmID=*"><img src="images/but_git.gif"* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src="images/but_os.gif"* iswm %-) { sinemay 05Devamı ve daha fazla bilgi için:12 $+( ,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler), ) }
elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(@Sinema.com) { window -a @Sinema.com } }
}
}
Code : el33t e aittir...Ellerine saglık
|
| |
|
 |
08 May 2007 06:02 pm |
|
Mesaj: #1  |
|
|
|
|
|
|
|
|
