;#####################
;Mirc Alt-Yazı Haberler 
;Yazan: siLuet - Salih T.  
;Tarih: 02.02.2012            
;Gereksinim: mdx.dll,Rebar.dll
;Alıntı Kod: SeRDaR406 - Kayan yazı
;#####################

alias -l rebar  dll dlls\rebar.dll $$1- 
alias -l mdx dll dlls\mdx.dll $1-
alias -l mdxdll return $dll(dlls\mdx.dll,$1,$2-)
alias -l kaydir {
  if ($dialog(sondakika)) {
    set %text.x $gettok($mdxdll(MoveControl,sondakika 1),2,32)
    if (%text.x == $+(-,%text.w)) set %text.x $dialog(sondakika).w
    dec %text.x
    mdx MoveControl sondakika 1 %text.x *
  }
  else {
    unset %text.x %text.w
    .timersondakika off
    .timerhaber  off
  }
}
alias sondakika if (!$dialog(sondakika)) dialog -mdo sondakika sondakika
on *:dialog:sondakika:init:*: {
  mdx MarkDialog $dname
  mdx SetColor $dname 1 text $rgb(255,0,0)
  mdx SetFont 1 -14 700 tohama
  mdx SetDialog $dname style 
  mdx SetBorderStyle $dname 1 staticedge	
  rebar HideToolbar .
  rebar Dock $dialog(sondakika).hwnd > bottom
  set %text.w $gettok($mdxdll(MoveControl,$dname 1),4,32)
  mdx MoveControl $dname 1 $dialog($dname).w *
  .timersondakika 0 0 kaydir
  $iif(!$timer(haber),.timerhaber 0 60 sdakika) 
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&quot;) | return %x }
dialog sondakika {
  title "Shaber"
  size -1 -1 354 -3
  option dbu
  text "Alt-Yazı Haberler v.1 2012 by siLuet", 1, 0 2 1000 7
}

alias sdakika { set %s.dakika 1 | set %sondakika | $iif($sock(sdakika),sockclose sdakika) | sockopen sdakika 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  }
on *:sockopen:sdakika:{
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host:sondakika.com
  sockwrite -n $sockname $crlf $crlf
}
on *:sockread:sdakika:{
  var %son | sockread %son
  if $regex(%son,/^[[:digit:]]{2}/g) { set %stime $+($chr(91),$htmlfree(%son),$chr(93)) }
  if (</a></h3> isin %son) {
    set %sondakika $addtok(%sondakika %stime,- $htmlfree(%son) -,32)  
    inc %s.dakika 
    if (%s.dakika == 15) { sockclose $sockname | did -a sondakika 1 %sondakika }
  }
}

on 1:start:sondakika | .timerhaber 0 60 sdakika