WSH以外のホスト環境でのWScript.Sleep()の代替関数

「待ち/Sleep」は、WSH環境では、WScript.Sleep()が使えますが、
IE、HTA、WSCなどのホスト環境では、WScript.Sleep()が使えません。
その代替方法です。

ping.exeを使用します。

Sub Sleep(Sec)
CreateObject("WScript.Shell").Run "ping.exe localhost -n "&(Sec+1),0,True
End Sub

Sleep 秒

秒を指定します。

1回目は多少(数秒)の時間が余計に掛かりますが、
2回目以降は数百ミリ秒のオーバヘッドに落ち着きます。