Envoyé des sms automatique en vbs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 386 fois - Téléchargée 30 fois

Contenu du snippet

Permet d'envoyer des sms pour les abonnés bouygues uniquement avec un compte bouygues.
Permet une automatisation
ex: envoi ip de nouvelle connexion, ou un simple message d'un état du style sauvegarde effectué ou sauvegarde non effectué.
enfin quoi qu'il en soit avec beaucoup d'imagination on peux faire beaucoup
je pense que vous serez quoi en faire.

le code est commenté avant l'utilisation rentré votre n° de compte bouygues + votre mot de passe et le n° du destinataire ( ca peut etre le votre). et bien entendu le message.

J'espere que ce script vous plaira soyez sympa ne m 'assassiner pas c'est la premiere source que je mets.

Source / Exemple :


'****************************************************************************************'
'* Fichier:    Sms.vbs						      	
'* 																		*'
'* Cree:   (c) Bob Ferou								
'* E-Mail: bobferou@hotmail.com											
'****************************************************************************************'
Option Explicit
Dim oIE
Dim wshshell	

'***** Procède à la création de l’objet Internet Explorer *******'
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oIE = WScript.CreateObject("InternetExplorer.Application")

'*********************  Charge le document *.htm  ***************'
oIE.Navigate "http://services.6sens.bouyguestelecom.fr/SMS/SMSFormsLogin.asp" '
oIE.ToolBar = true
oIE.MenuBar = False
oIE.StatusBar = False
oIE.Visible = 2   
Wshshell.AppActivate "Envoi et archivage de SMS"

'*************  Attend que Internet Explorer s’affiche  *********'
Do While oIE.Busy
   WScript.Sleep 8000
Loop

WshShell.SendKeys "{TAB 18}"
  WScript.Sleep 4000
WshShell.SendKeys  "Mettre le N° Bouygues du Compte sans le 06"
  WScript.Sleep 2000
WshShell.SendKeys "{TAB}"
  WScript.Sleep 2000
WshShell.SendKeys "Mettre le mot de passe du compte" + "{TAB}"
  WScript.Sleep 2000
WshShell.SendKeys "{ENTER}"
 WScript.Sleep 6000
WshShell.SendKeys "{TAB}"
  WScript.Sleep 1000
WshShell.SendKeys "http://services.6sens.bouyguestelecom.fr/SMS/TelemessagesClientProcess5.asp?InvalidPage="
  WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
  WScript.Sleep 10000
WshShell.SendKeys "{TAB 20}"
  WScript.Sleep 2000
WshShell.SendKeys "Mettre le  N° du destinataire 06XXXXXXXX"
  WScript.Sleep 1000
WshShell.SendKeys "{TAB 15}"
  WScript.Sleep 1000
WshShell.SendKeys "Mettre le message a envoyé" & " " & date & " " & time
  WScript.Sleep 3000
WshShell.SendKeys "{TAB}" + "{TAB}" + "{TAB}"
  WScript.Sleep 1300
WshShell.SendKeys "{ENTER}"
  WScript.Sleep 10000

oIE.Quit
Set oIE = Nothing

Conclusion :


Si vous l'ameliorez soyer sympa tenez moi au courant merci
seul chose ne pas toucher le pc pendant l'execution a cause des senkeys.

A voir également

Ajouter un commentaire Commentaires
label97
Messages postés
19
Date d'inscription
dimanche 5 janvier 2003
Statut
Membre
Dernière intervention
13 janvier 2006

5 juil. 2004 à 16:43
la page web a été modifier il y a pas tres longtemp
disons que moi je m'en sert quand je pars je recois un sms pour me dire que quelqu'un a touché au pc et en plus je prend une photo qui est envoyé sur un serveur ftp et par mail aussi
je n'ai jamais etais embeter .
C'est surtout au cas ou je me fais cambrioler.
c'est nul c'est vrai mais efficace.

Pour orange on doit pouvoir l'adapter je pense
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
5 juil. 2004 à 10:31
le jour ou il y à une modif sur la page web, ca ne marchera plus
cs_valer
Messages postés
140
Date d'inscription
mercredi 26 mai 2004
Statut
Membre
Dernière intervention
26 juillet 2004

5 juil. 2004 à 09:09
c pas mal pensé, ca montre comment se servir des connexions, mais Saros a raison! c pas trop automatique, ca va limite plus vite d'aller sur le site!, par contre si tu me trouve un truc pour envoyer des sms gratos, la hmmm ca me remettra de la victoire de la grece! :)

Bonne continuation salut!

Valer
Megawatt2000
Messages postés
28
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
2 février 2006

5 juil. 2004 à 01:54
c pa possible d'adapter le script pour Orange ?
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

4 juil. 2004 à 09:13
Un peu à la main comme automatisation :)
Le truc c'est que si le PC rame à ce moment précis, ça foire tout :(

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.