Equivalent de ShowModalDialog pour un VBS

**papyxy** · 21/11/2012, 09h42

Bonjour
Je cherche un moyen d'exécuter un sous-programme externe qui me renvoie une valeur à partir d'un programme VBS.

**omen999** · 21/11/2012, 10h50

bonjour,
je ne vois pas trop le rapport entre le titre et le contenu du message

la méthode Exec de l'objet WScript.Shell permet d'exécuter un programme externe et de récupérer
les données renvoyées par l'intermédiaire de l'objet StdOut
avec certains inconvénients : lire ici et ici

**papyxy** · 21/11/2012, 11h16

je m'explique : à partir d'un programme xxxx.vbs, je souhaite exécuter un sous-programme externe yyyy.hta qui devrait me retourner une valeur vers l' appelant.
J'ai fait un essai en utilisant .exec("yyyy.hta"), mais j'ai une erreur sur celui-ci :
"yyyy.hta n'est pas une application Win32 valide."

**omen999** · 21/11/2012, 17h27

Code :

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

.exec "mshta file://localhost/C:/yyyy.hta"

où yyyy.hta est dans le répertoire racine du disque c:

**papyxy** · 21/11/2012, 20h49

Ca me plait bien mais je ne sais pas comment transmettre la valeur depuis le sous-programme yyyy.hta.
J'ai essayé avec

Code :

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

window.returnvalue= ...

cela me donne une erreur (sans doute parce que l'appelant est un VBS).

Sinon je vais passer par les registres pour stocker cette valeur de retour, afin de la récupérer dans l'appelant. (ça me parait un peu lourd, mais ça fonctionne

)

**omen999** · 22/11/2012, 16h46

cela me donne une erreur (sans doute parce que l'appelant est un VBS).

je confirme

ça me parait un peu lourd

mmm, enfin un esthète

edit :
mais il existe un solution qui utilise une fonction non documentée de l'objet ~~WshScriptExec~~ FileSystemObject, la fonction GetStandardStream
peut-être un jour un article sur l'undocumented vbs

un exemple :
le fichier test.vbs :

Code :

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

MsgBox CreateObject("WScript.Shell").Exec("mshta.exe file://localhost/C:/Documents%20and%20Settings/omen999/Mes%20documents/test.hta").StdOut.ReadAll

le script appelle le fichier test.hta situé dans "Mes documents" de l'utilisateur omen999 (à maj évidemment)
le fichier test.hta :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<html>
	<HEAD> 
	<TITLE>Modal Dialog by omen999</TITLE>
	<HTA:APPLICATION ID = 'IDTest'
		APPLICATIONNAME="Test"
		MAXIMIZEBUTTON="no"
		MINIMIZEBUTTON="no"
		CONTEXTMENU="no"
		SYSMENU="yes"
		SCROLL="no"
	>
	<script language="VBScript">
	Sub Window_onLoad
		window.resizeTo 250,150
	End Sub
'
	Sub  btValid_OnClick
		CreateObject("Scripting.FileSystemObject").GetStandardStream(1).WriteLine "btValid clicked"	
		window.Close 
	End Sub
 
	Sub  btAnnule_OnClick
	    CreateObject("Scripting.FileSystemObject").GetStandardStream(1).WriteLine("btAnnule clicked")
	    window.Close 
	End Sub	
	</script>
	</HEAD>
	<BODY>
	TEST BOITE MODALE
 	<input  type="button" value="OK" name="btValid" STYLE="position: absolute; top: 80px; left: 70px; width : 80px;" >
 	<input type="button" value="Annuler" name="btAnnule" STYLE="position: absolute; top: 80px; left: 155px; width : 80px;" >
	</BODY>
</html>

le choix de l'utilisateur s'affichera dans la MsgBox du script vbs

**papyxy** · 23/11/2012, 15h58

Je te remercie Omen pour ta prestation.

J'apprécie le dévouement sur ce forum de la part de certaines personnes.

Equivalent de ShowModalDialog pour un VBS

VBScript

Discussions similaires

Partager

Partager