回复 11楼 bczgvip
这个是原稿！！！但是在VB里运行不聊！！！在按键精灵里却可以运行！在VB里应该怎么写才对呢！！！
For i=121 to 225 step 13
c = GetColor(i, 51)
ys = ys & "|" & color
Next
颜色数组=Split(Mid(ys,2),"|")
下拉框 =
键值=Form1.InputBox1.Text
do
If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
Delay 500
End If
Delay 100
loop
=========================================================================================
下面是修改后的但是还是有错！应该怎么写才是VB的书写方式呢？？？
Dim 颜色数组() As string,ys as string
For i=121 to 225 step 13
'这里是横坐标的意思121到225的一个范围内的横坐标
c = GetColor(i, 51)
'这里是赋值横坐标到i，51是固定的竖坐标！这个坐标不变！只是横坐标变动
ys = ys & c & "-"
'这里YS是颜色的意思，也就是一个横坐标对应一个颜色利用“-”分割他们
Next
ys=left(ys,len(ys)-1)
这个是修改后的！但是运行到这里就错误！应该怎么书写才能通过啊！！！
颜色数组 = Split(ys, "-")
下拉框 = Combo1.ListIndex
do
If GetColor(下拉框 * 13 + 121, 51) <> 颜色数组(下拉框) Then
Delay 500
End If
Delay 100
loop
[
本帖最后由 qiziyun 于 2013-3-9 06:24 编辑 ]
