WSH用sleep関数
- ページ: Macro/投稿
- 作者: maru
- カテゴリー: vbs
- 投稿日: 2008-03-29 (土) 16:50:13
メッセージ
WScript.Sleepの代替です．
WMIを経由するため，１回の呼出し毎に遅延が発生します．
私の手元の環境では１回当たり３５ミリ秒程度でした．
0
1
2
3
4
5
6
7
| | Private Sub Sleep(mSec)
On Error Resume Next
GetObject("winmgmts:{impersonationLevel=impersonate}").ExecNotificationQuery _
("select * from __instancecreationevent within 1" _
& " where targetinstance isa 'Win32_Process'" _
& " and targetinstance.ProcessID=0").NextEvent mSec
On Error GoTo 0
End Sub
|
元ねたはhttp://www.vector.co.jp/soft/winnt/prog/se427882.html
ですが，Win32_NTLogEventはタイムアウトしない可能性があるので，ちょっと修正しました．
![[PukiWiki]](image/sakura.png "[PukiWiki]")
