Snippet : logiciel du jour
Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 848 fois - Téléchargée 29 fois
Contenu du snippet
Bon voila j'vien juste d'apprendre les sockets pour le fun, et voila mon 1er truc en sockets lol
Sa dit juste le logiciel du jour sur Telecharger.com + quelque infos
Commande : !logiciel
!info-logiciel
C'est que pour bot la mais vous pouvez modifier comme vous voulez ;)
Sa dit juste le logiciel du jour sur Telecharger.com + quelque infos
Source / Exemple :
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 }
}
Conclusion :
Commande : !logiciel
!info-logiciel
C'est que pour bot la mais vous pouvez modifier comme vous voulez ;)
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.