Toujours en sockets (j'vais pas arrêter !!), voici un addon qui permet d'afficher les 50 dernières sources de mircscriptsfrfm.com.
Je me suis inspiré de l'addon de SornDrixer (avec son accord).
Source / Exemple :
;------------------------------------------------------
;
; -=- Dernieres sources de mircscriptfrfm.com -=-
; By Re[M]i_34
;
;------------------------------------------------------
dialog sources {
title "Dernieres sources de mircscriptsfrfm.com"
size -1 -1 194 172
option dbu
button "Afficher les dernieres sources", 1, 4 5 184 11
edit "", 2, 24 26 141 10, center read autohs
edit "", 3, 8 38 177 115, multi autohs autovs hsbar vsbar
box "Résultats :", 4, 4 18 184 138
button "Effacer", 5, 31 159 44 10
button "Fermer", 6, 120 159 44 10, ok
}
menu * {
Dernières sources de mircscriptsfrfm.com:dialog -m sources sources
}
on *:dialog:sources:sclick:*: {
if $did == 1 {
sockopen site www.mircscriptsfrfm.com 80
did -ra sources 2 Connection en Cours...
}
if $did == 5 { did -r sources 2,3 }
}
on *:sockopen:site:{
sockwrite -n $sockname GET http://www.mircscriptsfrfm.com/cgi-bin/liste.pl?P=tous
did -ra sources 2 Connection Effectuée
did -a sources 3 -=- Début -=- $CRLF
}
on *:sockread:site:{
:re
sockread -f %pr
if (checked> isin %pr) { goto re }
if (<tr><td bgcolor="#E0A090"> isin %pr) {
if ($remove($gettok(%pr,5,62),</a,<br, ) == $null) { goto re }
else {
did -a sources 3 $remove($gettok(%pr,5,62),</a,<br, ) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
}
}
if (<tr><td bgcolor="#DDDDDD"> isin %pr) {
if ($remove($gettok(%pr,5,62),</a,<br, ) == $null) { goto re }
else {
did -a sources 3 $remove($gettok(%pr,5,62),</a,<br, ) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
}
}
if ($sockbr > 0) { goto re }
if ($sockbr == 0) {
.timer986 1 10 sockclose site
.timer987 1 10 did -a sources 3 -=- Fin -=-
halt
}
}
on *:dialog:sources: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.
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.