Fenêtre avec liste de choix déroulante en vbs

VbScript à lui seul ne gère les interfaces graphiques.
Il faut passer par Mshta.exe en créant un fichier d'extension .hta au sein duquel on peut utiliser le langage VbScript, JavaScript...
A titre d'exemple essaie avec ce

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
<HTML> 
 <head><title>Mettre le titre ici</title> 
 
<HTA:APPLICATION ID="Mettre ici l'ID de l'application";
APPLICATIONNAME="Nom de l'application"; 
BORDER="thin"; 
CAPTION="Yes"; 
CONTEXTMENU="Yes";
SYSMENU="Yes"; 
WindowState="Normal"; 
SHOWINTASKBAR="Yes"; 
SELECTION="Yes"; 
SCROLL="Yes"; 
ICON="Nom du fichier icône"; 
MAXIMIZEBUTTON="NO"; 
MINIMIZEBUTTON="YES"; 
SINGLEINSTANCE="yes"; > 
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> 
<body bgcolor="#E8E8E8">
<script language="VBScript">
        sub window_OnLoad()
            window.resizeTo 500,350
            window.MoveTo 300, 200
        end sub    
</script>
<select id="ListeElement" style ="position:absolute; left=150px;top=270px; width =200px;">
   <option value=Red >Couleur rouge</option>
   <option value=blue>Couleur bleue</option>
   <option value=green>Couleur verte</option>
   <option value=purple>Couleur pourpre</option>
   <option value=magenta>Couleur magenta</option>
   <option value=cyan>Couleur cyan</option>
   <option value=lightgreen>Vert clair</option>
   <option value=forestgreen>Vert for&ecirc;t</option>
   <option value=deeppink>Couleur rose</option>
   <option value=lightpink>Rose clair</option>
   <option value=lightblue>Bleu clair</option>
   <option value=deepskyblue>Ciel fonc&eacute;</option>
   <option value=springgreen>Vert printemps</option>
   <option value=darkred>Rouge fonc&eacute;</option>
   <option value=darkblue>Bleu fonc&eacute;</option>
   <option value=darkgreen>Vert fonc&eacute;</option>
   <option value=yellow>Jaune</option>
</select>
</body>
</HTML>