Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Sms send - 1 sms gratuit par heure

0/5 (20 avis)

Snippet vu 64 781 fois - Téléchargée 8 fois

Contenu du snippet

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 / Exemple :


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 :)

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.