hta et fichier ini

[Macfplus]

bonjour, j'ai un fichier hta qui sert à lancer des applications au boot.

Code :

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
 
Sub StartTimer
			MonTimer0 =window.setTimeOut ("welcome", 1000, "VBScript") 'Appel de MonScript
			MonTimer1 = window.setTimeOut ("Start01", 5000, "VBScript") 'Appel de MonScript 
[......]
					End sub
 
Sub Welcome
S = SetTimeOut("MaSub (""Vos applications vont se lancer dans un instant... Veuillez patienter..."")", 100)
End Sub		
 
Sub Start01
Set WshShell = CreateObject ("Wscript.Shell")
 
WshShell.Run Chr(34) & "X:\bureau\Logs\prog.bat"
S = SetTimeOut("MaSub (""le prog a bien été lancée !"")", 100)
End Sub
 
Sub Startend
S = SetTimeOut("MaSub (""toutes les applications ont été correctement lancées !"")", 100)
End Sub
 
Sub Startend
window.close()
End Sub
 
Set WshShell = nothing

En fait si je veux rajouter ou supprimer des fichiers à lancer, je suis obligé a chaque fois d'editer mon fichier hta ce qui est parfois fastidieux

Je ne suis pas fortiche alors j'y vais doucmeent mais comment je pourrais mettre:
1) le delai avant lancement
2)le fichier à lancer
3) le texte d'accompagnement

de maniere simple dans un fichier ini ou dat ou txt ou peu importe l'extension?
L'ideal serait que ce soit le plus simple possible et que le fichier hta aille lire dans ce fichier les programmes ou autres fichiers à lancer avec leurs instructions.

Merci d'avance pour votre aide

[BlobbyBlob]

Le plus simple c'est de créer un fichier csv avec dedans tes 3 paramètres séparés par un ";"
Ensuite via un objet fso t'ouvres ton fichier csv en lecture, tu récupères la première ligne en faisant un split sur le ";", et voilà, tu te retrouves avec un array contenant tes 3 paramètres.

[Macfplus]

Alors, voilà ce que j'ai fait en compilant différentes recherches sur le net:

Code :

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
 
Dim FSO, LeFichier
	Dim CheminNomFichier, PourTbl, TblLigne, TblColonne
        Dim T
        Dim Champs1
        Dim compteur 
        compteur = 1 
 
 
 
 
 
'Pour accéder au fichier 
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "D:chemin\ini.csv"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
 
 
 
        'ajout d'un retour chariot à la derniere ligne pour le Splitage
             PourTbl = PourTbl & vbclrf
	TblLigne = Split(PourTbl,vbCrLf)
 
 
        'pour obtenir le nombre de ligne du fichier 
         T = Ubound(TblLigne)
 
        'dimensionne chaque variable
        redim Champs1(T)
 
 
         'Pour T = 0 jusqu'a la derniere ligne
        for T =0 to ubound(TblLigne)
 
         TblLigne(T) = TblLigne(T) & ";"
         TblColonne = Split(TblLigne(T) ,";",1)
 
 
          wscript.echo TblColonne (N)
 
        next

donc là j'obtiens daquand je lance le vbs, une fenetre de type alert avec chaque ligne complète (4 variables qui se suivent)

Mais je ne sais pas comment faire pour intégrer mon code dans mon hta et surtout récupérer les 4 variables et les appeler au bon endroit?

Désolé, ce n'est pas du tout ma partie mais j'essaie...
Bonne journée

[hackoofr]

Vous pouvez aussi faire comme ceci en VBS:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "command.txt"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
TblLigne = Split(PourTbl,vbCrLf)
For i=LBound(TblLigne) To UBound(TblLigne)
Executer TblLigne(i)
Next
 
Function Executer(command)
Set ws = CreateObject("wscript.Shell")
ws.Run Command,0,True
End Function

Command.txt

Code :

1
2
3
cmd /c calc
cmd /c explorer
cmd /c notepad

[Macfplus]

Bonjour hackoofr,

Oui sauf que j'ai besoin d'une part de rester dans un environmement graphique d'où le fichier .hta, et aussi que je n'utilise pas toutes les variables d'une ligne au même endroit.
en fait je crois que ce que je n'arrive pas à faire , c'est de créer une variable différente pour chaque élément d'une ligne et de faire en sorte ensuite que le script utilise ces variables pour chaque ligne comme ceci:

Code :

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

Sub StartTimer
			MonTimer0[variable1] =window.setTimeOut ("welcome"[=variable2], 1000[=variable3], "VBScript") 'Appel de MonScript
 
