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

[АлексейАльтман]

Здравствуйте.
Такой вопрос:

Есть код, который реагирует на появление определенного слова в буфере обмена.

Спойлер

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

А как сделать, чтобы код реагировал не на конкретное слово, а вообще на любое изменение буфера обмена ?

 

[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

 

[АлексейАльтман]

Alofa понял.
Спасибо.