Что нового

Реакция скрипта на наличие определенного слова в буфере обмена

perven1

Новичок
Сообщения
57
Репутация
0
Версия AutoIt: 3.3.12.0

Описание:
Всем доброго дня.
Скажите - как сделать так, чтобы скрипт срабатывал на наличие в буфере обмена - определенного слова ?

То есть - скрипт запускается и висит в трее. Когда в буфере обмена - появляется текст, включающий слово "текст-3", то скрипт выдает сообщение о срабатывании.

Примечания:
 

mr.Gbabak

Осваивающий
Сообщения
251
Репутация
22
Код:
Local $aClip, $sCurClip = "текст-3"

While 1
    $aClip = ClipGet()
    If $aClip = $sCurClip Then
        MsgBox (0, '', 'Оповещение')
    EndIf
    Sleep(100)
WEnd
 

Tempo

Скриптер
Сообщения
598
Репутация
192
perven1 [?]
текст, включающий слово "текст-3"

Код:
Global $sClip, $sCurClip, $sText = "текст-3"

While 1
	$sClip = ClipGet()
	If $sClip <> $sCurClip Then
		If StringInStr($sClip, $sText) Then ConsoleWrite("Текст найден" & @CRLF)
		$sCurClip = $sClip
	EndIf
	Sleep(250)
WEnd
 
Автор
P

perven1

Новичок
Сообщения
57
Репутация
0
Tempo, копирую текст содержащий данное слово - но ничего не происходит.
Скрипт просто висит в трее и никак не реагирует.
 

Tempo

Скриптер
Сообщения
598
Репутация
192
perven1, скрипт запускаете из SciTE? Консоль смотрите?


Добавлено: [time]1528717511[/time]
Заменил на MsgBox
Код:
Global $sClip, $sCurClip, $sText = "текст-3"

While 1
    $sClip = ClipGet()
    If $sClip <> $sCurClip Then
        If StringInStr($sClip, $sText) Then MsgBox(0, "", "Текст найден")
        $sCurClip = $sClip
    EndIf
    Sleep(250)
WEnd
 
Автор
P

perven1

Новичок
Сообщения
57
Репутация
0
Tempo, теперь все работает.
Спасибо большое.
 
Верх