Programmes HTA ne fonctionnent plus

**papyxy** · 04/07/2015, 07h39

Bonjour
je suis sous Windows 7 et depuis que j'ai fait une installation d'usine, mes HTA ne reconnaissent plus les étiquettes qui se trouvent dans le script.
L'affichage se fait, mais toutes les autre actions échouent.

Si quelqu'un à une réponse, je lui en serai gré. Merci d'avance.

**ProgElecT** · 04/07/2015, 09h22

Salut

Envoyé par papyxy

Bonjour
je suis sous Windows 7 et depuis que j'ai fait une installation d'usine, mes HTA ne reconnaissent plus les étiquettes qui se trouvent dans le script.
L'affichage se fait, mais toutes les autres actions échouent.

Si quelqu'un à une réponse, je lui en serai gré. Merci d'avance.

installation d'usine, qu'entends tu par là ?

étiquettes, c'est quoi ?

toutes les autres actions échouent, tu veux dire qu'aucune action utilisateur ne fonctionne, cela déclenche une erreur, un plantage ?

**papyxy** · 04/07/2015, 10h09

j'ai repris le dvd livré avec le PC (Acer) car la webcam ne voulait pas fonctionner.
Au démarrage de celui-ci on me propose une réinstallation d'usine; ce que j'ai fait.
Quant aux étiquettes; il s'agit des noms de procédure dans le script.
L'erreur apparait dès que je veux faire une action qui me renvoie vers une procédure (qu'il ne trouve pas).

**papyxy** · 05/07/2015, 10h02

Envoyé par papyxy

j'ai repris le dvd livré avec le PC (Acer) car la webcam ne voulait pas fonctionner.
Au démarrage de celui-ci on me propose une réinstallation d'usine; ce que j'ai fait.
Quant aux étiquettes; il s'agit des noms de procédure dans le script.
L'erreur apparait dès que je veux faire une action qui me renvoie vers une procédure (qu'il ne trouve pas).

Par contre il n'y-a pas de problème avec les programmes VBS.

**patricktoulon** · 06/09/2015, 21h11

Bonjour
dans le code html de ton hta
as tu mis un doc type

j'ai eu exactement le même soucis après reformatage et réinstallation d'origine les Subs et fonctions dans mes Htas ne fonctionnaient plus

il se trouve qu'avant j'avais IE 10(mise ajour) d'origine (8)
et la syntaxe en fonction de la version de IE est un peu différente

donc si tu as >10 docs type html5 sinon tu trouveras un peu partout sur le net peut être même ici la bon déclaration du doc type

ensuite dans les appels aux fonctions et Subs

onclick="patincoufin(argument)"; ' parfois selon ta version il faut enlever les guillemets ou le point virgule
enfin c'est vrai que c'est assez pénible

mais somme toute si cela fonctionnait avant tu devrais trouver ton bonheur en recherchant du coté de ce que je viens de dire

et une astuce que j’applique moi même dans mes Htas
c'est de déclarer une balise "Meta" pour forcer IE a 9 minimum (10 c'est le top) pour un Hta ,on perd certaines propriétés de l'application mais facilement rattrapable en vbs

**papyxy** · 21/09/2015, 09h38

Bonjour
J'ai pas tout compris.
Je ne sais pas comment savoir la version de I.E.
Quant à la balise "Meta"; je ne sais pas comment l'utiliser.
Je joins un petit pgm HTA avec l'erreur qui s'affiche lors du démarrage:

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
<html><head><TITLE>Gestion programmes</TITLE>
<HTA:APPLICATION
    ICON          ='POINT10.ICO'
    APPLICATION   ='lanceur'
    MAXIMIZEBUTTON='no'
    SCROLL        ='no'> </head>
<script language='VBScript'>
	option explicit
       dim  objShell ,  oFso
       Set  oFso     = CreateObject("Scripting.FileSystemObject")
       Set  objShell = CreateObject("Wscript.Shell")
       self.document.TITLE=  oFSO.getFolder(objShell.CurrentDirectory).name
        window.moveTo   20,20
	window.resizeTo 330,530 'window.screen.availHeight
'_______________________________________________________________________________
 
Sub Window_onLoad
        dim ofl
    For each oFl in  oFSO.GetFolder(objShell.CurrentDirectory).Files
                 call ajout_lst("hta",ofl.name)
    next
    For each oFl in  oFSO.GetFolder(objShell.CurrentDirectory).Files
                 call ajout_lst("vbs",ofl.name)
    next
    lst.size  = lst.length
    lst.value = ""
end sub
'_______________________________________________________________________________
 
Function execute(nx)
    lst.value = ""
    objShell.Run  oFSO.GetFile(nx).shortpath
end Function
'_______________________________________________________________________________
 
Sub Window_onunLoad
       Set   oFso     = nothing
       Set   objShell = nothing
end sub
'_______________________________________________________________________________
 
sub ajout_lst(ext,v)
                dim oOption     ,exte  ,txt
                   exte =     ofso.GetExtensionName(v)
        if  ext <> exte  then   exit sub
                 txt = exte & "    " & left(v,len(v)-4)
		Set oOption       = Document.createElement("OPTION")
	            oOption.style.backgroundcolor = "yellow"
   		    oOption.Text  = txt
		    oOption.Value = v
	    lst.Add(oOption)
end sub
'_______________________________________________________________________________
</script>
 <body      bgcolor='aqua' >
<SELECT NAME='lst'  onclick="execute lst.value"  ></select>
</body> </html>

Nom : err script.JPG
Affichages : 111
Taille : 28,7 Ko

Même VBS Factoty fonctionne mal.
J'ai tenté de démarrer ce pgm dans autre chose que I.E. (winrar), mais cela a le même effet.

Programmes HTA ne fonctionnent plus

VBScript

Vue hybride

Discussions similaires

Partager

Partager