Что нового

Реагирование на изменение буфера обмена

Сообщения
13
Репутация
0
Здравствуйте.
Такой вопрос:

Есть код, который реагирует на появление определенного слова в буфере обмена.
Код:
Global $sClip, $sCurClip, $sText = "действие"

While 1
    $sClip = ClipGet()
    If $sClip <> $sCurClip Then
        If StringInStr($sClip, $sText) Then MsgBox(0, "", "Действие")
        $sCurClip = $sClip
    EndIf
    Sleep(250)
WEnd
А как сделать, чтобы код реагировал не на конкретное слово, а вообще на любое изменение буфера обмена ?
 
A

Alofa

Гость
Код:
Global $sClip, $sCurClip;, $sText = "действие"

While 1
    $sClip = ClipGet()
    If $sClip <> $sCurClip Then
        ; If StringInStr($sClip, $sText) Then MsgBox(0, "", "Действие")
		MsgBox(0, "", "Действие")
        $sCurClip = $sClip
    EndIf
    Sleep(250)
WEnd
 
Верх