this is script does what i need, i'm just need to know how to do "window auto center", "get the message in the center of the box" and put a "countdown", in this script.
Thanks for any help.
Code: Select all
with HTABox("DodgerBlue", 100, 300, 0, 0)
.document.title = "Atualizando Sistema"
.msg.innerHTML = "<font color=red><b>ATUALIZANDO SISTEMA, AGUARDE.<b></font>"
Timeout = 60000 ' milliseconds
do until .done.value or (n > TimeOut): wsh.sleep 50 : n=n+50 : loop
.done.value = true
.close
end with
' Author Tom Lavedas, June 2010
Function HTABox(sBgColor, h, w, l, t)
Dim IE, HTA
randomize : nRnd = Int(1000000 * rnd)
sCmd = "mshta.exe ""javascript:{new " _
& "ActiveXObject(""InternetExplorer.Application"")" _
& ".PutProperty('" & nRnd & "',window);" _
& "window.resizeTo(" & 500 & "," & 500 & ");" _
& "window.moveTo(" & l & "," & t & ")}"""
with CreateObject("WScript.Shell")
.Run sCmd, 1, False
do until .AppActivate("javascript:{new ") : WSH.sleep 10 : loop
end with ' WSHShell
For Each IE In CreateObject("Shell.Application").windows
If IsObject(IE.GetProperty(nRnd)) Then
set HTABox = IE.GetProperty(nRnd)
IE.Quit
HTABox.document.title = "HTABox"
HTABox.document.write _
"<HTA:Application contextMenu=no border=thin " _
& "minimizebutton=no maximizebutton=no sysmenu=no />" _
& "<body scroll=no style='background-color:" _
& sBgColor & ";font:normal 14pt Arial Black;" _
& "border-Style:outset;border-Width:10px'" _
& "onbeforeunload='vbscript:if not done.value then " _
& "window.event.cancelBubble=true:" _
& "window.event.returnValue=false:" _
& "done.value=true:end if'>" _
& "<input type=hidden id=done value=false>" _
& "<center><span id=msg> </span><center></body>"
Exit Function
End If
Next
' I can't imagine how this line can be reached, but just in case
MsgBox "HTA window not found."
wsh.quit
End Function