Accueil > > > SMS SEND - 1 SMS GRATUIT PAR HEURE
SMS SEND - 1 SMS GRATUIT PAR HEURE
Information sur la source
Description
Petit addon en socket
Sur le serveur irc.chat-land.org dans le salon #SMS il y a un bot nommé " SMS " capable d'envoyer 1 SMS par heure et par personne.
Dans une précédente source, quelqu'un en parlait et disait que faire une " paserelle " en socket & dialog pour envoyer des SMS via le bot serait pômal ... Bah c'est qu'il connaissait pas mon grand talent pour les dialogs :)
Vola, donc un socket se connecte tout simplement au serveur, join le chan #SMS, fait passer le message au bot, et se déconnecte au bout de 60 secondes. Si les délais sont si énorme, c'est que le propriétaire du bot a accepté que je publi cet addon a condition que l'host de l'utilisateur puisse être repérable un certain temps par les modérateurs.
Le code est très moche, le dialog aussi, mais le principal c'est qu'il envoi les SMS nan ? :p
Je sais aussi, que devoir regarder la window pour voir si le message est bien partit, bah c'est bien lourd, mais bon, c'est la toute prmière fois que j'utilise les sockets, et je suis limite fier de moi même ^_^
je suis ouvert à toute remarques pouvant me faire progresser, ou faire progresser la source.
Have fun :)
Source
- alias smsend {
-
- sockclose smsend
-
- sockopen smsend irc.chat-land.org 6667
-
- }
-
- on *:sockopen:smsend:{
-
- if ($sockerr) { echo -a Erreur! | return }
-
- sockwrite -n smsend NICK Auto-SMS_ $+ $rand(999,99999)
-
- sockwrite -n smsend USER SMS-SEND SMS-SEND SMS-SEND :Envoi Automatique - SMS
-
- }
-
- on *:sockread:smsend:{
-
- sockread %a
-
- if ($gettok(%a,1,32) == PING) sockwrite -n smsend PONG $remove($gettok(%a,2,32),:)
-
- Aline @Auto-SMS %a
-
- unset %a
-
- }
-
- dialog smsend {
- title "Envoi Gratuit De SMS - Limité A Un SMS Par Heure"
- size -1 -1 169 177
- option dbu
- text "IMPORTANT", 1, 8 8 153 9, center
- text "Limite de caractères autorisés : 90", 2, 8 16 153 9, center
- text "Pas de couleurs", 3, 8 24 153 9, center
- text "Seul les lettres et chiffres marchent", 4, 8 32 153 9, center
- text "N'oubliez pas de signer vos SMS ;-)", 5, 8 40 153 9, center
- button "Envoyer", 6, 16 104 57 25, multi
- edit %sms.msg, 7, 56 80 105 9, autohs
- text "Votre Message", 8, 8 80 41 9, center
- button "Fermer", 10, 96 104 57 25, cancel
- text "Destinataire :", 9, 8 64 41 9, center
- edit %sms.num, 11, 56 64 65 9, autohs
- edit %sms.mark, 12, 16 144 137 17, read multi center
- }
-
- on *:dialog:smsend:sclick:6:{
- set %sms.msg $did(7)
- set %sms.num $did(11)
- window @Auto-SMS
- smsend
- timer 1 2 sockwrite -n smsend JOIN #sms
- timer 1 2 echo -at 4[SMS-SEND4] 10- 3Attention, Vérifiez Que Votre Message Soit Bien Envoyé Dans La Fenêtre " @Auto-SMS "
- timer 1 4 sockwrite -n smsend PRIVMSG SMS :!sms %sms.num %sms.msg
- timer 1 60 unset %sms.msg
- timer 1 60 unset %sms.num
- timer 1 60 sockclose smsend
- }
-
- menu menubar,channel {
- • SMS Send:/dialog -m smsend smsend
- }
alias smsend {
sockclose smsend
sockopen smsend irc.chat-land.org 6667
}
on *:sockopen:smsend:{
if ($sockerr) { echo -a Erreur! | return }
sockwrite -n smsend NICK Auto-SMS_ $+ $rand(999,99999)
sockwrite -n smsend USER SMS-SEND SMS-SEND SMS-SEND :Envoi Automatique - SMS
}
on *:sockread:smsend:{
sockread %a
if ($gettok(%a,1,32) == PING) sockwrite -n smsend PONG $remove($gettok(%a,2,32),:)
Aline @Auto-SMS %a
unset %a
}
dialog smsend {
title "Envoi Gratuit De SMS - Limité A Un SMS Par Heure"
size -1 -1 169 177
option dbu
text "IMPORTANT", 1, 8 8 153 9, center
text "Limite de caractères autorisés : 90", 2, 8 16 153 9, center
text "Pas de couleurs", 3, 8 24 153 9, center
text "Seul les lettres et chiffres marchent", 4, 8 32 153 9, center
text "N'oubliez pas de signer vos SMS ;-)", 5, 8 40 153 9, center
button "Envoyer", 6, 16 104 57 25, multi
edit %sms.msg, 7, 56 80 105 9, autohs
text "Votre Message", 8, 8 80 41 9, center
button "Fermer", 10, 96 104 57 25, cancel
text "Destinataire :", 9, 8 64 41 9, center
edit %sms.num, 11, 56 64 65 9, autohs
edit %sms.mark, 12, 16 144 137 17, read multi center
}
on *:dialog:smsend:sclick:6:{
set %sms.msg $did(7)
set %sms.num $did(11)
window @Auto-SMS
smsend
timer 1 2 sockwrite -n smsend JOIN #sms
timer 1 2 echo -at 4[SMS-SEND4] 10- 3Attention, Vérifiez Que Votre Message Soit Bien Envoyé Dans La Fenêtre " @Auto-SMS "
timer 1 4 sockwrite -n smsend PRIVMSG SMS :!sms %sms.num %sms.msg
timer 1 60 unset %sms.msg
timer 1 60 unset %sms.num
timer 1 60 sockclose smsend
}
menu menubar,channel {
• SMS Send:/dialog -m smsend smsend
}
Conclusion
J'éssairais de mettre à jour la source en suivant vos conseils :)
Historique
- 06 mai 2007 22:14:58 :
- Huhu, petit oubli d'un morceau de la source xD
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Comment connecter un Socket ( sock ) à travers un proxy ? [ par biggoude ]
JE souhaite connecter un Socket sur un server IRC en le passant par un Proxy, comment faire cela ?Merci
Prolème ac mon DDC!!! [ par Dainh ]
J'ai un pb de DDC, en reseau local, je ne pe pas envoyer de fichier, mais je pe en recevoir, alors k'en connection seul, je peux envoyer et recevoir.
Plus aucun socket ne répond... [ par Kolibot ]
Aucun socket ne répond depuis qqs jours... quelqu'un aurait'il une idée...By Koli
problem dcc send [ par doh380 ]
slt, g un problem je n'arrive pas a envoyer des fichiers en dcc send.... j epeux les recevoirs mais po les envoyer...g remarqué que tt les personnes c
serveur irc gratuit [ par luky37 ]
comment on trouve un serveur irc gratuit ?
Envoyer un fichier sur un FTP [ par juki_webmaster ]
Bonjour , J'ais chercher tout ce que je pouvez sur ircfr.com et je trouve rien de simple qui permet denvoyer un fichier precis vers un ftp !Donc pouve
dcc send en socket [ par abdoulax ]
yo j'aurai besoin que qlq1 m'explik ac précsion le protocole du dcc send . ou sinon il me faudrai un exemple d'addon ki reproduirai le dcc send en soc
bouncer irc [ par titeuf28310 ]
Bonjours, je debute dans le scripting, j'ai entendu parlais qu'il existe un moyen de cacher son adresse ip (bouncer). Je me suis rendu sur le net afin
socket tokens avec gametiger.net [ par pcgpegase ]
bjour / bsoir tout les gens ! :)Bon alors étant un newbie du scripting irc et n'ayant pas trouvé de réponses à mon problème je demande votre aide :>
socket ! [ par Le_Corse ]
Salut,Quelqun connaitrais pas un bon tuto pour les sockets Svp ?merci ^^» Le_Corse
|
Derniers Blogs
TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLETECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice
Speakers: Julien Marechal, Gautier Confiant, Sébastien MEYER La session débute par le positionnement de la solution System Center par rapport aux concepts d'organisation ITIL. Le portail du catalogue de se...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOURTECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice
Après une première journée dédiée aux développeurs, cette seconde journée est dédiée au monde des entreprises et de ses applications. Ainsi, cette pleinière est dédiée à faire un 360 de l'évolution des applications Business aux demandes ac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVéTECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice
Speaker : Guillaume Rochette Cette session est dédiée à fournir le retour sur la mise en place d'un cloud privé (IaaS) par Osiatis pour son compte ou celui de ses clients. Ce projet s'est déroulé sur 4 mois et a permis de faire évoluer...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYSTECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice
Speakers : Lionel Limozin et Alain Marty La session commence par une découverte de SharePoint à travers la mise en place d'un environnement SharePoint pour la gestion des Sessions animées par BeWise. Le besoin est très ba...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit
Je viens de publier la version 3.0 de Perspective pour Silverlight, qui regroupe un portage sous Silverlight 5.0 des fonctionnalités de Perspective 2.0, le framework 3D de haut-niveau introduit récemment et de nouveaux exemples de code. En voici la li...
Cliquez pour lire la suite de l'article par odewit
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|