vbscriptがファイル実行時にメッセージを表示する

Question

ユーザがアプリケーション/特定のアプリケーションを開くたびにメッセージボックスを表示するVBscriptコードを探しています。そして、vbscriptは常に動いているはずです。 私は新しいコーディングです。助けてください！！

Answer 1

Set WshShell = WScript.CreateObject("WScript.Shell") 
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set objEvents = objWMIService.ExecNotificationQuery _ 
    ("SELECT * FROM Win32_ProcessStopTrace") 

Do 
    Set objReceivedEvent = objEvents.NextEvent 
    msgbox objReceivedEvent.ProcessName 
    If lcase(objReceivedEvent.ProcessName) = lcase("Notepad.exe") then 
     Msgbox "Process exited with exit code " & objReceivedEvent.ExitStatus 
     WshShell.Run "c:\Windows\notepad.exe", 1, false 
    End If 
Loop 

これはあなたを始めます。これは、プロセスの終了を監視します。処理を開始するにはWin32_ProcessStopTraceをWin32_ProcessStartTraceに変更してください。