[Окна, Диалоги] Помогите написать, вывод сообщения при превышении температуры

[ar41]

Версия AutoIt: 3.5.4

Описание: Помогите пожалуйста написать скрипт, который предупреждал бы, о повышении температуры длящейся более двух минут, выше 50 градусов. А температуру брал из строчки программы.
Вот скриншот из программы и строчка из которой нужно взять данные.

Примечания:

 

[Tempo]

Нужна информация об окне + элементе управления - Control Viewer / AutoIt Window Information

 

[ar41]

>>>> Window <<<<
Title: Core Temp 1.12.1
Class: CORETEMP
Position: 1030, 0
Size: 336, 356
Style: 0x14CA0000
ExStyle: 0x00000100
Handle: 0x00000000001B0AC0

>>>> Control <<<<
Class: Static
Instance: 42
ClassnameNN: Static42
Name:
Advanced (Class): [CLASS:Static; INSTANCE:42]
ID:
Text: 44°C
Position: 73, 279
Size: 160, 19
ControlClick Coords: 26, 11
Style: 0x50001200
ExStyle: 0x00020000
Handle: 0x00000000000806EE

###AutoIt Control Viewer Report File###

Environment
===========
System: Майкрософт Windows 10 Pro 64-разрядная
Aero: Enabled

Window
======
Title: Core Temp 1.12.1
Class: CORETEMP
Style: 0x14CA0000
ExStyle: 0x00000100
Position: 1030, 0
Size: 336, 356
Handle: 0x001B0AC0
PID: 5628
Path: C:\Program Files\Core Temp\Core Temp.exe

Control
=======
Class: Static
Instance: 42
ID:
Style: 0x50001200
ExStyle: 0x00020000
Position: 73, 279
Size: 160, 19
Handle: 0x000806EE
Text: 47°C

 

[Tempo]

#include <MsgBoxConstants.au3>
HotKeySet("{ESC}", "_Exit")
Global $g_iDegree = 50, _ ;°C
		$g_iTime = 2, _ ;мин.
		$g_bReg

While 1
	Sleep(250)
	If ControlGetText("[CLASS:CORETEMP]", "", "[CLASS:Static; INSTANCE:42]") > $g_iDegree Then
		If Not $g_bReg Then
			AdlibRegister("_Warn", $g_iTime * 60000)
			$g_bReg = True
		EndIf
	ElseIf $g_bReg Then
		AdlibUnRegister("_Warn")
		$g_bReg = False
	EndIf
WEnd

Func _Warn()
	AdlibUnRegister("_Warn")
	;$g_bReg = False
	MsgBox($MB_ICONWARNING + $MB_TOPMOST, Default, "Температура выще " & $g_iDegree & "°C уже более " & $g_iTime & " мин.")
EndFunc   ;==>_Warn

Func _Exit()
	Exit
EndFunc   ;==>_Exit

 

[InnI]

#RequireAdmin

$Temp = 50  ; температура
$Time = 120 ; время (в секундах)

$Count = 0
While Sleep(1000)
  $Text = ControlGetText("[class:CORETEMP]", "", "Static42")
  If Not $Text Then
    $Count = 0
    ContinueLoop
  EndIf
  If StringMid($Text, 2, 2) > $Temp Then
    $Count += 1
  Else
    $Count = 0
  EndIf
  If $Count > $Time Then
    MsgBox(0x40000, "Alarm", "Warning")
    $Count = 0
  EndIf
WEnd

 

[ar41]

#RequireAdmin

$Temp = 50  ; температура
$Time = 120 ; время (в секундах)

$Count = 0
While Sleep(1000)
  $Text = ControlGetText("[class:CORETEMP]", "", "Static42")
  If Not $Text Then
    $Count = 0
    ContinueLoop
  EndIf
  If StringMid($Text, 2, 2) > $Temp Then
    $Count += 1
  Else
    $Count = 0
  EndIf
  If $Count > $Time Then
    MsgBox(0x40000, "Alarm", "Warning")
    $Count = 0
  EndIf
WEnd

Огромнейшее Спасибо!!! Очень помог, все самого хорошего тебе! )


Добавлено:

Сообщение автоматически объединено: 5 Июл 2018

#include <MsgBoxConstants.au3>
HotKeySet("{ESC}", "_Exit")
Global $g_iDegree = 50, _ ;°C
		$g_iTime = 2, _ ;мин.
		$g_bReg

While 1
	Sleep(250)
	If ControlGetText("[CLASS:CORETEMP]", "", "[CLASS:Static; INSTANCE:42]") > $g_iDegree Then
		If Not $g_bReg Then
			AdlibRegister("_Warn", $g_iTime * 60000)
			$g_bReg = True
		EndIf
	ElseIf $g_bReg Then
		AdlibUnRegister("_Warn")
		$g_bReg = False
	EndIf
WEnd

Func _Warn()
	AdlibUnRegister("_Warn")
	;$g_bReg = False
	MsgBox($MB_ICONWARNING + $MB_TOPMOST, Default, "Температура выще " & $g_iDegree & "°C уже более " & $g_iTime & " мин.")
EndFunc   ;==>_Warn

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Огромнейшее Спасибо!!! Очень помог, все самого хорошего тебе! )

 

[InnI]

Так попроще

Спойлер

$Temp = 50  ; температура
$Time = 120 ; время (в секундах)

$Count = 0
While Sleep(1000)
  If ControlGetText("[class:CORETEMP]", "", "Static42") > $Temp Then
    $Count += 1
  Else
    $Count = 0
  EndIf
  If $Count > $Time Then
    MsgBox(0x40000, "Alarm", "Warning")
    $Count = 0
  EndIf
WEnd