Comme le dit le titre, c'est un addon en socket pour connaître son horoscope :)
Source / Exemple :
;--------------------------
;
; -=- Horoscope -=-
; By Re[M]i_34
;
;---------------------------
dialog horos {
title "-=- Horoscope -=- By Re[M]i_34"
size -1 -1 136 173
option dbu
box "Résultats :", 6, 5 38 127 120
text "Entrez votre signe zodiacal :", 1, 25 3 79 8, center
edit "", 2, 27 13 77 10, center autohs
button "Voir l'Horoscope", 3, 24 26 81 11, default flat
edit "", 4, 8 46 119 10, center read
edit "", 5, 8 57 119 96, multi autohs autovs hsbar vsbar
button "Effacer", 7, 17 161 37 10
button "Fermer", 8, 86 161 37 10, ok
}
menu * {
-
Horoscope:dialog -m horos horos
-
}
on *:dialog:horos:*:*: {
if $devent == sclick {
if $did == 3 {
set %signe $did(2)
did -ra horos 4 Connexion en Cours...
sockopen horos www.euroavenir.com 80
}
if $did == 7 {
did -r horos 2,4,5
sockclose horos
}
}
if $devent == init {
dll mdx.dll SetMircVersion $version
dll mdx.dll MarkDialog $dname
dll mdx.dll SetColor $dname 4 text $rgb(255,0,0)
dll mdx.dll SetColor $dname 5 text $rgb(0,0,255)
dll mdx.dll SetColor $dname 4,5 textbg $rgb(255,255,255)
dll mdx.dll SetColor $dname 4 background $rgb(255,255,255)
}
}
on *:sockopen:horos: {
sockwrite -n horos GET http://www.euroavenir.com/horoscope/horoscope.php?textcolorin=000000&bgcolor=FFFFFF&titlecolor=FF0000&signe= $+ %signe
did -ra horos 4 Connexion Effectuée
}
alias reg { var %oo,%gg = $1-,%bb = $regsub(%gg,/<[^>]+>/gg,,%oo) | return $remove(%oo,$chr(59),$chr(38)) }
on *:sockread:horos: {
sockread %hr
if (<font size="2"> isin %hr) { did -a horos 5 $reg(%hr) $CRLF }
}
Conclusion :
Je précise que j'ai réalisé cet addon tout seul :)
Voilà ;)
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.