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以執行過程開始。