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 de la même categorie
Commentaires
Discussions en rapport avec ce code source
|
CalendriCode
| | | L | M | M | J | V | S | D |
| | | | 1 | 2 | 3 | 4 |
| 5 | 6 | 7 | 8 | 9 | 10 | 11 |
| 12 | 13 | 14 | 15 | 16 | 17 | 18 |
| 19 | 20 | 21 | 22 | 23 | 24 | 25 |
| 26 | 27 | 28 | 29 | 30 | 31 | |
|
Téléchargements
Logiciels à télécharger sur le même thème :
|