none
HTABox Window Auto Centering RRS feed

  • Question

  • Hi all,

    This is script does what i need, i'm just need how to do window auto center, centering the message and put a countdown, in this script.

    Thanks for any help.

    with HTABox("lightgrey", 100, 300, 400, 500)
      .document.title = "Loading"
      .msg.innerHTML = "<font color=red><b>Loading...<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 10pt Arial;" _
                 & "border-Style:outset;border-Width:3px'" _
                 & "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>&nbsp;</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

    Saturday, September 14, 2019 2:07 PM

All replies