[......]en créant (via une boucle?) autant de lignes que de lignes dans mon csv	
End sub
 
Sub Welcome[variable 2]
Set WshShell = CreateObject ("Wscript.Shell")
 
WshShell.Run Chr(34) & "X:\bureau\Logs\prog.bat[variable4]"

S = SetTimeOut("MaSub (""Vos applications vont se lancer dans un instant... Veuillez patienter...[variable5]"")", 100)
End Sub		
 

Sub Startend
S = SetTimeOut("MaSub (""toutes les applications ont été correctement lancées !"")", 100)
End Sub
 
Sub Startend
window.close()
End Sub
 
Set WshShell = nothing

puis la partie graphique de mon hta...

Merci pour votre aide

[hackoofr]

Dans un environnement Graphique en HTA ça donne quelque chose comme ça :

Code :

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
65
66
67
68
69
70
71
72
73
<HTML>
 <HEAD>
<title>Execution des programmes</title>
<HTA:APPLICATION ID="Execution des programmes"
APPLICATIONNAME="Execution des programmes"
CAPTION="yes"
SHOWINTASKBAR="no"
SINGLEINSTANCE="yes"
SYSMENU="yes"
SCROLL="no"
WINDOWSTATE="normal">
<style>
    body{
        background-color: lightblue;
    }
    label,.btn{
        font-weight: bold;
    }
</style>
<SCRIPT TYPE="text/Vbscript"> 
Sub Window_OnLoad
CenterWindow 450,350
End Sub
 
Sub StartTimer
MonTimer0 =window.setTimeOut ("welcome", 1000, "VBScript") 
MonTimer1 = window.setTimeOut ("Start01", 5000, "VBScript")
End sub
 
Sub Welcome
MsgBox "Vos applications vont se lancer dans un instant... Veuillez patienter...",64,"Vos applications vont se lancer dans un instant... Veuillez patienter..."
End Sub        
 
Sub CenterWindow(x,y)
window.resizeTo x, y
iLeft = window.screen.availWidth/2 - x/2
itop = window.screen.availHeight/2 - y/2
window.moveTo ileft, itop
End Sub 
 
Sub Start01
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "command.txt"
If Not fso.FileExists(CheminNomFichier) Then
MsgBox "le Fichier "&CheminNomFichier&" est Introuvable",16,"Attention !!!"
window.close()
End if
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
TblLigne = Split(PourTbl,vbCrLf)
For i=LBound(TblLigne) To UBound(TblLigne)
Executer TblLigne(i)
Next
Call Startend
End Sub
 
Function Executer(command)
Set ws = CreateObject("wscript.Shell")
ws.Run Command,0,True
End Function
 
Sub Startend
MsgBox "Toutes les applications ont été correctement lancées !",64,"Toutes les applications ont été correctement lancées !"
window.close()
End Sub
</SCRIPT>
</HEAD>
<BODY>
 <center><INPUT TYPE="button" onclick="StartTimer" VALUE="Executer Les programmes">
</BODY>
</HTML>

Command.txt

Code :

1
2
3
cmd /c calc
cmd /c explorer
cmd /c notepad

[Macfplus]

Rebonjour,
En fait, si je cherche la petite bête, c'est parce que j'ai besoin de faire un script plus détaillé:avec des délais précis entre chaque start, entre autres.

donc voilà où j'en suis:
dans mon hta (je ne mets que le code vbs)

Code :

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
<SCRIPT language="vbscript">
  Dim FSO, LeFichier
	Dim CheminNomFichier, MeTbl, PourTbl, T
 
 
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "chemin\ini.csv"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
 
   Dim Var0, Var1, Var2, Var3, Var4
' .......................
'PourTbl contient: "un;deux;trois;quatres;cinqiéme et dernier;"
	MeTbl = split(PourTbl,";")
	for T =0 to ubound(MeTbl)-1

	next
	var0 = MeTbl(0)
	var1 = MeTbl(1)
	var2 = MeTbl(2)
	var3 = MeTbl(3)
	var4 = MeTbl(4)


Dim WshShell

		Sub Window_onLoad
			StartTimer	    
		End Sub
		
Sub StartTimer
			& var0 =window.setTimeOut ("& var1", & var2, "VBScript") 'Appel de MonScript
		End sub
					
Sub & var1Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "& var3"
S = SetTimeOut("MaSub (""& var4"")", 100)
End Sub

Sub Startend
S = SetTimeOut("MaSub (""toutes les applications ont été correctement lancées !"")", 100)
End Sub

