mIRC Kodlar – Vizyon Film
Vizyondaki Filmler
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=&#8221;271&#8243; class=&#8221;red&#8221; valign=&#8221;top&#8221;><a href=&#8221;film_ozetbilgiler.aspx* iswm %-) || (*<td width=&#8221;391&#8243;><a href=&#8221;film_ozetbilgiler.aspx?FilmID=*&#8221;><img src=&#8221;images/but_git.gif&#8221;* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) }
elseif (*<img src=&#8221;images/but_os.gif&#8221;* 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 } }
}
}
-
MircALem.Gen.TR Bilginin Ekolü.
-
MircALem.Gen.TR mIRC'in Tek Adresi!.
Yukardaki sunduğumuz, sizin aradığınıza en yakın aramadır.
This entry was posted
on Cumartesi, Aralık 26th, 2009 at 01:12 and is filed under mIRC Hazır Kodlar.
You can subscribe via RSS 2.0 feed to this post's comments.
You can comment below, or link to this permanent URL from your own site.
Your comments will appear immediately, but I reserve the right to delete innapropriate comments.
