Скрипт сильно грузит процессор

@Колюня · Регистрация: 26.03.2012

Студворк — интернет-сервис помощи студентам

Проблема такова - в пятницу в определенное время надо запускать программу. Решил сделать это с помощью vbs. Скрипт вроде работает но съедает 50% цп. Может кто сталкивался с подобным. Заранее спасибо.

Код скрипта:

Visual Basic

On Error Resume Next
 
 
Set S = CreateObject("Wscript.Shell") 'Подключаем обьект, для получения доступа к свойству sleep
do 'начало бесконечного цыкла
 
 
 
if Hour(Now)  = "9" And Minute(Now) = "1" And Second(Now) = "1" Then
Set Application = CreateObject("Shell.Application")
Application.MinimizeAll 
wscript.sleep 2000 '
 
WSHShell.SendKeys "{ESC}"
WSHShell.SendKeys "{ESC}"
WSHShell.SendKeys "{ESC}"
 
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Command = "restart900.exe"
WshShell.Run Command
 
 
End If
loop

@buggydancer · 16.04.2012, 19:38

Если вынести sleep из блока if/endif то процессор вроде не грузит:

Visual Basic

On Error Resume Next
 
Set S = CreateObject("Wscript.Shell") 'Подключаем обьект, для получения доступа к свойству sleep
 
 
do 'начало бесконечного цыкла
 
if Hour(Now)  = "9" And Minute(Now) = "1" And Second(Now) = "1" Then
Set Application = CreateObject("Shell.Application")
Application.MinimizeAll 
 
WSHShell.SendKeys "{ESC}"
WSHShell.SendKeys "{ESC}"
WSHShell.SendKeys "{ESC}"
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Command = "restart900.exe"
WshShell.Run Command
End If
 
wscript.sleep 2000 '
 
loop

	16.04.2012, 19:38

Опции темы