Faire une pause dans une HTA (HTML Application) pour rafraichir l’écran

Version imprimable

26/08/2014, 12h35
patricktoulon

Faire une pause dans une HTA (HTML Application) pour rafraichir l’écran

Bonjour a tous
dans un fichier ".vbs"
le

Code:

wscript.sleep 1000

fonctionne

mais dans une sub vbscript d'un hta ca ne fonctionne pas

mon principe:
la sub vide le innerhtml d'un DIV et met une image gif(attente ,en cours de traitement)
et suis sa route pour en fin de sub réécrire le contenu innerhtml du div
le problème c'est que la gif n'apparait pas
un sleep a cet endroit me parait indiqué mais je ne connais pas la syntaxe a l'intérieur d'une sub dans un hta visiblement ca n'est pas la même

quelqu'un a une idée
26/08/2014, 12h54
hackoofr

:salut: Patrick ;)
La solution existe dans notre forum il suffit de :recherch: :lol:
et mon +1 :plusser: aussi il ne faut pas l'oublier :mouarf:

Voir cette discussion ==> Bouton pour baisser le volume du son ==> ça te rappel rien hein ? :mouarf:
26/08/2014, 12h59
patricktoulon

re

Autant pour moi :aie::aie::mouarf::mouarf::mouarf::ptdr::ptdr:

je code tellement que j'y arrive plus :arf::bug:

allez dans pas longtemps la source arrive
bon allez je te le met ton :plusser:
26/08/2014, 13h20
patricktoulon

et non!!!!!

rien que pour le fait que tu m'a répondu trop vite j'enlève le point :mouarf::mouarf::mouarf::mouarf:

je run rien je veut juste une pause dans le script

Pièce jointe 154720

je te le remattrais si tu a une reponse meilleure hahahahah;):aie::mouarf::mouarf::mouarf::mouarf::mouarf::mouarf::mouarf::mouarf:

