begin process at 2012 02 08 18:43:13
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > CONNAÎTRE SON HOROSCOPE

CONNAÎTRE SON HOROSCOPE


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Niveau :Débutant Date de création :28/01/2004 Vu :11 607

Auteur : ReMi34

Ecrire un message privé
Site perso
Commentaire sur cette source (18)
Ajouter un commentaire et/ou une note

 Description

Comme le dit le titre, c'est un addon en socket pour connaître son horoscope :)

Source

  • ;--------------------------
  • ;
  • ; -=- 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 }
  • }
;--------------------------
;
;    -=- 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à ;)


 Sources du même auteur

Source avec Zip JEU DE LETTRES : TROUVEREZ-VOUS LE MOT JUSTE ?
Source avec Zip Source avec une capture MULTISOCK V2.0
Source avec Zip [TUTORIEL] SOCKETS TCP - LES BASES
Source avec Zip LES BOUCLES WHILE
TESTER SA BANDE PASSANTE

 Sources de la même categorie

Source avec une capture QUOTES BASH ET BASHFR par Flyswat
Source avec Zip Source avec une capture FIREWALL par Bestdoud
ASPIRATEUR DE GALERIES INTERNET par PaDa
Source avec Zip MSN MESSENGER SUR IRC SCRIPT POUR COMPRENDRE LE FONCTIONEMEN... par synsun
Source avec Zip Source avec une capture PROGRAMME TV (PICWIN) par AgoRa_ScripT

Commentaires et avis

Commentaire de Eiffel le 28/01/2004 22:37:13

J'aurais mis les signes astros dans un combo , tu pense pas ? :)

Commentaire de ReMi34 le 29/01/2004 06:38:10

Ok Bon je vais essayer de faire ça mais je ne garantie rien :/
J'ai ma petite idée en tête ...

Commentaire de SornDrixer le 29/01/2004 07:04:17 administrateur CS

Bonne source !
Par contre, comme l'a dit Eiffel, dans un combo, (ou une list), sa serait une bonne idée.

Commentaire de ReMi34 le 29/01/2004 07:14:26

Ah ! Je pensais pas que tu allais me dire ça SornDrixer :)

Je suis entrain de le faire dans un combo mais je sais pas comment on fait pour que quand un texte est selectionné dans un combo, ben que ça retourne un truc. Enfin c'est compliqué. ($did(2).seltext ... ) Un truc comme ça, je sais pas lequel que c'est, si qqn pouvez m'aider :)

Commentaire de ReMi34 le 29/01/2004 07:32:42

Y a pas quelqu'un pour m'aider ?

J'explique mieux:

J'ai un combo, avec du texte dedans. Je veux que quand on clique sur le  bouton "Voir l'Horoscope", ça affiche l'horoscope du signe choisi dans le combo dans la liste.

Voilà, j'espère que vous avez compris et que vous pourrez m'aider ;)

Commentaire de mat22a54 le 29/01/2004 14:33:10

Salut, Pourquoi vous ne faite pas ce type de source (horoscope, prog télé) en commande salon. Pour que tout les user d'un chan puisse en profiter ??

Ca pourait etre sympa aussi je pense !

Sinon, beau travail !

Commentaire de SornDrixer le 29/01/2004 14:39:29 administrateur CS

mat22a54 : Ce n'est pas très dur à faire, voici le code :


ON *:TEXT:!horoscope*:#:{
if ($2) { set %h.chan $chan | set %signe $2 | sockopen horos www.euroavenir.com 80 }
}
on *:sockopen:horos: {
sockwrite -n horos GET http://www.euroavenir.com/horoscope/horoscope.php?textcolorin=000000&bgcolor=FFFFFF&titlecolor=FF0000&signe= $+ %signe
}
alias reg { var %oo,%gg = $1-,%bb = $regsub(%gg,/&lt;[^&gt;]+&gt;/gg,,%oo) | return $remove(%oo,$chr(59),$chr(38)) }
on *:sockread:horos: {
sockread %hr
if (&lt;font size="2"&gt; isin %hr) { msg %h.chan $reg(%hr) }
}

Ensuite, pour avoir l'horoscope, tu tapes :
!horoscope lesigne

