Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/9: Рейтинг темы: голосов - 9, средняя оценка - 4.67
Колюня
0 / 0 / 0
Регистрация: 26.03.2012
Сообщений: 10
1

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

16.04.2012, 11:49. Просмотров 1773. Ответов 1
Метки нет (Все метки)

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

Код скрипта:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2012, 11:49
Ответы с готовыми решениями:

Svchost.exe грузит процессор до 56%
svchost.exe грузит процессор до 56%, как говорит Process Explorer Дадите какие-нибудь советы,...

Процесс "Системные прерывания" грузит процессор
Доброго времени суток. Уже несколько месяцев существует следующая проблема: некий процесс под...

Сильно грузит процессор
Здравствуйте,помогите разобраться-сильногузится и зависает комп при работе на видеокарте GTX 750...

GLScene грузит процессор сильно
Вращающийся куб в GLScene грузит процессор до 40 процентов. Страшно представить что будет, если...

1
buggydancer
250 / 238 / 16
Регистрация: 31.12.2009
Сообщений: 324
16.04.2012, 19:38 2
Если вынести sleep из блока if/endif то процессор вроде не грузит:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 19:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Проводник сильно грузит процессор
Здравствуйте. Проводник грузит систему, после чего это стало происходит, к сожалению не заметил,...

Services.exe сильно грузит процессор
Добрый день, services.exe сильно грузит процессор, не знаю что делать. Удалил большинство...

Svchost.exe сильно грузит процессор
установлена Win 7, проблема как и у многих - сильная загрузка ЦП и ОЗУ из-за svchost.exe. Сделал...

Процесс steam сильно грузит процессор
Здравствуйте. Такая проблема: периодически включается процесс steam и компьютер начинает сильно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.