4个回答
2013-12-16
展开全部
用数组吧dim color(50),i
i="1":color(1)="颜色":color(2)="颜色":......
//数组赋值(颜色)
Rem xh
For 50
//循环找色50次
VBSCall Call FindColor(0,0,800,600,color(i),x,y)
If x>=0 and y>=0
i=i+1
Else
i="1"
Goto xh
//有一次没找到就回到标记 继续循环
EndIf
EndFor
msgbox "50个颜色已经全部找到",0+64,"提示"
//估计也不用了.....
i="1":color(1)="颜色":color(2)="颜色":......
//数组赋值(颜色)
Rem xh
For 50
//循环找色50次
VBSCall Call FindColor(0,0,800,600,color(i),x,y)
If x>=0 and y>=0
i=i+1
Else
i="1"
Goto xh
//有一次没找到就回到标记 继续循环
EndIf
EndFor
msgbox "50个颜色已经全部找到",0+64,"提示"
//估计也不用了.....
2013-12-16
展开全部
找到某个颜色50次 然后按别的键
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-16
展开全部
到某个颜色50次,按别的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-12-16
展开全部
没明白,请详细说明下!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询