使用.vbs在睡眠中关闭程序，然后启动唤醒(Windows 10)

Question

我在HP笔记本电脑上的PC应用程序中存在问题。一旦计算机入睡然后醒来，应用程序就会停止响应。

我以前遇到的解决方法是一个.vbs，可以在睡眠时关闭它，然后在醒来时重新开始。但是，我丢失了文件，我不知道自己是如何做的。有什么想法吗？

Answer 1

Set colMonitoredEvents = GetObject("winmgmts:")._
    ExecNotificationQuery("SELECT * FROM Win32_PowerManagementEvent")
Do
    Set strLatestEvent = colMonitoredEvents.NextEvent
    If strLatestEvent.EventType = 4 Then 
        Set objWMIService = GetObject("winmgmts:\.rootcimv2")
        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

该监视睡眠并杀死计算器。并在简历上重新启动。