Bonjour,

J'ai très modestement écrit un petit start application qui fonctionne pas trop mal en .hta

Il fonctionne quand tout est stocké dans le fichier..

J'aimerais pouvoir créer un fichier config, ini, txt ou autre pour pouvoir entrer mes différents soft à lancer, avec le délai voulu, mais c'est à que je coince...
Je suis loin d'être un pro de la programmation alors si vous pouviez m'aider ce serait très gentil, et au passage, je me dis que ce script pourrait servir à d'autres :-)

Voici le script tel qu'il fonctionne:
startapp.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
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
 
 
<!-- ----- ExeScript Options Begin -----
 ScriptType: window,invoker
 DestDirectory: temp
 Icon: D:\Bureau\startapp.bmp
 File: D:\Bureau\startapp.bmp
 OutputFile: D:\Bureau\test.exe
 ----- ExeScript Options End ----- -->
 
<head>
<title>Start App</title>
 
<HTA:APPLICATION
  APPLICATIONNAME="Start App"
  ID="startapp"
  VERSION="1.2"
  MAXIMIZEBUTTON="no"
  ICON="startapp.ico"
  SCROLL="no"
  SINGLEINSTANCE="yes"
  SELECTION="no"/>
 
<SCRIPT TYPE="text/javascript">
window.resizeTo(350,275);
window.moveTo(10,10);
</SCRIPT>
 
<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 
			MonTimer4 = window.setTimeOut ("Start03", 15000, "VBScript") 'Appel de MonScript 
			MonTimer6 = window.setTimeOut ("Start04", 20000, "VBScript") 'Appel de MonScript 
			MonTimer7 = window.setTimeOut ("Start05", 25000, "VBScript") 'Appel de MonScript 
			MonTimer8 = window.setTimeOut ("Start06", 30000, "VBScript") 'Appel de MonScript 
			MonTimer9 = window.setTimeOut ("Start07", 50000, "VBScript") 'Appel de MonScript 
			MonTimer10 = window.setTimeOut ("Start08", 70000, "VBScript") 'Appel de MonScript 
			MonTimer11 = window.setTimeOut ("Startend", 80000, "VBScript") 'Appel de MonScript 
			MonTimer12 = window.setTimeOut ("Startclose", 850000, "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) & "D:\bureau\Logs\soft_a.bat"
S = SetTimeOut("MaSub (""soft_a a bien été lancée !"")", 100)
End Sub
 
Sub Start02
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "D:\bureau\soft_b.lnk"
S = SetTimeOut("MaSub (""soft_b a bien été lancé !"")", 100)
End Sub
 
Sub Start03
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "D:\bureau\soft_c.lnk"
S = SetTimeOut("MaSub (""soft_c a bien été lancé !"")", 100)
End Sub
 
Sub Start04
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "D:\bureau\soft_d.exe"
S = SetTimeOut("MaSub (""soft_d a bien été lancé !"")", 100)
End Sub
 
Sub Start05
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "D:\bureau\soft_e.exe"
S = SetTimeOut("MaSub (""soft_e a bien été lancé !"")", 100)
End Sub
 
Sub Start06
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "D:\bureau\soft_g.bat"
S = SetTimeOut("MaSub (""soft_g a bien été lancé !"")", 100)
End Sub
 
Sub Start07
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "D:\bureau\soft_h.lnk"
S = SetTimeOut("MaSub (""soft_h a bien été lancé !"")", 100)
End Sub
 
Sub Start08
Set WshShell = CreateObject ("Wscript.Shell")
WshShell.Run Chr(34) & "D:\bureau\soft_i.lnk"
S = SetTimeOut("MaSub (""soft_i 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;background: #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>
</html>
Ce que j'ai essayé de faire avec un fichier .config mais ne marche pas :
startapp.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
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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
 
<!-- ----- ExeScript Options Begin -----
 ScriptType: window,invoker
 DestDirectory: temp
 Icon: D:\Bureau\startapp.bmp
 File: D:\Bureau\startapp.bmp
 OutputFile: D:\Bureau\test.exe
 ----- ExeScript Options End ----- -->
 
<head>
<title>Start App</title>
 
<HTA:APPLICATION
  APPLICATIONNAME="Start App"
  ID="startapp"
  VERSION="1.2"
  MAXIMIZEBUTTON="no"
  ICON="startapp.ico"
  SCROLL="no"
  SINGLEINSTANCE="yes"
  SELECTION="no"/>
 
<SCRIPT TYPE="text/javascript">
window.resizeTo(350,275);
window.moveTo(10,10);
</SCRIPT>
 
<SCRIPT language="vbscript">
  Dim FSO, LeFichier
	Dim CheminNomFichier, MeTbl, PourTbl, T
 
 
Set fso = CreateObject("Scripting.FileSystemObject")
CheminNomFichier = "D:\Mes documents\rep\Startapp\rep\startapp.cfg"
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>
</html>
startapp.cfg :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
MonTimer0;Start01;5000;D:\bureau\Logs\soft1.bat;soft1 a bien été lancée !
MonTimer1;Start02;10000;C:\Program Files\startapp\script2.vbs;script2 a bien été lancé !
MonTimer2;Start03;15000;C:\Program Files\startapp\script3.vbs;script3 a bien été lancé !
MonTimer3;Start04;20000;D:\bureau\soft4.lnk;soft4 a bien été lancé !
MonTimer4;Start05;25000;C:\Program Files\soft5\soft5.exe;soft5 a bien été lancé !
MonTimer5;Start06;30000;C:\Program Files\Soft6\soft6.exe;soft6 a bien été lancé !
MonTimer6;Start07;35000;C:\Program Files\soft7\soft7.exe;soft7 a bien été lancé !
MonTimer7;Start08;40000;D:\bureau\soft8.lnk;soft8 a bien été lancé !
Si vous pouviez m'aider ce serait sympa :-)

Merci et bonne journée