La méthode Popup ne marche pas dans un HTA ?

**hackoofr** · 12/08/2012, 18h07

comme il est indiqué dans le titre : La méthode Popup ne marche pas dans un HTA ? pourquoi aucune idée

par contre dans un Vbscript marche !
voila les deux exemples : VBS et HTA

en VBS :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Popup()
Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell")
 
BtnCode = WshShell.Popup("Comment allez-vous ?", 7, "Répondez à cette Question:", 4 + 32)
 
Select Case BtnCode
   case 6      WScript.Echo "Je suis ravie d'apprendre que vous allez bien."
   case 7      WScript.Echo "J'espère que vous irez mieux."
   case -1     WScript.Echo "Y-a-t-il quelqu'un ?"
End Select
End Sub
Call Popup

en 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
<html>
<head>
<title>Question</title>
<HTA:APPLICATION 
APPLICATIONNAME="Question"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<script language="VBScript">
Sub Popup()
Dim WshShell, BtnCode
Set WshShell = CreateObject("WScript.Shell")
 
BtnCode = WshShell.Popup("Comment allez-vous ?", 7, "Répondez à cette Question:", 4 + 32)
 
Select Case BtnCode
   case 6      WScript.Echo "Je suis ravie d'apprendre que vous allez bien."
   case 7      WScript.Echo "J'espère que vous irez mieux."
   case -1     WScript.Echo "Y-a-t-il quelqu'un ?"
End Select
End Sub
</script>
</head>
<body>
<input type="button" value="Question" name="run_button"  onClick="Popup"><p> 
</body>
</html>

**ProgElecT** · 13/08/2012, 16h56

Salut

Après un enregistrement en .hta, pour moi pas de problèmes, mis à part que j'ai modifié les WScript.Echo par des MsgBox.

**hackoofr** · 13/08/2012, 17h48

Envoyé par ProgElecT

Salut
Après un enregistrement en .hta, pour moi pas de problèmes, mis à part que j'ai modifié les WScript.Echo par des MsgBox.

Vous voulez dire que le popup se ferme tout seul après 7 secondes écoulés sans votre intervention ?

car mon but c'est la fermeture du popup tout seul après 7 secondes sans l'intervention du utilisateur or dans mon HTA le popup s'affiche bien mais il ne se ferme pas tout seul sauf que je clique sur OK

**ProgElecT** · 13/08/2012, 18h12

Vous voulez dire que le popup se ferme tout seul après 7 secondes écoulés sans votre intervention ?

Oui, pas dans l’éditeur (VBS Factory) qui lui aussi ne ferme pas le Popup au bout de 7 secondes, mais sur double-click sur le fichier .hta;
De plus, WScript.Echo dans un HTA me semble curieux, n'est il pas plutôt réserve dans une fenêtre de CMD ?

**hackoofr** · 13/08/2012, 19h24

Je pense que le problème vient que les objets WScript ne sont pas supportées dans une HTA.
Donc, pour contourner cette limitation, j'ai utilisé cette astuce: générer un fichier temporaire vbscript et l'exécuter comme ceci:

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
<html>
<head>
<title>Question</title>
<HTA:APPLICATION 
APPLICATIONNAME="Question"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<script language="VBScript">
Sub Popup(Msg,Wait,Title)
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set ws  = CreateObject("WScript.Shell")
 Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
 Dim tempName : tempName = "Popup.vbs"
  Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
  objOutputFile.Writeline "Set WshShell = CreateObject(""WScript.Shell"")"
  objOutputFile.WriteLine "BtnCode = WshShell.Popup("&qq(Msg)&","&qq(wait)&","&qq(Title)&", 4 + 32)"
  objOutputFile.WriteLine "Select Case BtnCode"
  objOutputFile.WriteLine "case 6      MsgBox ""Je suis ravie d'apprendre que vous allez bien !"" ,64,""Je suis ravie d'apprendre que vous allez bien !"""
  objOutputFile.WriteLine "case 7      MsgBox ""J'espère que vous irez mieux !"",64,""J'espère que vous irez mieux !"" "
  objOutputFile.WriteLine "case -1     MsgBox ""Y-a-t-il quelqu'un ?"",vbQuestion,""Y-a-t-il quelqu'un ?"" "
  objOutputFile.WriteLine "End Select"
  objOutputFile.Close
  ws.Run tempFolder&"\"&tempName
End Sub
 
Function qq(strIn) 
    qq = Chr(34) & strIn & Chr(34)
End Function
</script>
</head>
<body>
<input type="button" value="Question" name="run_button"  onClick="Popup 'Comment allez-vous ?','5','Répondez à cette Question'"><p> 
</body>
</html>

Donc le Problème est

**l_autodidacte** · 14/08/2012, 04h16

En plus des remarques de ProgElecT, si tu déplaces la souris en dehors de la fenêtre principale, tu arriveras au résultat souhaité sans passer par un autre fichier(avec lequel la boite MsgBox reste en arrière-plan).

La méthode Popup ne marche pas dans un HTA ?

VBScript

Discussions similaires

Partager

Partager