Fermer/Killer une HTA

Version imprimable

05/06/2013, 15h14
snorky94

Fermer/Killer une HTA
Bonjour,

J'ai une HTA qui lance une autre HTA pendant mon traitement.
Code:

1 2 3 4 Const SHOW_ACTIVE_APP = 1 Set objShell = CreateObject("Shell.Application") objShell.ShellExecute ("loading.hta"), SHOW_ACTIVE_APP, True
Comment faire pour fermer ma HTA externe lancée ?

Je ne peux pas killer le process mshta.

Avez vous une solution svp, merci ...
05/06/2013, 15h36
hackoofr

:salut:
il y a combien de lignes dans Loading.hta :koi:
sinon postez son code source

C'est juste un gif animé qui tourne : :)

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
<html>
<head>
<title>LOADING</title>
<HTA:APPLICATION
	ID="0.Menu"
	APPLICATIONNAME="LOADING"
	BORDER = "none"
	SINGLEINSTANCE="yes"
	WINDOWSTATE="normal"
	MAXIMIZEBUTTON="no"
	MINIMIZEBUTTON="no"
	SCROLL="no"
	SCROLLFLAT="no"
	VERSION="1.0"
	INNERBORDER="no"
	CONTEXTMENU="no" 
	BORDERSTYLE="normal">
</head>
 
 
<script language="vbscript">
    window.resizeTo 150,130
    screenWidth = Document.ParentWindow.Screen.AvailWidth
    screenHeight = Document.ParentWindow.Screen.AvailHeight
    posLeft = (screenWidth - 150) / 2
    posTop = (screenHeight - 130) / 2    
    window.moveTo posLeft, posTop
</script>
 
<html>
	<body>
	<center><img src="loading.gif"></center>
	</body>
</html>

je vais faire un truc moche mais je ne vois pas comment faire :

Code:

1
2
3
4
5
6
7
8
9
 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Process WHERE CommandLine like '%loading.hta%'") 
 
For Each objItem in colItems 
	objItem.Terminate()
Next

:salut:
Essayez ce code avec fermeture automatique pendant 10s en utilisant un timer :king:
Pour les images animés vous pouvez générer facilement des preloaders et l'intégrer directement dans vos HTA :king:

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
<html>
<head>
<title>LOADING</title>
<HTA:APPLICATION
ID="0.Menu"
APPLICATIONNAME="LOADING"
BORDER = "none"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SCROLL="no"
SCROLLFLAT="no"
VERSION="1.0"
INNERBORDER="no"
CONTEXTMENU="no" 
BORDERSTYLE="normal">
</head>
<script language="vbscript">
window.resizeTo 150,130
screenWidth = Document.ParentWindow.Screen.AvailWidth
screenHeight = Document.ParentWindow.Screen.AvailHeight
posLeft = (screenWidth - 150) / 2
posTop = (screenHeight - 130) / 2    
window.moveTo posLeft, posTop
iTimerID = window.setInterval("ShowSplash", 10000)'Un timer pour afficher le HTA pendant 10s 
'Donc vous pouvez modifier le timer
 
Sub ShowSplash()
    Splash.Style.Display = "None"
    Window.Close()' Pour Quitter le HTA :)
End Sub
</script>
 
<html>
<body>
<center><img src="loading.gif"></center>
<DIV id="Splash">
</body>
</html>

05/06/2013, 16h55
snorky94

cool, merci je vais tester ca ;)

Le pb c'est le le timer est dependant de ma requête dans ma première HTA.

donc si elle dure plus de 10s ca va pas fonctionner :(