AFFICHER LES DERNIERES SOURCES DE MIRCSCRIPTSFRFM.COM

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

dialog sources {
  title "Dernieres sources de mircscriptsfrfm.com"
  size -1 -1 194 172
  option dbu
  button "Afficher les dernieres sources", 1, 4 5 184 11
  edit "", 2, 24 26 141 10, center read autohs
  edit "", 3, 8 38 177 115, multi autohs autovs hsbar vsbar
  box "Résultats :", 4, 4 18 184 138
  button "Effacer", 5, 31 159 44 10
  button "Fermer", 6, 120 159 44 10, ok
}
menu * {
  Dernières sources de mircscriptsfrfm.com:dialog -m sources sources
}

on *:dialog:sources:sclick:*: {
  if $did == 1 {
    sockopen site www.mircscriptsfrfm.com 80
    did -ra sources 2 Connection en Cours...
  }
  if $did == 5 { did -r sources 2,3 }
}
on *:sockopen:site:{
  sockwrite -n $sockname GET http://www.mircscriptsfrfm.com/cgi-bin/liste.pl?P=tous
  did -ra sources 2 Connection Effectuée
  did -a sources 3 -=- Début -=- $CRLF
}

on *:sockread:site:{
  :re
  sockread -f %pr
  if (checked> isin %pr) { goto re }
  if (<tr><td bgcolor="#E0A090"> isin %pr) {
    if ($remove($gettok(%pr,5,62),</a,<br,&nbsp;) == $null) { goto re }
    else {
      did -a sources 3 $remove($gettok(%pr,5,62),</a,<br,&nbsp;) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
    }
  }
  if (<tr><td bgcolor="#DDDDDD"> isin %pr) {
    if ($remove($gettok(%pr,5,62),</a,<br,&nbsp;) == $null) { goto re }
    else {
      did -a sources 3 $remove($gettok(%pr,5,62),</a,<br,&nbsp;) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
    }
  }
  if ($sockbr > 0) { goto re }
  if ($sockbr == 0) {
    .timer986 1 10 sockclose site
    .timer987 1 10 did -a sources 3 -=- Fin -=-
    halt
  }
}

on *:dialog:sources: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)
}