Discussion :

[Gunner4902]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WScript.Sleep(6000)

Est-il possible, au lieu de préciser le temps (ici 6 secondes) de dire : éxécution de la suite après avoir appuyé sur la touche entrée ?

[marco_fot_hxc]

Salut ,

Pourquoi ne pas mettre une boite de dialogue en pop up à la place (une inputBox) ? Ca bloquerait l'exécution tant qu'on a pas cliqué sur OK il me semble...

Bon courage

-M@rc0-

[Gunner4902]

Et tu fais celà comment ? ta solution pourrait effectivement m'intéresser

[marco_fot_hxc]

Je manque un peu d'infos sur ton programme pour te dire exactement où mettre le MsgBox/InputBox mais je peux te renseigner sur la syntaxe :
(NB : si tu ne souhaites pas récupérer la réponse utilisateur, utilise MsgBox)

look ici :
http://www.w3schools.com/VBScript/func_inputbox.asp

et là :
http://www.w3schools.com/VBScript/func_msgbox.asp

Enfin voilà, en gros, je pense qu'il faut le placer au même endroit que ton Sleep et que, tant que l'utilisateur n'aura pas cliqué sur OK, le prog sera en stand-by ... Sinon, tu peux surement insérer ton InputBox dans une boucle vérifiant la valeur saisie et validant/invalidant le fait de continuer le programme.

Je viens de coder un exemple idiot mais qui fonctionne et te donnera une idée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim rep
rep = InputBox("Ca va ?")
 
while rep <> "oui"
	rep = InputBox("Ca va ?")
wend
 
MsgBox ("ouf..on est sorti")

Essai et tu comprendras peut être mieux.

Bon courage et fais signe en cas de besoin

-M@rc0-

[Gunner4902]

J'ai copié ton bout de code et l'exemple correspondt assez à ce que je voudrai faire.

Voici mon code, et ce qu'il gère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set wshell=CreateObject("WScript.Shell")
wshell.Run"C:\Progra~1\Rohos\agent.exe J:\rdisk.rdi"
WScript.Sleep(4000)
wshell.Run"K:\Mov'AMP\movamp.exe"
WScript.Sleep(1000)
wshell.Run"C:\Progra~1\Opera\opera.exe http://localhost/"

rdisk.rdi est une partition verrouillée, je l'appelle via le logiciel Rohos pour ouvrir l'interface avec le code.
Là je voudrais que le programme attende que j'ai appuyé sur le Ok de la boite de dialogue de Rohos.
Ensuite, est lancé le serveur apache via movamp (version mobile de easyphp)
puis après un délai d'attente de 1 seconde localhost est lancé via le navigateur opera.

J'ai essayé en ramplaçant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WScript.Sleep(4000)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rep = InputBox("Ok")

mais celà ne semble pas être adapté, car il faut que je clique une fois sur Ok dans Rohos, puis une fois sur la box, sans compter qu'il me propose une ligne de texte vide.

[marco_fot_hxc]

euh... pour ce qui est de la ligne de texte vide, remplace InputBox par MsgBox
Pour l'instant je ne suis pas en mesure de te dire comment te passer de ce deuxième OK. Cela me semblait une bonne "solution de secours". En fait ce qu'il faudrait (à mon avis) c'est être à l'écoute des signaux de sorti du Rohos (à la manière des signaux sur les processus en langage C).
Je vais essayer de faire des recherches de mon côté et si je trouve je te préviens.

Courage

-M@rc0-