|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 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 du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 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
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
LG KP501
Entre 9€ et 159€
|