Question

按键精灵的编程高手进来帮帮小弟的忙，请大哥哥大姐姐们帮忙修改一下发到我的邮箱：11598414@qq.com

我这有三个颜色，希望不同的颜色实现不同的操作，然后不停的循环，目前脚本运行后只能三个颜色只能同一个操作，另外工作需要需要添加一段自动翻页，只需一个范围内找完了三种颜色后会继续翻下一页去查找

这个脚本也是百度搜的，希望大哥哥大姐姐们能帮我完善一下！

dim s(2)
s(0) = "D405EE":s(1) = "0E195A":s(2) = "D4D3C5"
a = 0
For 300
Rem 开始
FindColor 1173, 105, 1365, 483, s(a), x, y
If x > 0 And y > 0 Then
MoveTo x, y
Delay 100
LeftClick 1
Delay 100
MoveTo 333, 111
Delay 100
LeftClick 1
Delay 100
a=a+1
Else
Delay 128
Goto 开始
End If
Delay 128
next

Answer 1

s(0) = "D405EE" : s(1) = "0E195A" : s(2) = "D4D3C5"
Do
For a = 0 To 2
FindColor 0, 0, 1024, 768, s(a), intX, intY
If intX > 0 Then
Select Case a
Case 0
//动作1
Case 1
//动作2
Case 2
//动作3
End Select
End If
Next
Call 翻页
Loop
Sub 翻页
//翻页的动作
End Sub
//动作处，自行添加内容，并更改查色范围。

追问

饭在眼前，就是吃不到嘴里，提供数据及搞高悬赏分20或如您所愿,请"无语360天"直接喂到我嘴里

动作1:
MoveTo 560, 235
Delay 100
LeftClick 1
Delay 100

动作2:
同上

动作3:
同上

翻页：
同上

找到颜色目标，鼠标单击目标颜色，然后动作1,2,3,,,,,,,,（另外可以的话请加一个判断语句，不要重复动作，不明白意思请忽略括号内的内容）

追答

s(0) = "D405EE" : s(1) = "0E195A" : s(2) = "D4D3C5"
Do 
    For a = 0 To 2
        FindColor 0, 0, 1024, 768, s(a), intX, intY
        If intX > 0 Then 
            Select Case a
            Case 0
       MoveTo 560, 235
Delay 100
LeftClick 1
Delay 100          
            Case 1
             MoveTo 560, 235
Delay 100
LeftClick 1
Delay 100
            Case 2
     MoveTo 560, 235
Delay 100
LeftClick 1
Delay 100
            End Select
        End If
    Next
    Call 翻页
Loop
Sub 翻页
MoveTo 560, 235
Delay 100
LeftClick 1
Delay 100
End Sub

//动作都一样，还分个毛的a啊。。。