AFFICHER LES DERNIERES SOURCES D'IRCFR.COM

;------------------------------------------------------
;
;   -=- Dernieres sources de ircfr.com -=-   
;              By Re[M]i_34
;
;------------------------------------------------------

dialog ircfr {
  title "Dernières Sources D'ircfr.com by Re[M]i_34"
  size -1 -1 194 175
  option dbu
  box "Résultats :", 4, 6 20 184 138
  button "Afficher les dernières sources", 1, 6 7 184 11
  edit "", 2, 26 28 141 10, center read autohs
  edit "", 3, 10 40 177 115, multi autohs autovs hsbar vsbar
  button "Effacer", 5, 33 161 44 10
  button "Fermer", 6, 122 161 44 10, ok
}
menu * {
  Dernières sources d'ircfr.com:dialog -m ircfr ircfr
}

on *:dialog:ircfr:sclick:*: {
  if $did == 1 {
    sockopen ircfr www.ircfr.com 80
    did -ra ircfr 2 Connection en Cours...
  }
  if $did == 5 { did -r ircfr 2,3 }
}

on *:sockopen:ircfr:{
  sockwrite -n $sockname GET http://www.ircfr.com
  did -ra ircfr 2 Connection Effectuée
  set %ircfrv 1
}

on *:sockread:ircfr:{
  sockread -f %irc
  if ($sockbr == 0) return
  if ( href="code.aspx?ID= isin %irc) { 
    did -a ircfr 3  $replace($replace($replace($remove(%irc,$chr(9),<TR>,<td width=80 valign=top>,</td><TD WIDTH=11 valign=top>,<img src=graphix,/nok.gif>,</TD>,<TD WIDTH=11 valign=top>,<img src=graphix,/ok.gif>,</a>,<font color=#4B5C6B>,</font>,</FONT>,</TD>,</tr>,</T),<TD WIDTH=400><FONT Class=f1 COLOR=#00000>&nbsp;&nbsp;<a href=", http://www.ircfr.com/),">, Titre :),&#201;,é) $CRLF
  }
}
on *:dialog:ircfr:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetColor $dname 2 text $rgb(255,0,0)
  dll mdx.dll SetColor $dname 3 text $rgb(0,0,255)
  dll mdx.dll SetColor $dname 2,3 textbg $rgb(255,255,255)
  dll mdx.dll SetColor $dname 2 background $rgb(255,255,255)
}