Tu as bien ajouté la fonction : :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
'************************************************************************************
Sub Sleep(MSecs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
    Dim tempName : tempName = "Sleeper.vbs"
    If Not Fso.FileExists(tempFolder&"\"&tempName) Then
        Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
        objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
        objOutputFile.Close
    End If
    CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True
End Sub
'************************************************************************************

26/08/2014, 13h33
patricktoulon

re

il fallait commencer par la

Citation:

' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA

bon allez je te le redonne:ptdr::ptdr:

je vais réexaminer le bouton volume ca fonctionne pourtant dans celui ci ???
26/08/2014, 13h39
hackoofr

Citation:

Envoyé par patricktoulon

il fallait commencer par la
bon allez je te le redonne:ptdr::ptdr:
je vais réexaminer le bouton volume ca fonctionne pourtant dans celui ci ???

Et aussi dans l'autre discussion tu m'as pas mis mon +1 :plusser: depuis ce jour là :(
Sinon si tu veux rafraîchir (Reload) un HTA il vaut mieux utiliser ceci :

Code:

window.location.reload(true)

:king: :plusser:
26/08/2014, 13h55
patricktoulon

re

oui mais

Code:

window.location.reload(true)

me la remet d'origine c'est ca?

oui c'est ca je viens de tester
ca me convient pas parce que des que j'ai touché quelque chose dans la page elle ne doit plus revenir a son état antérieur dons le sleep me convient très bien

Citation:

Envoyé par patricktoulon

oui mais

Code:

window.location.reload(true)

me la remet d'origine c'est ca?

Je ne peux rien dire pour le moment tant que je ne vois pas encore ton code ? :roll:
Sinon, tu peux t'inspirer de ce code ou il y a ( la fonction Sleep et Location.Reload(True) ) qui génère un HTABOX utile pour vos batchs lorsque vous voulez cacher la saisie du mot de passe tapé par l'utilisateur et qui peut le prendre comme une variable pour une utilisation ultérieure :king: :mouarf:
HTABOX.bat

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
@echo off
Title G‚n‚rer un HTABOX pour cacher un mot de passe en ligne de commande Copyright Hackoo 2014
mode con cols=90 lines=3 & color 9B
Set MyVBSFile=%tmp%\%~n0.vbs
Set MyHTAFile=%tmp%\%~n0.hta
:: Créer le VBS Pour extraire et générer le code du HTA
Call :CreateMyVBS
:: Lancer Le VBS
Cscript.exe //NOLOGO %MyVBSFile%
:: Lancer Le HTA crée par le VBS
start /wait mshta.exe "%MyHTAFile%"
Del "%MyVBSFile%" & Del "%MyHTAFile%"
:: Lire le contenu du fichier %tmp%\userIn pour extraire le mot de passe tapé depuis
:: le HTABOX et le définir comme une variable
for /f %%i in (%tmp%\userIn) do set "Mypassword=%%i"
echo Votre mot de passe saisi est : %MyPassword%
Del %tmp%\userIn
pause 
Exit /b
:#Start
<html>
<head>
<title>Mot de Passe © Hackoo</title>
<hta:application id="htaid"
applicationName="Password"
border="thin"
icon="wlrmdr.exe"
borderStyle="normal"
caption="yes"
contextMenu="no"
maximizeButton="no"
minimizeButton="yes"
navigable="yes"
showInTaskbar="yes"
singleInstance="yes"
sysmenu="yes"
SCROLL="NO" 
SHOWINTASKBAR="Yes"   
SELECTION="no"
MINIMIZEBUTTON="no" 
>
</head>
<META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> 
<BODY  TOPMARGIN="1" LEFTMARGIN="1"><CENTER><DIV><SPAN  ID="ONSCR"></SPAN></DIV></CENTER></BODY>
<script language="vbscript">
'---------------------------------------------------------------------------------------
Sub Window_OnLoad
    CenterWindow 300,150
    Call PasswordForm()
   Call Parler("Veuillez entrer votre mot de passe")
    Call TextFocus()
end sub
'---------------------------------------------------------------------------------------
Sub CenterWindow(x,y)
    Dim iLeft,itop
    window.resizeTo x,y
    iLeft = window.screen.availWidth/2 - x/2
    itop = window.screen.availHeight/2 - y/2
    window.moveTo ileft,itop
End Sub
'----------------------------------------------------------------------------------------
Sub SavePassword()
    set fs=CreateObject("Scripting.FileSystemObject")
    strFile=fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(2),"UserIn"))
    set ts=fs.OpenTextFile(strFile,2,True)
    If PasswordArea.value <> "" Then
        ts.WriteLine PasswordArea.value
        ts.Close
        self.Close 'Pour fermer ce HTA après avoir enregistré le mot de passe comme une variable dans le fichier Userin
    else
         Msgbox "Le mot de passe est vide ! "& Vbcrlf & "SVP  entrez de nouveau votre mot de passe",VbExclamation,"Mot de Passe ©  Hackoo"
        Location.reload(true) 'Pour recharger à nouveau ce HTA
    end if
End Sub
'----------------------------------------------------------------------------------------
Sub PasswordForm()
    Self.document.title = "Mot de Passe © Hackoo"
    Self.document.bgColor = "lightblue"
     ONSCR.InnerHTML="<center><FONT COLOR=""#FFFFFF"" SIZE=""+1""  FACE=""VERDANA,ARIAL,HELVETICA,SANS-SERIF"">Taper votre mot de  passe</FONT<br>"_
    &"<input type=""password"" name=""PasswordArea"" size=""20"" onKeyUp=""TextFocus""><P"_
    &"<input type=""Submit"" STYLE=""HEIGHT:25;WIDTH:110"" value=""OK"" onClick=""SavePassword"">"
END Sub
'----------------------------------------------------------------------------------------
Sub TextFocus
    PasswordArea.Focus 
End Sub
'----------------------------------------------------------------------------------------
Sub Sleep(MSecs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA
   Set fso = CreateObject("Scripting.FileSystemObject")
   Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
   Dim tempName : tempName = "Sleeper.vbs"
   If Fso.FileExists(tempFolder&"\"&tempName)=False Then
      Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)
      objOutputFile.Write "wscript.sleep WScript.Arguments(0)"
      objOutputFile.Close
   End If
   CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& MSecs,1,True
End Sub
 
Sub Parler(Message)
Set Sound = CreateObject("WMPlayer.OCX.7")
Sound.URL = "http://translate.google.com/translate_tts?tl=fr&q=" & Message
Sound.Controls.play
Do while Sound.currentmedia.duration = 0
   Sleep 100
loop
Sleep (int(Sound.currentmedia.duration)+1)*1000
End Sub
</script>
</body>
</html>
:#End
::***********************************************************************************************
:CreateMyVBS
::'**********************************************************************************************
(
echo. Set fso = CreateObject^("Scripting.FileSystemObject"^)
echo. Set f=fso.opentextfile^("%~f0",1^)
echo. a=f.readall
echo. Set r=new regexp
echo. r.pattern = "(?:^|(?:\r\n))(?::#Start\r\n)([\s\S]*?)(?:\r\n)(?::#End)"
echo. Set Matches = r.Execute^(a^)
echo. If Matches.Count ^> 0 Then Data = Matches^(0^).SubMatches^(0^)
echo. WriteFileText "%MyHTAFile%",Data
echo. f.close
::'**********************************************************************************************
echo. 
echo. Function WriteFileText^(sFile,Data^)
echo.     Dim objFSO,oTS,sText
echo.     Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo.     Set oTS = objFSO.CreateTextFile^(sFile,2^)
echo.     oTS.WriteLine Data
echo.     oTS.close
echo.     set oTS = nothing
echo.     Set objFSO = nothing
echo. End Function 
) > %MyVBSFile%
::'***********************************************************************************************

Comment ça marche ?

C'est très simple comme principe ,alors, ce script génère un Vbscript qui sert à lire le code de notre batch qui est en cours d'exécution et y extraire la partie qui va nous intéresser pour créer le fameux HTA en question et qui a pour but de cacher le mot de passe saisi par l'utilisateur :king:
Donc en gros c'est comme un module que vous pouvez facilement l’intégrer à tous vos scripts batchs qui nécessite une saisie de mot de passe

26/08/2014, 16h40
patricktoulon

re

tiens voila c'est ici
26/08/2014, 16h45
hackoofr

:salut:
Édite le car il n'y aucun bouton pour le télécharger :mouarf: , ça m'arrive moi aussi avec la nouvelle version du forum :wink:
26/08/2014, 17h01
patricktoulon

re

c'est par ici
26/08/2014, 17h34
hackoofr

Citation:

Envoyé par patricktoulon

c'est par ici

Il vous reste juste d'ajouter la voix de google speech :mouarf:
en tout cas c'est un beau travail :king: :plusser:
26/08/2014, 17h46
patricktoulon

re

j'y ai penser figure toi :ptdr::ptdr:
mais j'ai penser que pour une 2 eme version c'était déjà pas mal

je suis déjà en train de l'améliorer avec du CSS un peu plus évolué
j'ajouterais aussi un menu parametre en construction pour le moment
dans ce menu on choisira
parler/pas parler
mémoriser /pas mémoriser login
afficher que les questions non lues /toutes les questions

tu l'a essayé ?
26/08/2014, 17h54
hackoofr

Oui je l'ai essayé, penses bien à indenter ton code il y a trop d'espaces et je me suis un peu perdu :mouarf:
et aussi changes ceci
<input type="~~text~~" name="passe"> en
<input type="password" name="passe">
26/08/2014, 18h06
patricktoulon

re

re
nickel j'avais peur que ca soit mal interprété dans la variable "MDP" par la suite mais non! c'est nickel

tu sais pas ou je pourrais trouver le petit bouton en forme d'œil pour afficher les vrais caractères je vais l'ajouter
ou il y a t il une fonction cachée dans ce input qui permette de faire le choix (afficher ou pas afficher les vrais caractères)???????
26/08/2014, 18h59
hackoofr

:salut: Patrick ;)
Avant de passer cette discussion en :resolu: penses bien à changer le titre par ==>
Faire une pause dans une HTA (HTML Application) pour rafraichir l’écran :king: c'est plus significatif non :lol:
et on va continuer la discussion pour la version ultérieure par ici ;)
@+ :zoubi: