Version imprimable
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.
Salut
:fleche: installation d'usine, qu'entends tu par là ?Citation:
Envoyé par papyxy
:fleche: étiquettes, c'est quoi ?
:fleche: toutes les autres actions échouent, tu veux dire qu'aucune action utilisateur ne fonctionne, cela déclenche une erreur, un plantage ?
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.Citation:
Envoyé par papyxy
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
;)
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:
Pièce jointe 188451Code:
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>
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.
