This is what I use:

' Sleep for HTA by Malcolm McCaffery
Sub Sleep(intMilliSecs)
CONST HideWindow=0
CONST WaitForCompletion=TRUE

' Because HTA doesn't use Windows Script Host, it uses IE Script Host we
can't use WScript.Sleep
' Workaround: send one ping command to fake address with a wait for reply
value set in milliseconds
cmd="cmd /c ping 1.1.1.1 -n 1 -w " & intMilliSecs
With CreateObject("WScript.Shell")
.Run cmd,HideWindow,WaitForCompletion
End With
End Sub

Malcolm McCaffery wrote:
> This is what I use:
>
> ' Sleep for HTA by Malcolm McCaffery
> Sub Sleep(intMilliSecs)
> CONST HideWindow=0
> CONST WaitForCompletion=TRUE
>
> ' Because HTA doesn't use Windows Script Host, it uses IE Script Host
> we can't use WScript.Sleep
> ' Workaround: send one ping command to fake address with a wait for
> reply value set in milliseconds
> cmd="cmd /c ping 1.1.1.1 -n 1 -w " & intMilliSecs
> With CreateObject("WScript.Shell")
> .Run cmd,HideWindow,WaitForCompletion
> End With
> End Sub

If this is for personal use, you could always install ScriptX (has a Wait
method) or AutoItX (has a Sleep method) - both are free.

Personally, I'm using the AutoItX v3 COM object...

Set aux = CreateObject("AutoItX3.Control")
aux.sleep 10000


--
Michael Harris
Microsoft.MVP.Scripting

On Jun 10, 12:13 am, "Michael Harris \(MVP\)" <mikhar.at.mvps.dot.org>
wrote:
> Malcolm McCaffery wrote:
> > This is what I use:
>
> > ' Sleep for HTA by Malcolm McCaffery
> > Sub Sleep(intMilliSecs)
> > CONST HideWindow=0
> > CONST WaitForCompletion=TRUE
>
> > ' Because HTA doesn't use Windows Script Host, it uses IE Script Host
> > we can't use WScript.Sleep
> > ' Workaround: send one ping command to fake address with a wait for
> > reply value set in milliseconds
> > cmd="cmd /c ping 1.1.1.1 -n 1 -w " & intMilliSecs
> > With CreateObject("WScript.Shell")
> > .Run cmd,HideWindow,WaitForCompletion
> > End With
> > End Sub
>
> If this is for personal use, you could always install ScriptX (has a Wait
> method) or AutoItX (has a Sleep method) - both are free.
>
> Personally, I'm using the AutoItX v3 COM object...
>
> Set aux = CreateObject("AutoItX3.Control")
> aux.sleep 10000
>
> --
> Michael Harris
> Microsoft.MVP.Scripting- Hide quoted text -
>
> - Show quoted text -

There is another workaround that you may find interesting, using the
setTimeOut function of the DOM

Function Blahblah
......
IntervalMarker = setTimeout("CarryOn", 50, "vbscript")
End Function
'
' ===== carries on from above when interval expires
' this "feature" allows the updated status message to be
' rendered and viewed by the user
'
Function CarryOn ' Code to be executed after the
delay
.... more of this function
End Function

THis is a script that works in an HTA script. You end up calling the CCsleep
sub

'set i for 6 seconds then call sub Counter1(i) which calls ccsleep
i = 6
Call Counter1(i)

Sub Counter1(i)

While i <> 0

i=i-1
DataArea.InnerHTML = "Ready to open txt file in <b>" & i & "</b> seconds."
t0 = Timer
ccSleep 1
Wend
'Call getMachineType
'MsgBox timer - t0
window.close
End Sub

'_________________________________________________ _________________________________________________
Sub ccSleep(seconds)
Set oShell = CreateObject("Wscript.Shell")
cmd = "%COMSPEC% /c ping -n " & 1 + seconds & " 127.0.0.1>nul"
oShell.Run cmd,0,1
End Sub

"rickety" wrote:

> On Jun 10, 12:13 am, "Michael Harris \(MVP\)" <mikhar.at.mvps.dot.org>
> wrote:
> > Malcolm McCaffery wrote:
> > > This is what I use:
> >
> > > ' Sleep for HTA by Malcolm McCaffery
> > > Sub Sleep(intMilliSecs)
> > > CONST HideWindow=0
> > > CONST WaitForCompletion=TRUE
> >
> > > ' Because HTA doesn't use Windows Script Host, it uses IE Script Host
> > > we can't use WScript.Sleep
> > > ' Workaround: send one ping command to fake address with a wait for
> > > reply value set in milliseconds
> > > cmd="cmd /c ping 1.1.1.1 -n 1 -w " & intMilliSecs
> > > With CreateObject("WScript.Shell")
> > > .Run cmd,HideWindow,WaitForCompletion
> > > End With
> > > End Sub
> >
> > If this is for personal use, you could always install ScriptX (has a Wait
> > method) or AutoItX (has a Sleep method) - both are free.
> >
> > Personally, I'm using the AutoItX v3 COM object...
> >
> > Set aux = CreateObject("AutoItX3.Control")
> > aux.sleep 10000
> >
> > --
> > Michael Harris
> > Microsoft.MVP.Scripting- Hide quoted text -
> >
> > - Show quoted text -
>
> There is another workaround that you may find interesting, using the
> setTimeOut function of the DOM
>
> Function Blahblah
> ......
> IntervalMarker = setTimeout("CarryOn", 50, "vbscript")
> End Function
> '
> ' ===== carries on from above when interval expires
> ' this "feature" allows the updated status message to be
> ' rendered and viewed by the user
> '
> Function CarryOn ' Code to be executed after the
> delay
> .... more of this function
> End Function
>
>