プログラムが起動されたことを知るには？ (ID:140844)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

以下の処理で実現できました。
有難う御座いました。

Dim PrcEvt
    Dim Prc
    Dim Locator
    Dim Service
    Dim MesStr

Set Locator = CreateObject("WbemScripting.SWbemLocator")
    Set Service = Locator.ConnectServer
    
    Set Prc = Service.ExecNotificationQuery _
        ("SELECT * FROM __InstanceOperationEvent " _
        & "WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'")

Do
        DoEvents
                
        Set PrcEvt = Prc.NextEvent

Select Case PrcEvt.Path_.Class
            Case "__InstanceCreationEvent"
                  If MsgBox(PrcEvt.TargetInstance.Name & "が起動しました。" & vbCrLf & _
                       "監視を終了しますか？", vbYesNo + vbQuestion) = vbYes Then Exit Do
            Case "__InstanceDeletionEvent"
                  If MsgBox(PrcEvt.TargetInstance.Name & "が終了しました。" & vbCrLf & _
                       "監視を終了しますか？", vbYesNo + vbQuestion) = vbYes Then Exit Do

End Select

Loop

Set PrcEvt = Nothing
    Set Prc = Nothing
    Set Locator = Nothing
    Set Service = Nothing

←解決時は質問者本人がここをチェックしてください。

戻る