Vizyondaki son filmlerden haberdar olmak için aşağıdaki hazır kodu Mirc Remote bölümünüze kopyalayıp “/sinema” komutu ile mircinizde çalıştırabilirsiniz.
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 } } } } Hazır Code By - el33t ‘e Teşekkürler.. |