Доброго времени суток, уважаемые Форумчани.
Проблема думаю довольно простая, но что-то мозг не догоняет что не так.
Вообщем, как только заключил в скрипт сохранения IniWrite, перестал работать кусочек функции.
Приложу скрипт.
Сколько бы не думал, что-то не магу догнать что не так.
Проблема думаю довольно простая, но что-то мозг не догоняет что не так.
Вообщем, как только заключил в скрипт сохранения IniWrite, перестал работать кусочек функции.
Приложу скрипт.
Код:
Global $Cvet001[2]=[0,0]
func _1()
;Тело ( Обсолютно не относится с всему что тут написано)
$NewColorString = PixelGetColor ( $Cvet001[0], $Cvet001[1] ) ; На этой строчке и на
If $colorCvet <> $NewColorString Then ; этой выдает ошибку.
TrayTip("Браво", "Цвет изменился!", 5, 1)
Else
TrayTip("Увы", "Ничего не менялось...", 5, 4)
EndIF
EndFunc
Func _SettingA00001()
MsgBox(0," ","Наведите курсор на ресурс и нажмите Enter")
Sleep(2000)
$Cvet001 = MouseGetPos()
Global $colorCvet = PixelGetColor ( $Cvet001[0], $Cvet001[1] )
MsgBox(0,"Настройка","Выполнено",1)
endfunc
IniWrite("Setting.ini","Gremlin #1","Pixel =>",$Cvet001[0])
IniWrite("Setting.ini","Gremlin #1","Pixel =>",$Cvet001[1])
IniWrite("Setting.ini","Gremlin #1","PixelColor =>",$colorCvet)
$Cvet001[0]=IniRead("Setting.ini","Gremlin #1","Pixel =>","0")
$Cvet001[1]=IniRead("Setting.ini","Gremlin #1","Pixel =>","0")
$ColorCvet =IniRead("Setting.ini","Gremlin #1","PixelColor =>","00000000")
Сколько бы не думал, что-то не магу догнать что не так.