3/5 (8 avis)
Snippet vu 4 503 fois - Téléchargée 25 fois
;------------------------------------------------------ ; ; -=- 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> <a href=", http://www.ircfr.com/),">, Titre :),É,é) $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) }
3 août 2004 à 20:10
aller...
30 janv. 2004 à 16:35
28 janv. 2004 à 03:37
A ta place j'aurai regroupé plusieurs site scripting en un combo et un button afficher
J'aurau surement fai ca un system pr que qd tu click sur une source de l'edit ca t'ouvre explorer, tu me comprend ?
Sinon c'est bien continu mais tetr une mise a jour 'simpose ? :p
Bonne continuation :)
26 janv. 2004 à 17:21
26 janv. 2004 à 11:44
* /sockwrite: 'ircfr' not connected (line 33, script9.mrc)
C est zarb ! Fodrai qu on m explik (pourtant g le mdx.dll dans la racine)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.