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

Version imprimable

:salut:
comme il est indiqué dans le titre : La méthode Popup ne marche pas dans un HTA ? pourquoi aucune idée :koi:
par contre dans un Vbscript marche !
voila les deux exemples : VBS et HTA

en VBS :

Code:

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:

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>

13/08/2012, 16h56
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.
13/08/2012, 17h48
hackoofr

Citation:

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.

:salut:
Vous voulez dire que le popup se ferme tout seul après 7 secondes écoulés sans votre intervention ? :koi:
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
13/08/2012, 18h12
ProgElecT

Citation:

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 ?

:salut:
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:

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 :resolu: :ccool: :lahola:

14/08/2012, 04h16
l_autodidacte

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).