CITATION
..... Je laisse ce post avec ce code bien que le code ne fonctionne plus . Je le laisse car, il peut donner des idées pour d'autres applications.
Pour le code pour weborama qui fonctionne, se reporter au post juste en dessous
Où cliquer ici --> Cliquez pour voir le fichier-joint <-- Pour telecharger le fichier .....
Enjoy it
Orus
Pour le code pour weborama qui fonctionne, se reporter au post juste en dessous
Où cliquer ici --> Cliquez pour voir le fichier-joint <-- Pour telecharger le fichier .....
Enjoy it
Orus
hello,
Voici un petit addon pour voir les resultat "sous thématique" de weborama,
Ici, il le fait pour ccscript (msn groupe), pour le mettre pour son site perso, simplement changer l'id (le numero qui se trouve à la fin du lien pour le vote)
Ce code est très simplfié car il utilise un .txt
CODE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;;
;;;;résultat Vote Weborama;;;;;
;;;; Orus;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#vote
alias vire { var %i,%a = $1-,%b = $regsub(%a,/<[^>]+>/g,,%i) | return %i }
alias webo.1 {
sockclose webo.1
sockopen webo.1 vote.weborama.fr 80
}
alias sock.ephe1 {
sockclose sock.ephe1
sockopen sock.ephe1 ephemeride.com 80
}
on *:sockopen:*: {
if ($sockname == webo.1) {
if ($sockerr) { echo -a Connexion Impossible. | halt }
echo -a Socket connecté.
sockwrite -nt $sockname GET http://www.weborama.fr/cgi-bin/resultat_vote.cgi?ID=205012
sockwrite -nt $sockname $str($crlf,2)
}
elseif ($sockname == sock.ephe1) {
if ($sockerr) { echo -a Connexion Impossible. | halt }
echo -a Socket connecté.
sockwrite -nt $sockname GET http://www.ephemeride.com
sockwrite -nt $sockname $str($crlf,2)
}
}
on *:sockread:*:{
if ($sockname == webo.1) {
sockread $vire(%q)
write weborus.txt $remove($vire(%q),$chr(9))
unset $vire(%q)
}
elseif ($sockname == sock.ephe1) {
sockread $vire(%z)
if (class="TitreBlocGris" isin %z) && (20 isin %z) { msg $msn.get($cid,fullroom) S dTrebuchet\bMS;0 $remove($vire(%z),$chr(9)) 
 il est $time }
}
}
on *:sockclose:*:{
if ($sockname == webo.1) {
echo -a Socket fermé.
var %vote2 = $read(weborus.txt,112)
var %vote = $read(weborus.txt,113)
var %vote1 = $read(weborus.txt,114)
msg $msn.get($cid,fullroom) S dTrebuchet\bMS;0 
 %vote2 
 Nombre de votes sur 90 jours : %vote 
 Nombre de votes pour aujourd'hui : %vote1 
 http://vote.weborama.fr/fcgi-bin/vote.fcgi?205012 | unset %vote* | .remove weborus.txt
}
elseif ($sockname == sock.ephe1) {
echo -a Socket Ephémère fermé.
}
}
alias sock.ephe1 {
sockclose sock.ephe1
sockopen sock.ephe ephemeride.com 80
}
on *:TEXT:*vote:#: {
if (%fl == 1) halt
sock.ephe1 | webo.1 | set -u10 %fl 1
}
#vote off
;;;; ;;;;;
;;;;résultat Vote Weborama;;;;;
;;;; Orus;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#vote
alias vire { var %i,%a = $1-,%b = $regsub(%a,/<[^>]+>/g,,%i) | return %i }
alias webo.1 {
sockclose webo.1
sockopen webo.1 vote.weborama.fr 80
}
alias sock.ephe1 {
sockclose sock.ephe1
sockopen sock.ephe1 ephemeride.com 80
}
on *:sockopen:*: {
if ($sockname == webo.1) {
if ($sockerr) { echo -a Connexion Impossible. | halt }
echo -a Socket connecté.
sockwrite -nt $sockname GET http://www.weborama.fr/cgi-bin/resultat_vote.cgi?ID=205012
sockwrite -nt $sockname $str($crlf,2)
}
elseif ($sockname == sock.ephe1) {
if ($sockerr) { echo -a Connexion Impossible. | halt }
echo -a Socket connecté.
sockwrite -nt $sockname GET http://www.ephemeride.com
sockwrite -nt $sockname $str($crlf,2)
}
}
on *:sockread:*:{
if ($sockname == webo.1) {
sockread $vire(%q)
write weborus.txt $remove($vire(%q),$chr(9))
unset $vire(%q)
}
elseif ($sockname == sock.ephe1) {
sockread $vire(%z)
if (class="TitreBlocGris" isin %z) && (20 isin %z) { msg $msn.get($cid,fullroom) S dTrebuchet\bMS;0 $remove($vire(%z),$chr(9)) 
 il est $time }
}
}
on *:sockclose:*:{
if ($sockname == webo.1) {
echo -a Socket fermé.
var %vote2 = $read(weborus.txt,112)
var %vote = $read(weborus.txt,113)
var %vote1 = $read(weborus.txt,114)
msg $msn.get($cid,fullroom) S dTrebuchet\bMS;0 
 %vote2 
 Nombre de votes sur 90 jours : %vote 
 Nombre de votes pour aujourd'hui : %vote1 
 http://vote.weborama.fr/fcgi-bin/vote.fcgi?205012 | unset %vote* | .remove weborus.txt
}
elseif ($sockname == sock.ephe1) {
echo -a Socket Ephémère fermé.
}
}
alias sock.ephe1 {
sockclose sock.ephe1
sockopen sock.ephe ephemeride.com 80
}
on *:TEXT:*vote:#: {
if (%fl == 1) halt
sock.ephe1 | webo.1 | set -u10 %fl 1
}
#vote off
enjoy it
