Оповещение при изменении цвета пикселя.

$Color = 0xffffff ; Контролируемый цвет
While 1 ; Шут его знает зачем оно надо
If PixelGetColor (120 , 120) <> $Color Then ; Координаты, Color Then - шут его знает зачем он нужен.
MsgBox(0, "ВНИМАНИЕ", "Сделано в Германии!") ; Текстовое оповещение
EndIf ; Шут его знает, зачем оно надо
Sleep(10000):время между проверкой
WEnd ; наверное перезапуск sleep-a без него не работает.

SoundPlay('ПУТЬ К mp3 ИЛИ wav ФАЙЛУ', 1)

Beep(500, 1000)

$Color = 0xffffff ; цвет
While 1
If PixelGetColor (120 , 120) <> $Color Then
MsgBox(0, "ВНИМАНИЕ", "Сделано в Германии!") ; Текстовое оповещение
EndIf
Sleep(10000)
SoundPlay('C:\Documents and Settings\Admin\Рабочий стол\111.mp3', 1)
Wend

$Color = 0xffffff ; цвет
While 1
 If PixelGetColor (400 , 400) <> $Color Then
    Beep(500, 1000)
    Sleep(1050)
	SoundPlay('C:\Documents and Settings\Admin\Рабочий стол\111.mp3', 1)
	MsgBox(0, "ВНИМАНИЕ", "Сделано в Германии!") ; Текстовое оповещение
	Sleep(1000)
 else
 EndIf
Wend