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以执行流程。