按键精灵循环时采用重新赋值的变量

//界面上需要添加5个输入框，然后每个输入框按顺序填入颜色值，如果想要下次重启软件后还要保留颜色值可以在QUI界面上点击一下保存

//打开自定义界面，点击运行即可

Dim 颜色(5)

颜色(0) = Form1.InputBox1.Text

颜色(1) = Form1.InputBox2.Text

颜色(2) = Form1.InputBox3.Text

颜色(3) = Form1.InputBox4.Text

颜色(4) = Form1.InputBox5.Text

getcolor = GetPixelColor(433, 431)

For i = 0 To 4

If getcolor = 颜色(i) Then 

If i > 0 Then 

For ii = 1 To i

颜色(i - ii + 1) = 颜色(i - ii)

Next

颜色(0) = getcolor

End if

Exit For

ElseIf i = 4 Then

For i = 1 To 4

颜色(4 - i + 1) = 颜色(4 - i)

Next

颜色(0) = getcolor

End If

Next

Form1.InputBox1.Text = 颜色(0)

Form1.InputBox2.Text = 颜色(1)

Form1.InputBox3.Text = 颜色(2)

Form1.InputBox4.Text = 颜色(3)

Form1.InputBox5.Text = 颜色(4)

找图代码下边加个判断
if intX >0 and intY>0 then
a=a+1
end if