PCCar.ru - Ваш автомобильный компьютер - Скрипт: Возврат из режима ожидания и переход в спящий режим

Цитата:

Сообщение от Hamster (Сообщение 110509)

Но, скрипт действительно никчему - требуемые функции ужо есть в самой программе :)

Вот, в ФАКе ясно написано что нуна сделать: http://www.dennisbabkin.com/php/faq.php?what=wosb#14

скрипт нужен для того чтобы не использовать фронт енд для этого. wosb или батник на его основе кто-то должен запустить - это и делает скрипт. Я использую RR DS, программа только развивается есть некоторые проблемы с отработкой событий при засыпании. Поэтому и обратился к скрипту. Скрипт из шапки у меня не заработал, поэтому немного "по испортив" исходный код получилось вот это:

Код:

wosbExe = "c:\WakeupOnStandBy\wosb.exe"  ' Путь к wosb.exe

sTimeInsuspend = "15"



Set oShell = CreateObject("WScript.Shell")

Set colMonitoredEvents = GetObject("winmgmts:").ExecNotificationQuery("Select * from Win32_PowerManagementEvent")



Do

        Set objLatestEvent = colMonitoredEvents.NextEvent

        Select Case objLatestEvent.EventType

                Case 4

                        'Suspend

                        oShell.Run wosbExe & " /systray /run time=+" & sTimeInsuspend & ":00 hibernatewait=0",0,False

                

                Case 18

                        ' 7 - Resume, 18 - Automatic Resume

                        oShell.Run wosbExe & " /closeall", 0, False

        End Select        

Loop

Делаем по инструкции из шапки, только вставляем код из этого поста. На ББ протестировал. Нажимаем кнопку Power на системнике - комп уходит в Ждущий режим, через 15 минут просыпается и уходит в Спящий режим. Думаю автор темы не будет против?