script ne fonctionne pas

script ne fonctionne pas - VB/VBA/VBS - Programmation

Marsh Posté le 19-10-2005 à 09:47:35    

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>

Reply

Marsh Posté le 19-10-2005 à 09:47:35   

Reply

Marsh Posté le 22-10-2005 à 13:28:08    

Dejà dans ta FORM il faut une METHOD et une ACTION !
 
<FORM METHOD=POST ENCTYPE="text/plain" ACTION="mailto:toto@tot.fr">  ou
ACTION="../cgi-bin/mycgi.pl">
 
Puis dans ton INPUT un SUBMIT !
 
<INPUT TYPE=SUBMIT VALUE="Envoyer SMS TEST">  

Reply

Marsh Posté le 23-10-2005 à 18:56:21    

apple37 a écrit :

...Comme je debute depuis peu...


 
Difficile de debuter... Depuis longtemps  :pt1cable:  
 
 
 
 


---------------
Mangas/DVD - Chiptune
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed