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

Страницы: 1 ... 8 9 [10]
91
Код: AutoIt [Выделить]
$OldText = ""
While Sleep(1111)
  $NewText = ClipGet()
  If $NewText <> $OldText Then
    FileWriteLine(@ScriptDir & "\1.txt", $NewText)
    $OldText = $NewText
  EndIf
WEnd

92
Всем привет, ребят, уже пару дней маюсь, подскажите пожалуйста как скопированный текст из буфера обмена поместить в txt документ. Нужно проверить если там какой-либо текст и если есть копировать его в txt по строчно.

Пока нашел это:
Код: AutoIt [Выделить]

Но если я его занесу в таком виде в цикл, то он будет копировать один и тот же текст по нескольку раз, до того момента, когда в буфере не появится другой текст:
Код: AutoIt [Выделить]

А мне нужно, что бы он копировал один раз разный текст, то есть если есть какой то текст в буфере обмена, то он его заносит в txt документ.

Заранее спасибо!
93
Общие вопросы по AutoIt / Re: Проверка состояния компонента Windows
« Последний ответ от Tuxzer92 Отправлен Июль 06, 2018, 07:25:40 »
Код: AutoIt [Выделить]
RunWait('powershell.exe ' & 'if ((Get-WindowsOptionalFeature -Online | Where FeatureName -Like \"Microsoft-Windows-Subsystem-Linux\")[0].State -eq \"Enabled\") { exit 0 } else { exit 1 }')


Вот так вышел из положения.
94
Общие вопросы по AutoIt / Re: Контекстное меню для пунктов меню трея
« Последний ответ от Vanguger Отправлен Июль 06, 2018, 04:28:47 »
Я тоже не видел подобной реализации, но вдруг) У меня в меню трея, висят файлы для быстрого доступа, и вот понадобилось сделать выбор из нескольких действий по отношению к файлу. Самое идеальное для меня, это дополнительное меню через ПКМ. А обычное подменю не использую, так как прикручены иконки от файлов. В общем это похоже на меню Open Server своей реализации.
95
От имени всего Русского сообщества AutoIt поздравляем Вас Hamilml, Tipplerbox, Williamer, Marinewew, VibaldTubY, Sheilaadjut, GordgGap, Israfacegak, RalphOptig с днём рождения!



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

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

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

Пусть жизнь Вам дарит самые
Прекрасные мгновения.
Желаем только радости
И счастья, с днем рождения!
96
Инструменты и справка по AutoIt / Re: Advanced Search
« Последний ответ от AZJIO Отправлен Июль 05, 2018, 22:42:51 »
Обновил, добавил константы и функции с последней версии AutoIt 3.3.15
97
Так попроще
(нажмите для показа/скрытия)
98
Код: 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
 

Огромнейшее Спасибо!!! Очень помог, все самого хорошего тебе! )
99
Код: 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

100
Код: 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
 

Страницы: 1 ... 8 9 [10]