Автоматизация Доработка скрипта на заказ

[savin38]

Здравствуйте. Нужна доработка. Суть. Имеется компьютер с постоянно запущенным приложением мониторинга оборудования спутниковых каналов . Постоянно открыто окно этого приложения, в котором отображаются меленькие зеленые квадратики. В случае неисправности одного из каналов соответствующий квадратик меняет цвет .

Есть скрипт который следит за окном с этими квадратиками, и в случае изменения цвета квадратика подает звуковой сигнал и выводит сообщение. Нужно доработать , что бы в момент потери канала программа помимо звукового сигнала и вывода сообщения, делала запись времени, попадания и восстановления канала в таблице Excel.
$Color = 0x000000 ; $Color = 0x000000
While 1
If PixelGetColor (126 , 694) <> $Color Then
SoundPlay("C:\Windows\media\Alarm03.wav", 1)
MsgBox(0, "Сообщение", "НЕИСПРАВНОСТЬ УС СВЕТОЧ!", 5) ; Действие
EndIf
Sleep(1000)
WEnd
За ранее спасибо.

 

[All2khoff]

Добрый день.
Если отказаться от идеи именно использовать Exel
То вот вам решение с записью в FileLog.txt о каждой сработке на рабочем столе.

$Color = 0x000000 ; $Color = 0x000000
While 1
    If PixelGetColor (126 , 694) <> $Color Then
        SoundPlay("C:\Windows\media\Alarm03.wav", 1)
        MsgBox(0, "Сообщение", "НЕИСПРАВНОСТЬ УС СВЕТОЧ!", 5) ; Действие
        WriteLog()
    EndIf
    Sleep(1000)
WEnd

func WriteLog()
    $hFile = FileOpen(@DesktopDir &"\FileLog.txt", 9)
    FileWrite($hFile, "Зафиксирован сбой "&@YEAR&"_"&@MON&"_"&@MDAY&"-"&@HOUR&":"&@MIN&":"&@SEC&@CRLF)
    FileClose($hFile)
EndFunc

Для решения отмечать когда сломалось/когда починилось решение будет более объемным.
Обращайтесь в личку, обсудим стоимость и ваши дополнительные пожелания.