Envoyé des sms automatique en vbs

Commenter

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

S'inscrire maintenant

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.

Du même auteur (label97)