使用.vbs关闭睡眠程序并在唤醒时启动(Windows 10)

时间:2016-06-18 13:33:44

标签: vbscript

我的HP笔记本电脑上的Viber for PC应用程序出现问题。一旦计算机进入睡眠状态然后被唤醒,应用程序就会停止响应。

我以前使用的解决方法是.vbs会在睡眠时关闭它并在唤醒时再次启动它。但是,我丢失了文件,我不知道我之前是怎么做过的。有什么想法吗?

1 个答案:

答案 0 :(得分:1)

Set colMonitoredEvents = GetObject("winmgmts:")._
    ExecNotificationQuery("SELECT * FROM Win32_PowerManagementEvent")
Do
    Set strLatestEvent = colMonitoredEvents.NextEvent
    If strLatestEvent.EventType = 4 Then 
        Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
        Set colItems = objWMIService.ExecQuery("Select * From Win32_Process")
        For Each objItem in colItems
            If objItem.name = "Calculator.exe" then objItem.terminate
        Next
    ElseIf strLatestEvent.EventType = 7 Then 
        Set WshShell = WScript.CreateObject("WScript.Shell")
        WshShell.Run "calc.exe", 1, false
    End If
Loop

这可以监控睡眠和杀死计算器。并在简历中重新开始。