[madmasles]

но я пытаюсь сделать вот что, если красный или зеленый, то этот бесконечный цикл работает, если черный, то прекращается, если снова будет красный или зеленый, то снова начинает работать. »

Можно, наверное, так попробовать. Числа сами подставьте нужные.

Код:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt("PixelCoordMode", 2)

Dim $aColors[3] = [0xFF0000, 0x00FF00, 0x000000]
Global $Paused, $i = 0

$hGUI = GUICreate("Test Script", 300, 200)
$hLabel = GUICtrlCreateLabel("", 20, 40, 150, 20)
GUISetState(@SW_SHOW, $hGUI)

$timer = TimerInit()
While 1
    If TimerDiff($timer) > 5000 Then
        $timer = TimerInit()
        GUICtrlSetBkColor($hLabel, $aColors[$i])
        $i += 1
        If $i = 3 Then $i = 0
        $nColor = PixelGetColor(20, 40, $hGUI)
        Select
            Case $nColor > 16000000 And $nColor < 17000000
                ToolTip('Red: 0x' & Hex($nColor, 6))
                SomeFunc()
            Case $nColor > 50000 And $nColor < 100000
                ToolTip('Green: 0x' & Hex($nColor, 6))
                SomeFunc()
            Case $nColor = 0 And $nColor < 1000
                ToolTip('Black: 0x' & Hex($nColor, 6))
                _Pause()
        EndSelect
    EndIf
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func _Pause()
    TrayTip("Pause", "Ничего не делаем.", 5, 17)
EndFunc   ;==>_Pause

Func SomeFunc()
    TrayTip("SomeFunc", "Что-то делаем.", 5, 17)
EndFunc   ;==>SomeFunc