Macro/投稿/188

  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