Если нагрузка на процессор на минимуме - пикнуть системным динамиком

lemonia · 20 Май 2015

Версия AutoIt: 3.3.12.0

Описание:
На другом ПК, на который переключаю монитор, колонки время от времени свитчем, запускаю ресурсоемкие задания. И надо знать, когда там работа выполнена или приостановилась из-за сбоя. Нужна такая функция, если нагрузка на процессор на минимуме - пикнуть системным динамиком.

InnI · 21 Май 2015

Код:

#Include <WinAPISys.au3>

AdlibRegister('_CPU', 500)

Global $Time1, $Time2, $CPU

While Sleep(100)
  If $CPU > 20 Then
    ; ConsoleWrite("start : " & $CPU & @CRLF)
    Do
      Sleep(100)
    Until $CPU < 10
    Beep()
    ; ConsoleWrite("stop : " & $CPU & @CRLF)
  EndIf
WEnd

; http://autoit-script.ru/index.php?topic=2715.msg39572#msg39572
Func _CPU()
  $Time2 = _WinAPI_GetSystemTimes()
  If IsArray($Time1) Then
    Local $TimeBusyCPU = ($Time2[1] + $Time2[2]) - ($Time1[1] + $Time1[2])
    Local $TimeIdleCPU = ($Time2[0] - $Time1[0])
    $CPU = Round(($TimeBusyCPU - $TimeIdleCPU) / $TimeBusyCPU * 100)
  EndIf
  $Time1 = $Time2
EndFunc

Yashied · 21 Май 2015

lemonia, "Стол заказов" - это специфический раздел, где задачи решаются исходя из четкой постановки ТЗ. Во втором посте вы получили такое решение и дальнейшая дискуссия здесь неуместна.

Тема закрыта.

P.S

Советую еще прочитать это во избежании непоняток.

Автор темы	Похожие темы	Форум	Ответы	Дата
W	Загрузка процессора	Общие вопросы по AutoIt	1	14 Дек 2022
	Загруженность процессора в While со Sleep() и без Sleep() (Почему разница?)	Общие вопросы по AutoIt	2	23 Окт 2019
S	Ошибки Скрипт грузит процессор на 30%	Общие вопросы по AutoIt	3	17 Окт 2019
M	Нагрузка на CPU	Общие вопросы по AutoIt	0	1 Ноя 2015
	100%-ая нагрузка процессора	Общие вопросы по AutoIt	2	14 Апр 2014

Поиск

Поиск

Если нагрузка на процессор на минимуме - пикнуть системным динамиком

lemonia

Новичок

InnI

AutoIT Гуру

Yashied

Модератор