- set ws = CreateObject("WScript.Shell")
- set wmi = GetObject("winmgmts:\\.\root\cimv2")
- set e = wmi.ExecNotificationQuery( _
- "SELECT * FROM Win32_ComputerShutdownEvent")
- do
- set o = e.NextEvent
- ws.popup "请带走您的优盘", 10, "通知", 4096
- loop
复制代码 vbs不能发送系统消息,这个代码可能起不到作用。最好查找相关软件。 |