Statut execution commande dans .hta

**goro_830** · 16/06/2015, 15h06

Eh oui c'est encore moiiiii

Alors voila à quoi ressemble mon .hta

Nom : Sans titre.jpg
Affichages : 353
Taille : 18,4 Ko

Croyez vous qu'il soit possible d'ajouter à droite de chaque bouton quelque chose (comme un voyant vert pour OK et rouge pour NOK ou ca Nom : v-vert-avantages.png
Affichages : 574
Taille : 1,9 Ko

Nom : v-vert-avantages.png
Affichages : 574
Taille : 1,9 Ko

qui m'indique que l'execution de la commande s'est bien déroulé ?

Je vous remercie d'avance !!!!!

David

**l_autodidacte** · 17/06/2015, 00h01

Un CheckBox (case à cocher) peut faire l'affaire : Si le test est OK, la case est cochée et non sinon

**goro_830** · 17/06/2015, 18h44

Salut et merci de ta réponse

Tu proposes de passer par cette commande ?

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
	Sub OK_OnClick()
		If Not IsNumeric(cp.value) Then
			OKOK.Checked=""
			MsgBox "Entrée non valide"
			Exit Sub
		End If
		Executer("echo.Creation migration_H" & cp.value & " & md c:\temp\migration_H" & cp.value & "",1)
		If Resultat = 0 Then
			'MsgBox "MAJ du Script OK!"
			OKOK.Checked="Checked": OKOK.title = "L'opération a réussi"
			Else
			OKOK.Checked="": OKOK.title = "Commande DOS Echoué"
		End if
	End Sub
 
 
 
<INPUT Type="button" id = "OK" name="OK" value="MAJ du Script" > <Input Type="checkbox" id = "OKOK" disabled="disabled" >
 
 
ProgElecT

Mais est-ce qu'elle valide le résultat de la commande ou juste le fait que le bouton ait été cliqué ?

Si elle valide bien le bon déroulement de la commande, dois refaire juste l'inbut pour chacun de mes boutons ou je dois mettre à chaque fois l'ensemble input + sub ?

Merci d'avance

**l_autodidacte** · 17/06/2015, 21h38

Le code que tu présentes est un extrait de celui de notre cher ami ProgElecT(

).
Mais à vrai dire, je n'en vois pas le contexte ni les variables utilisées.

Une suggestion est de créer dans OK_OnClick() une variable booléenne qui prendra la valeur True si le résultat est bon et False dans le cas contraire.
Suite à la valeur de cette variable, on coche ou décoche le CheckBox correspondant.

**ProgElecT** · 17/06/2015, 21h51

Salut

(Le retour

)
Il y a la possibilité de visualiser le résultat par le biais d'images (3)
Un simple cadre

Opération réussie

Opération échouée

Ces images Gif ont pour couleur transparente ce qui apparait en blanc, donc le fond du HTA sera visible.
Pour le telechargemlent -> Les Images.zip
Attention, les images doivent être dans le dossier du .HTA
En partant du

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
<HTML>
	<HEAD>
	<TITLE> Code postal </TITLE>
		<HTA:APPLICATION
			APPLICATIONNAME="TrucChose"
			ID="TrucChose"
			MAXIMIZEBUTTON="no"
			SCROLL="no"
			BORDER = "thin"
			<
	</HEAD>
 
	<SCRIPT language="VBScript">
	'------------------------------------------------------------------------------------------------------------------
		' Déclarations utilisables dans toute la partie VBScript
		Dim DossierDuProg
	'----------------------------------------------------------------------------------------------------------------------
	Sub Window_Onload()
		Dim ChemNomComplet
		DossierDuProg = Left(ChemNomComplet, (InStrRev(ChemNomComplet, "\", -1, vbTextCompare)))
		DossierDuProg = Replace(DossierDuProg,Chr(34),"")
		ImgCP.Src = DossierDuProg & "TR.gif"
		ChemNomComplet = TrucChose.CommandLine ' ChemNomComplet = Id du programme.CommandLine
		ResizeTo 450,100: MoveTo (Screen.Width-450)/2,(Screen.Height - 100) / 2
	End Sub
	'----------------------------------------------------------------------------------------------------------------------
	Function Executer(StrCmd,Console)     
		If Console = 0 Then '0 pour cacher la console MS-DOS
			MyCmd = "CMD /C " & StrCmd & " "
			Executer = WS.run(MyCmd,Console,True)
			Else ' 1 pour montrer la console MS-DOS
			MyCmd = "CMD /K " & StrCmd & " "
			Executer = WS.run(MyCmd,Console,False)
		End If
	End Function
	'----------------------------------------------------------------------------------------------------------------------
	Sub CP_OnKeyPress()
		If (window.event.keyCode) = 13 Then OK_OnClick
	End Sub
	'----------------------------------------------------------------------------------------------------------------------
	Sub OK_OnClick()
		If Not IsNumeric(CP.value) Then
			ImgCP.Src = DossierDuProg & "TR.gif"
			MsgBox "Entrée non valide"
			Exit Sub
		End If
		'If Executer("echo.Creation migration_H" & cp.value & " & md c:\temp\migration_H" & cp.value & "",1) = 0 Then
		If 0 = 0 Then
			ImgCP.Src = DossierDuProg & "OK.gif" ' L'opération a réussi
			Else
			ImgCP.Src = DossierDuProg & "KO.gif" ' L'opération a échouée
		End if
	End Sub
	'----------------------------------------------------------------------------------------------------------------------
	</SCRIPT>
 
	<Body text=white bgcolor="DarkOrange" TOPMARGIN="1" LEFTMARGIN="1">
		<center>
		<b> Saisir votre code </b>
		<INPUT Type="text" id= "CP" name="CP" & cp.value &= & cp.value & size=4 maxlength=4 style="Color:blue ">
		<INPUT Type="button" id = "OK" name="OK" value="MAJ du Script" >
		<IMG Name="ImgCP" id="ImgCP" Src="" />
	</Body> 
</HTML>

J'ai modifié/nettoyé/simplifié la fonction Executer

Fonctionnement de la sub OK_OnClick():
Si CP.value n'est pas un nombre, affiche l'image TR.gif.
La fonction Executer, après exécution renvoie 0 si elle a réussi, donc If Executer("echo.Creation migration_H" & cp.value & " & md c:\temp\migration_H" & cp.value & "",1) = 0 Then affiche l'image Ok.gif.
Dans le cas ou la fonction a échoué elle renvoie un chiffre différent de 0, donc affiche l'image KO.gif

Pour des essais, j'ai mis en commentaire la ligne 47, la ligne 48 (0=0) permet de simuler la réussite de la fonction Executer, en transforment en (0=1) on simule l’échec de la fonction Executer.
Si tu entres autre chose qu'un code postal valide (nombre) l'indicateur sera un simple cadre.

**goro_830** · 17/06/2015, 22h29

Merci a tous les 2 je vais regarder ça, je reviens vers vous tout vite

**goro_830** · 17/06/2015, 22h42

ProgElecT, ce que tu me proposes est super, maintenant la question est dans la mesure ou j'ai 25 boutons avec 25 commandes différentes, je dois copier 25 fois cette section ??

Dsl si mes questions sont betes mais c mon premier script et c'est pas vraiment mon univers le developpement

Statut execution commande dans .hta

VBScript

Vue hybride

Discussions similaires

Partager

Partager