1. Accueil
  2. Tous les snippets
  3. Snippets IRC
  4. Afficher les dernieres sources d'ircfr.com

Afficher les dernieres sources d'ircfr.com

3/5 (8 avis)

Snippet vu 4 503 fois - Téléchargée 25 fois

Commenter

Contenu du snippet

Comme promis, toujours dans ma lignée de sockets, je poste ici un code pour afficher les dernières sources d'ircfr.com.

Merci à hell et tofu qui m'ont aidé ;)

Source / Exemple : 


;------------------------------------------------------
;
;   -=- 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>&nbsp;&nbsp;<a href=", http://www.ircfr.com/),">, Titre :),&#201;,é) $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)
}

Conclusion :


Voilà, dites moi ce que vous en pensez :)

PS: Il vous faut mdx.dll dans la racine de votre mIRC ou Script.

A voir également

Ajouter un commentaire Commentaires
cs_PsYZiK Messages postés 58 Date d'inscription jeudi 5 juin 2003 Statut Membre Dernière intervention 6 août 2004
3 août 2004 à 20:10
avec la mise a jour du site et son new design ca devient cho :)
aller...
cs_ReMi34 Messages postés 1025 Date d'inscription vendredi 29 août 2003 Statut Membre Dernière intervention 28 mars 2005 2
30 janv. 2004 à 16:35
C'est une bonne idée Eiffel, mais comme je l'ai dis, je vais revoir tous mes addons en sockets, puis je vais les "corriger" :) donc, patience !
cs_Eiffel Messages postés 121 Date d'inscription jeudi 16 octobre 2003 Statut Membre Dernière intervention 26 août 2004
28 janv. 2004 à 03:37
Ouais c'est pas trop mal
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 :)
cs_ReMi34 Messages postés 1025 Date d'inscription vendredi 29 août 2003 Statut Membre Dernière intervention 28 mars 2005 2
26 janv. 2004 à 17:21
deliriumtribu, cela n'a rien à voir avec mdx.dll, c'est le socket qui n'arrive pas à se connecter :/
deliriumtribu Messages postés 46 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 28 avril 2004
26 janv. 2004 à 11:44
Je sais pas vous mais en tout cas chez moi ca marche pas ! Ca me di :
* /sockwrite: 'ircfr' not connected (line 33, script9.mrc)

C est zarb ! Fodrai qu on m explik (pourtant g le mdx.dll dans la racine)
Afficher les 8 commentaires
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 (cs_ReMi34)