Недавние сообщения

Страницы: 1 ... 8 9 [10]
91
Код: AutoIt [Выделить]
#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

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


Добавлено: Июль 05, 2018, 16:27:42
Код: AutoIt [Выделить]
#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
 

Огромнейшее Спасибо!!! Очень помог, все самого хорошего тебе! )
92
Код: AutoIt [Выделить]
#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

93
Код: AutoIt [Выделить]
#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
 

94
>>>> 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
95
Нужна информация об окне + элементе управления - Control Viewer / AutoIt Window Information
96
Версия AutoIt: 3.5.4

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


Примечания:
97
От имени всего Русского сообщества AutoIt поздравляем Вас asgrrytMat, Jamesalirm, Arokkhref, Shelbycib, Brendadrure, Keithtug, vehardy, Josepestap, PhillizShuse, FedorKady, Maxpt, Josephquani, Kor-ShachBott, ThomasbasTy, utavsanab, DOMINANT с днём рождения!



Цитировать
Пусть все мечты исполнятся,
Пусть все желанья сбудутся,
Пусть радости запомнятся,
А горести забудутся.

Здоровье будет крепкое,
В делах всегда согласие,
Любовь навеки верная —
Без ссор и разногласия.

Зарплата только вовремя,
Стабильная, высокая.
Работа будет лёгкая
И не совсем далёкая.

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
98
Вероятно, у вас лишние кавычки (excel'я нет, проверить не могу).
Попробуйте так
Код: AutoIt [Выделить]
Global $adr = $ipp & ":" & $ipp

99
UDF - Пользовательские функции / Re: Библиотека для работы с FireFox
« Последний ответ от alex33 Отправлен Июль 04, 2018, 14:08:25 »
Потому что они переходят на новый движок, а для него дополнение еще не сделали
100
Общие вопросы по AutoIt / Re: Контекстное меню для пунктов меню трея
« Последний ответ от alex33 Отправлен Июль 04, 2018, 14:06:31 »
Пример из справки:
Код: AutoIt [Выделить]
$iSettings = TrayCreateMenu("Настройки") ; Создаёт меню трея и подменю с двумя пунктами.
$iDisplay = TrayCreateItem("Монитор", $iSettings)
$iPrinter = TrayCreateItem("Принтер", $iSettings)

А если обойтись обычными подменю?


Добавлено: Июль 04, 2018, 14:07:27
Я никогда и не видел таких меню, в которых еще одно по правому клику открывается. Разве что меню Пуск.
Страницы: 1 ... 8 9 [10]