Sub Startend
window.close()
End Sub

Set WshShell = nothing

ele le fichier ini.csv:

Code :

1
2
3
4
5
6
7
8
 
MonTimer0;Start01;5000;chemin\prog1.bat;l'application a bien été lancée !
MonTimer1;Start02;10000;chemin\prog2.vbs;Le service a bien été lancé !
MonTimer2;Start03;15000;chemin\prog3.vbs;Le service2 a bien été lancé !
MonTimer3;Start04;20000;chemin\prog2.bat;l'application a bien été lancée !
MonTimer4;Start05;25000;chemin\prog1.exe;le soft 1 a bien été lancé !
MonTimer5;Start06;30000;chemin\prog2.exe;le soft 2 a bien été lancé !
...

quand j'utilise mon hta en lui intégrant les données directement, ça fonctionne.
Dans le hta, je peux visualiser la valeur de chaque variable, ligne par ligne dans une msgbox.
mais je n'arrive pas à faire lire le contenue des ces variables (en vert dans le hta), ligne par ligne au script en lui même.
En php, je ferais une boucle while pour appliquer les variables au script ligne par ligne mais ici je suis perdu...

merci encore à vous :-)

[ProgElecT]

Salut Macfplus

Ton code est illisible.
Plutôt que de colorer tes variables, mes ton code d'origine, fait une Prévisualisation et indiques nous les numéros de lignes utiles hors de la partie Code .
Là on ne sais pas si tu as des erreur de syntaxe ou des erreurs de tag de couleur.

[Macfplus]

Bonjour et désolé pour avoir compliqué mes messages ...
Alors je reprends:
Voici mon code tel qu'il fonctionnedans mon .hta

Code :

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
65
 
<SCRIPT language="vbscript">
Dim WshShell
 
		Sub Window_onLoad
			StartTimer	    
		End Sub
 
Sub StartTimer
			MonTimer0 =window.setTimeOut ("welcome", 1000, "VBScript") 'Appel de MonScript
			MonTimer1 = window.setTimeOut ("Start01", 5000, "VBScript") 'Appel de MonScript 
			MonTimer2 = window.setTimeOut ("Start02", 10000, "VBScript") 'Appel de MonScript 
			MonTimer3 = window.setTimeOut ("Startend", 90000, "VBScript") 'Appel de MonScript 
			MonTimer4 = window.setTimeOut ("Startclose", 950000, "VBScript") 'Appel de MonScript 
		End sub
 
Sub Welcome
S = SetTimeOut("MaSub (""Vos applications vont se lancer dans un instant... Veuillez patienter..."")", 100)
End Sub		
 
Sub Start01
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "C:\chemin\fichier.bat"
S = SetTimeOut("MaSub (""L'application a bien été lancée !"")", 100)
End Sub
 
Sub Start02
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "C:\chemin\service1.vbs"
S = SetTimeOut("MaSub (""Le service a bien été lancé !"")", 100)
End Sub
 
Sub Startend
S = SetTimeOut("MaSub (""toutes les applications ont été correctement lancées !"")", 100)
End Sub
 
Sub Startend
window.close()
End Sub
 
Set WshShell = nothing
 
</SCRIPT>
 
</head>
 
<Body STYLE="font:10 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')">
 
<p><center> <img src=".\startapp.bmp" /> </center></p>
<br/><br/><br/>
 
<p><center>
<span style="color:white">
<div id = D></div>
 
<script language = vbs>
Sub MaSub (E)
Document.All.D.innerHTML = E
ClearTimeOut S
End Sub
</script>
</center></p>
 
</span>
</body>

Donc, je cherche à faciliter le fait d'ajouter ou supprimer des applis à lancer dans mon hta en créant d'abord un fichier ini.csv:

Code :

1
2
3
 
MonTimer0;Start01;5000;D:\chemin\fichier.bat;L'application a bien été lancée !
MonTimer1;Start02;10000;C:\chemin\service.vbs;Le service a bien été lancé !

et donc d'ouvrir ce fichier dans mon .hta et d'appeler les données lignes par ligne pour obtenir le même résultat que quand tout est en dur dans mon .hta

Code :

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
65
66
67
68
69
70
71
72
73
74
75
 
<SCRIPT language="vbscript">
  Dim FSO, LeFichier
	Dim CheminNomFichier, MeTbl, PourTbl, T
 
 
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "D:\chemin\ini.csv"
Set LeFichier = fso.OpenTextFile(CheminNomFichier,1)
PourTbl = LeFichier.ReadAll
LeFichier.Close
 
   Dim Var0, Var1, Var2, Var3, Var4
