Snippet : logiciel du jour

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 564 fois - Téléchargée 27 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

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&nbsp;:</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>,&nbsp;<img border="0" src="/images/etoile1.gif",&nbsp;<img border="0" src="/images/etoile2.gif",&nbsp;<img border="0" src="/images/etoile3.gif",&nbsp;<img border="0" src="/images/etoile4.gif",&nbsp;<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 ;)

A voir également

Ajouter un commentaire

Commentaires

tempusus
Messages postés
363
Date d'inscription
dimanche 8 février 2004
Statut
Modérateur
Dernière intervention
9 octobre 2017
1
Oui c'est sur que c compliqué de commenter parfois, mais dans le cas de sources qui pourront peut etre servir de base à d'autre, cela me semble très important.

Tempusus
Kerrigan
Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

parfois commenter tout a outrance rend le code ilisible. dans le cas présent ça serait vraiment galere avec deja deux langage qui se chevauchent.

selon moi les commentaires sont vraiment utiles sur les sources courtes et pas trop compliqué apres ça devient galere.
tempusus
Messages postés
363
Date d'inscription
dimanche 8 février 2004
Statut
Modérateur
Dernière intervention
9 octobre 2017
1
Bonsoir,

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
jujuquatre
Messages postés
274
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
24 août 2004

Mise a jour : [13/07/2004 15:03:49] Ajout de la commande !info-logiciel , qui donne les infos sur le logiciel du jour ( Auteur, Taille, Os, Catégorie, Note, Lien et petite description )

PaDa > Oui j'ai regarder celui de sax, les complets mais j'y comprend pas tout lol
jujuquatre
Messages postés
274
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
24 août 2004

Mise a jour : [13/07/2004 15:03:49] Ajout de la commande !info-logiciel , qui donne les infos sur le logiciel du jour ( Auteur, Taille, Os, Catégorie, Note, Lien et petite description )

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.