Question

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

大神看见不要笑话，刚看了2天书。
有点问题搞蒙圈了……
a = "00A000"
b = "C9C9C9"
c = "0000B8"
d = "E2E258"
e = "00FFFF"
getcolor = GetPixelColor(433, 431)

If getcolor = a Then
。。。。。。
a=a
b=b
c=c
d=d
e=e
ElseIf getcolor = b Then
。 。。。。。。
h1 = a
a = b
b = h1
c = c
d = d
e = e

ElseIf getcolor = c Then
。。。。。。。。。
h1 = a
h2 = b
a = c
b = h1
c = h2
d = d
e = e
ElseIf getcolor = d Then
。。。。。。。。。
h1 = a
h2 = b
h3 = c
a = d
b = h1
c = h2
d = h3
e = e

ElseIf getcolor = e Then
h1 = a
h2 = b
h3 = c
h4 = d
a = e
b = h1
c = h2
d = h3
e = h4
Else
h1 = a
h2 = b
h3 = c
h4 = d
a = getcolor
b = h1
c = h2
d = h3
e = h4
End If

我想要的效果是，先预先选取5个颜色，然后和坐标 X,Y，取得的新颜色对比，当新取得的颜色和预选的五个颜色之一相同时，将此颜色移至第一位，其他颜色顺序不变。
当新取得的颜色和预选的五个颜色都不相同时，新颜色成为五个颜色之中的第一位，同时，其他颜色按原来的顺序顺延，末位淘汰掉。只留五个颜色。
还有一个问题就是，循环，下一次从头开始的时候，怎么才能采用这次改变后的颜色顺序作为与选颜色对比。
不知道我说明白没有……
希望大神们能帮我解决一下，非常感谢~

Answer 1

//界面上需要添加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)

追问

那请问如果我还想在判断颜色的同时执行一些鼠标键盘脚本可以吗？应该加在那个位置，比如说和预设颜色相同时，执行A脚本，颜色不同时，执行B脚本。我自己试了试没成功。

追答

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
Select Case i
Case 0
Call 子程序0
Case 1
Call 子程序1
Case 2
Call 子程序2
Case 3
Call 子程序3
Case 4
Call 子程序4
End Select
Exit For
ElseIf i = 4 Then
For i = 1 To 4
颜色(4 - i + 1) = 颜色(4 - i)
Next
颜色(0) = getcolor
Call 新增颜色
End If
Next
///////子程序名称与内容请自行修改

Answer 2

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