Et voila.
( je n'ai pas testé mon adaption du code de ReMi34, mais cela doit être bon )

Commentaire de pierre2565 le 29/01/2004 15:52:26

ihhh ton adaption fonctionne sorn drixer elle a juste du mal de temps en temps pour afficher faudrai faire un trucs genre ki bloque kan c ps un signe astrologique mais je c ps comment faire :( voilou

Commentaire de vesparo le 29/01/2004 18:57:17

c'est du bon boulot ReMi, SornDrixer a mon avis tu devrait ajouter un timer pour eviter de partir en Excess Flood. :) a mon avis ReMi tu pourrait peut être rajouter le On Text de SornDrixer.
9/10

Commentaire de mat22a54 le 29/01/2004 20:37:32

merci sornDrixer, je vais tester de suite se que tu as donner
j'espere qu'il n'y aura pas de bug trop serieux car je suis un vrai debutant dans le scripting... :)

Commentaire de ReMi34 le 29/01/2004 20:47:11

Merci vesparo c'est sympa. Je vais revoir tous mes addons en sockets, donc laissez moi le temps :)

Commentaire de mat22a54 le 29/01/2004 21:28:28

bon je vais parraitre gourmand, mais personne aurait un tit code de prog TV affichage en salon pour un bot ? :p

Commentaire de ReMi34 le 30/01/2004 06:47:05

Ben, dépose le sur la source concernée, celle que j'ai faite :)

Commentaire de Fico75 le 07/02/2004 13:48:51

mat22a54 : Ce n'est pas très dur à faire, voici le code :


ON *:TEXT:!horoscope*:#:{
if ($2) { set %h.chan $chan | set %signe $2 | sockopen horos www.euroavenir.com 80 }
}
on *:sockopen:horos: {
sockwrite -n horos GET http://www.euroavenir.com/horoscope/horoscope.php?textcolorin=000000&bgcolor=FFFFFF&titlecolor=FF0000&signe= $+ %signe
}
alias reg { var %oo,%gg = $1-,%bb = $regsub(%gg,/&lt;[^&gt;]+&gt;/gg,,%oo) | return $remove(%oo,$chr(59),$chr(38)) }
on *:sockread:horos: {
sockread %hr
if (&lt;font size="2"&gt; isin %hr) { msg %h.chan $reg(%hr) }
}

Ensuite, pour avoir l'horoscope, tu tapes :
!horoscope lesigne

Et voila.
( je n'ai pas testé mon adaption du code de ReMi34, mais cela doit être bon )

personnelement je le trouve tres bon mais je veux tout simplement que mon horoscope envoie ça en pv ou en Notice aux personnes demandeur d'horoscope et merci :) soyez gentil de me donner le script pareceque j y connais pas grand chose

Commentaire de SornDrixer le 07/02/2004 13:52:53 administrateur CS

Fico75 :

ON *:TEXT:!horoscope*:#:{
if ($2) { set %h.nick $nick | set %signe $2 | sockopen horos www.euroavenir.com 80 }
}
on *:sockopen:horos:{
sockwrite -n horos GET http://www.euroavenir.com/horoscope/horoscope.php?textcolorin=000000&bgcolor=FFFFFF&titlecolor=FF0000&signe= $+ %signe
}
alias reg { var %oo,%gg = $1-,%bb = $regsub(%gg,/&lt;[^&gt;]+&gt;/gg,,%oo) | return $remove(%oo,$chr(59),$chr(38)) }
on *:sockread:horos:{
sockread %hr
if (&lt;font size="2"&gt; isin %hr) { msg %h.nick $reg(%hr) }
}

Là, sa enverra en pv à la personne, si tu veux que cela envoie en notice, tu remplaces "msg" par "notice". Voila

Commentaire de Fico75 le 07/02/2004 16:43:50

salut
je vouderais avoir le remote de la meteo  genre ,meme principe que le remote de horoscope , quand tu tappe !meteo (ville) tu as la meteo en pv ou en notice si possible meteo de presque tout les region du monde et merciiiiiiiiiiiiii bcp :)

Commentaire de Blacknight91titi le 24/08/2004 15:07:07

je n'arrive pas a faire marcher ce script :
(c'est celui qu'a donner SornDrixer le 29/01/2004 à 14:39:29)


ON *:TEXT:!horoscope*:#:{
if ($2) { set %h.chan $chan | set %signe $2 | sockopen horos www.euroavenir.com 80 }
}
on *:sockopen:horos: {
sockwrite -n horos GET http://www.euroavenir.com/horoscope/horoscope.php?textcolorin=000000&bgcolor=FFFFFF&titlecolor=FF0000&signe= $+ %signe
}
alias reg { var %oo,%gg = $1-,%bb = $regsub(%gg,/&lt;[^&gt;]+&gt;/gg,,%oo) | return $remove(%oo,$chr(59),$chr(38)) }
on *:sockread:horos: {
sockread %hr
if (&lt;font size="2"&gt; isin %hr) { msg %h.chan $reg(%hr) }
}




enfin bref voila
sinon la proposition de Fico75 pour la météo est bien
y en a t'il qui pourai nous aider la dessus svp ?
merci bcp d'avance :-)

Commentaire de Little93 le 03/08/2008 13:26:17

bonjours, moi ossi je n's pas reusi a metre le scripte je les mit seule je c'est pas si il faut le rajoute avec le sricpte de Remi donc voila sil vous plai sa maiderez beaucoup que vous maidiez merci !

 Ajouter un commentaire




Nos sponsors


Appels d'offres

Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,484 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales