Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 848 fois - Téléchargée 29 fois
on *:text:*:#:{ if $strip($1-) = !logiciel { set %logiciel_chan $chan | sockopen logiciel www.telecharger.com 80 } elseif $strip($1-) = !info-logiciel { set %logiciel_chan $chan | sockopen logiciel2 www.telecharger.com 80 } } ON *:SOCKOPEN:logiciel:{ sockwrite -n $sockname GET http://telecharger.01net.com/index.html HTTP/1.0 | sockwrite -n $sockname $CRLF } ON *:SOCKREAD:logiciel:{ sockread %logiciel if <font face="arial,helvetica" size="4"> isin %logiciel { tokenize 32 %logiciel var %logiciel_1 = $replace($1-,><,> <), %logiciel_1 = $remove(%logiciel_1,<font face="arial $+ $chr(44) $+ helvetica" size="4"> <a href=","> <b>,</b>,</a> </font> <br>) tokenize 32 %logiciel_1 var %logiciel_1 = $replace($1-,.html,.html $+ $chr(32)) tokenize 32 %logiciel_1 msg %logiciel_chan Logiciel du jour sur telecharger.com : $+ $2- $+ - http://telecharger.01net.com $+ $1 - 4tape !info-logiciel pour avoir des infos sur $2- set %logiciel_date $date set %logiciel_lien http://telecharger.01net.com $+ $1 unset %logiciel_chan unset %logiciel } } on *:sockopen:logiciel2:{ if %logiciel_date = $date { sockwrite -n $sockname GET %logiciel_lien HTTP/1.0 | sockwrite -n $sockname $CRLF } else { msg %logiciel_chan Tape d'abord !logiciel pour voir le logiciel du jour | sockclose logiciel2 } } on *:sockread:logiciel2:{ sockread %logiciel2 if Présentation par telecharger.com isin %logiciel2 { set %logiciel2_1 $left(%logiciel2,400) tokenize 32 %logiciel2_1 set %logiciel2_1 $remove($1-, ,<font size="2" color="#000000" face="arial $+ $chr(44) $+ helvetica"><b>Présentation par telecharger.com :</b>) set %logiciel2_1 $gettok(%logiciel2_1,1-15,32) $+ ... } if Mo</font></TD> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_mo $remove($1-, <TD bgColor="#FFFAE6" height=21 width=180><font face="MS Sans Serif" size="2">,</font></TD> </tr> <tr>) } if size="2">Windows isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_os $remove($1-, <TD bgColor="#FFFAE6" height=21 width=180><font face="MS Sans Serif" size="2">, </font></TD> </tr><tr>) } if <a href="../../"><font face="MS Sans Serif" size="2"> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_cat1 $remove($1-, <TD bgColor="#FFFAE6" height=21 width=180><a href="../../"><font face="MS Sans Serif" size="2">,</font></a></TD> </tr><tr>) } if <a href="../"><font face="MS Sans Serif" size="2"> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_cat2 $remove($1-, <TD bgColor="#ECF1F4" height=21 width=180><a href="../"><font face="MS Sans Serif" size="2">,</font></A></TD></tr><tr>) } if <td valign="top"><font face="arial,helvetica" size="5"> isin %logiciel2 { var %logiciel2 $replace(%logiciel2,>,> $+ $chr(32)) | tokenize 32 %logiciel2 | set %logiciel2_nom $remove($1-,$1-7,</a>, <img border="0" src="/images/etoile1.gif", <img border="0" src="/images/etoile2.gif", <img border="0" src="/images/etoile3.gif", <img border="0" src="/images/etoile4.gif", <img border="0" src="/images/etoile5.gif"> </font> </td>) } if src="/images/etoile1.gif" isin %logiciel2 { set %logiciel2_note 1 } elseif src="/images/etoile2.gif" isin %logiciel2 { set %logiciel2_note 2 } elseif src="/images/etoile3.gif" isin %logiciel2 { set %logiciel2_note 3 } elseif src="/images/etoile4.gif" isin %logiciel2 { set %logiciel2_note 4 } elseif src="/images/etoile5.gif" isin %logiciel2 { set %logiciel2_note 5 } if <font face="MS Sans Serif" size="2"> isin %logiciel2 && <A href=" isin %logiciel2 && target=_blank> isin %logiciel2 { tokenize 32 %logiciel2 | set %logiciel2_auteur $remove($1-,$1-10,size="2">,</font></A></TD></tr><tr>) | msg %logiciel_chan $+ %logiciel2_nom $+ 4- Auteur : %logiciel2_auteur 4- Taille : %logiciel2_mo 4- Os : %logiciel2_os 4- Catégorie : %logiciel2_cat1 $+ / $+ %logiciel2_cat2 4- Note : %logiciel2_note $+ /5 4- Lien : %logiciel_lien | msg %logiciel_chan Petite Description : %logiciel2_1 | unset %logiciel2* | unset %logiciel_chan } }
29 juil. 2004 à 19:08
Tempusus
29 juil. 2004 à 18:57
selon moi les commentaires sont vraiment utiles sur les sources courtes et pas trop compliqué apres ça devient galere.
13 juil. 2004 à 19:12
Vraiment sympa comme source. après avoir lu les remarques des autres, je ne te ferais qu'un seul reproche: tu ne commentes pas ton code :)
Certe tu n'es pas le seul à ne pas commenter mais c pour moi un point très important.
7/10
Cordialement
Tempusus
13 juil. 2004 à 15:10
PaDa > Oui j'ai regarder celui de sax, les complets mais j'y comprend pas tout lol
13 juil. 2004 à 15:09
PaDa > Oui j'ai regarder celui de sax, les complets mais j'y comprend pas tout lol
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.