Bonjour le forum ,
J ai un probleme avec mon petit script . Comme je debute depuis peu , je n arrive pas à trouver mon erreur .
J ai bien la msgbox qui me demande si je veux valider oui ou non , lorsque je reponds OUI rien ne se passe
merci pour votre aide :
<SCRIPT language="VBscript">
Sub test_OnClick()
Dim reponse
Dim texte
Dim mobiles(1)
Dim nbmobiles
Dim texteSMS
mobiles(0)="06"
nbmobiles = 1
reponse = 0
texteSMS = "test xxxx"
reponse= Msgbox ("Etes-vous sûr de vouloir envoyer ce SMS ?",4)
if reponse = 6 then
Set objExplorer = CreateObject("InternetExplorer.Application" )
for i = 0 to nbmobiles
objExplorer.Navigate "http:passerelle" & mobiles(i) & "&text=" & texteSMS
WScript.sleep(10000)
next
Set objExplorer = Nothing
reponse = msgbox ("Les SMS sont partis",0)
Else
reponse = msgbox ("Envoi des SMS annulé",0)
end if
'----------- Fin du script
end sub
</SCRIPT>
</HEAD>
<BODY>
<FORM>
<INPUT TYPE="button" NAME="test" VALUE="Envoyer SMS TEST">
</FORM>
</BODY>
</HTML>
