Macro/投稿/188 のバックアップ差分(No.1)

• バックアップ一覧
• 現在との差分 を表示
• 現在との差分 - Visual を表示
• ソース を表示
• バックアップ を表示
• Macro/投稿/188 へ行く。
  • 1 (2008-03-29 (土) 16:54:08)

• 追加された行はこの色です。
• 削除された行はこの色です。

* WSH用sleep関数 [#uabb5e08]
-ページ: [[Macro/投稿]]
-作者: [[maru]]
-カテゴリー: vbs
-投稿日: 2008-03-29 (土) 16:50:13

** メッセージ [#la1ef4a2]
WScript.Sleepの代替です．~
WMIを経由するため，１回の呼出し毎に遅延が発生します．~
私の手元の環境では１回当たり３５ミリ秒程度でした．

#code(vbscript){{
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はタイムアウトしない可能性があるので，ちょっと修正しました．

----

#comment