QizemLi
New member
Kod:
alias Haber { if $sock(Haber) { sockclose Haber } | sockopen Haber sondakika.internethaber.com 80 | echo 3 -st * sondakika.internethaber.com: Son dakika haberleri alınmaya çalışılıyor. | if [email protected]) { clear [email protected] } }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias -l sinemay { if !$window(@sondakika.internethaber.com) { window -nk0 @sondakika.internethaber.com } | aline -p @sondakika.internethaber.com $1- }
on *:sockopen:Haber:{ var %c = sockwrite -n $sockname | %c GET /haberler.aspx?Status=4 HTTP/1.1 | %c Host: sondakika.internethaber.com $+ $crlf $+ $crlf }
on *:sockread:Haber:{
if ($sockerr) { echo 3 -st * sondakika.internethaber.com: sondakika haberleri alırken hata oluştu. Lütfen tekrar deneyiniz. | halt }
else { var %- | sockread %- | if (*<td width="271" class="red" valign="top"><a href="haber_ozetbilgiler.aspx* iswm %-) || (*<td width="391"><a href="haber_ozetbilgiler.aspx?haberID=*"><img src="images/but_git.gif"* iswm %-) || ($count(%-,$chr(9)) == 13) { habery $+($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://sondakika.internethaber.com/,$replace($gettok(%-,2,34),haber,zetbilgiler), ) }
elseif (*HTML*:*Yunus BENLİ* iswm %-) { if $sock(Haber) { sockclose Haber } | if $window(@sondakika.internethaber.com) { window -a @sondakika.internethaber.com } }
}
}