probleme de goto dans un if - VB/VBA/VBS - Programmation
Marsh Posté le 18-03-2018 à 18:19:14
ligne 11 je ne vois pas de double point devant le label, ligne 7 j'en vois...
Marsh Posté le 08-05-2018 à 18:49:47
Bonjour,
intéressant... Plusieurs erreurs dans votre script, on retrouve des commandes en VBS et d'autres en CMD... Un choix est à faire :-)
Sinon, en VBS :
- A la place du goto on pourrait déjà faire un sub
- il y a un espace à End if (lignes 8, 12 et 16)
- les : ne sont pas gérés comme un label en VBS mais plutôt comme séparateur entre 2 instructions
Pouvez-vous préciser les fonctions que vous souhaitez exécuter avec votre script car plusieurs notions me semblent mélangées..?
Par ex. :
1 - Demander le temps du minuteur en minutes
2 - Exécuter la tempo demandée pour le minuteur
3 - Etc.
Marsh Posté le 18-03-2018 à 16:09:29
Bonjour,
je suis débutant en vbs
j'aimerais créer un minuteur, mais il y a un probleme à la ligne 7:
1 minutes = inputbox("à combien de minutes voulez-vous initialiser le minuteur" )
2 sec = minutes * 60
3 msec = sec * 1000
4 WScript.Sleep(msec)
5 :minuteur
6 if not e.KeyCode = Keys.Enter then
7 goto :minuteur
8 Endif
9 CreateObject("WScript.Shell" ).Run "C:\Users\remou\Downloads\0925.mp3"
10 if not e.KeyCode = Keys.Enter then
11 goto minuteur
12 endif
13 WScript.sleep(4000)
14 if not e.KeyCode = Keys.Enter then
15 goto :minuteur
16 endif
pouvez vous réctifiez mon erreur please
Merci.