Нашел еще текст скрипта на vbs
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set colMonitoredEvents = GetObject("winmgmts:")._
ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
Do
Set objLatestEvent = colMonitoredEvents.NextEvent
If objLatestEvent.EventType = 7 Then
intReturn = WshShell.Run("notepad.exe", 4, FALSE)
End If
Loop
Кидаете этот скрипт в автозагрузку, и будет Блокнот запускаться при выходе из спящего режима.
|