用数组吧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,"提示"
//估计也不用了.....
温馨提示:答案为网友推荐,仅供参考