' .......................
'PourTbl contient: "un;deux;trois;quatres;cinqiéme et dernier;"
	MeTbl = split(PourTbl,";")
	for T =0 to ubound(MeTbl)-1
 
	next
	var0 = MeTbl(0)
	var1 = MeTbl(1)
	var2 = MeTbl(2)
	var3 = MeTbl(3)
	var4 = MeTbl(4)
 
 
Dim WshShell
 
		Sub Window_onLoad
			StartTimer	    
		End Sub
 
Sub StartTimer
			& var0 =window.setTimeOut ("& var1", & var2, "VBScript") 'Appel de MonScript
		End sub
 
Sub & var1
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "& var3"
S = SetTimeOut("MaSub (""& var4"")", 100)
End Sub
 
Sub Startend
S = SetTimeOut("MaSub (""toutes les applications ont été correctement lancées !"")", 100)
End Sub
 
Sub Startend
window.close()
End Sub
 
Set WshShell = nothing
 
</SCRIPT>
 
</head>
 
<Body STYLE="font:10 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')">
 
<p><center> <img src=".\startapp.bmp" /> </center></p>
<br/><br/><br/>
 
<p><center>
<span style="color:white">
<div id = D></div>
 
<script language = vbs>
Sub MaSub (E)
Document.All.D.innerHTML = E
ClearTimeOut S
End Sub
</script>
</center></p>
 
</span>
</body>

J'arrive bien à ouvrir le fichier ini.csv, je vois bien la lecture de mes variables ligne par ligne dans une msgbox, mais ce que je n'arrive pas à faire c'est d'appeler les variables au bon endroit d'une part:
*dans le dernier code de ce post:
-var0, var1 et var 2 ligne34
-var1 ligne37
-var3 ligne 39
var 4 ligne44


, et qu'il execute le lancement des applications pour chacune des lignes trouvées dans le ini.csv d'autre part, c'est à dire qu'il me crée une Sub pour chaque ligne du ini.csv.

Voilà, j'espère que j'arrive à être un peu plus clair dans mes explications et questions?
Merci pour votre patience et votre aide

[ProgElecT]

Salut

Qu'est ce que c'est que ces & devant tes variables.

lignes 34 & var0 =window.setTimeOut ("& var1", & var2, "VBScript") 'Appel de MonScript
ligne 39 WshShell.Run Chr(34) & "& var3"
ligne 40 S = SetTimeOut("MaSub (""& var4"")", 100)
De plus, si tu les encadres de ", tu passes le nom de la variable pas son contenu.

[Macfplus]

Rebonjour,
J'ai corrigé en suivant tes instructions mais j'ai deux erreurs sur la ligne 37:

Code :

1
2
 
Sub & var1

Erreur : identificateur attendu
et si je fais

Code :

1
2
 
Sub var1

Erreur: Redéfinition de nom

[Macfplus]

Bonjour,

Plus personne?

Merci et bonne journée

[tsuji]

Vous avez deux Startend et null Startclose.

Et puis, pourquoi tant de settimeout()? Si vous voulez exécuter l'une après l'autre, utilisez bien le troième paramètre de méthode run().

Et puis, le style chr(34) & ..., vous trouvez un bon goût?

[Macfplus]

Vous avez deux Startend et null Startclose.
=>les 2 Startend, c'est parce que sinon il envoie mes 2 instructions à la file sans délai, je n'ai pas trouvé d'autre solution
=> le Startclose, c'est un oubli, désolé

Et puis, pourquoi tant de settimeout()? Si vous voulez exécuter l'une après l'autre, utilisez bien le troième paramètre de méthode run()=>C'est ce que j'ai essayé de faire au départ de mon script mais il ne prenait pas en compte les délais respectifs pour chaque instruction

Et puis, le style chr(34) & ..., vous trouvez un bon goût?Ben... c'est un peu sucré salé au palais mais bon... je m'en accommodais jusqu'à présent... Comment peut on faire d'autre ?

Désolé, c'est mon tout premier script... Mais merci pour ton aide si tu veux bien ?

[tsuji]

c'est un peu sucré salé au palais mais bon...

Soit. Si vous voulez commencer aver chr(34) pour eviter l'aberration de l'espace dans le parcours, il faut fermer le.

Code :

WshShell.Run Chr(34) & "C:\chemin\fichier.bat" & chr(34)

[Macfplus]

Merci Tsuji pour ces conseils.

Concernant mon problème de variable, quelqu'un peut il m'aider, siouplait?

Merci