Snippet : logiciel du jour

Commenter

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

S'inscrire maintenant

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.

Du même auteur (jujuquatre)