2018年10月
  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      
無料ブログはココログ

« WSH以外のホスト環境でのWScript.Sleep()の代替関数(その2) | トップページ | コマンドラインで、サスペンド(スタンバイ)、ハイバネーション(休止)する。 »

2007年4月21日 (土)

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

Excelがあれば、Win32APIが使えます。

Set Application=CreateObject("Excel.Application")

Sub Sleep(mSec)
Call Application.ExecuteExcel4Macro("CALL(""Kernel32"",""Sleep"",""JJ"","&mSec&")")
End Sub

Sleep ミリ秒

ミリ秒を指定します。

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

« WSH以外のホスト環境でのWScript.Sleep()の代替関数(その2) | トップページ | コマンドラインで、サスペンド(スタンバイ)、ハイバネーション(休止)する。 »