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

« WSH以外のホスト環境でのWScript.Sleep()の代替関数 | トップページ | WSH以外のホスト環境でのWScript.Sleep()の代替関数(その3) »

2007年4月21日 (土)

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

WMIを使用します。

Sub Sleep(mSec)
On Error Resume Next
GetObject("winmgmts:{impersonationLevel=impersonate}").ExecNotificationQuery _
  ("select * from __instancecreationevent where targetinstance isa 'Win32_NTLogEvent'") _
  .NextEvent mSec
End Sub

Sleep ミリ秒

ミリ秒を指定します。

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

« WSH以外のホスト環境でのWScript.Sleep()の代替関数 | トップページ | WSH以外のホスト環境でのWScript.Sleep()の代替関数(その3) »