dim color(2) dim s,x,y //声明变量 color(0)="FFFFFF":color(1)="000000":color(2)="00FFFF" //定义颜色数组变量 请自行修改颜色代码 Rem start s=0 //定义数组下标初始值变量 For 3 //循环3次 Delay 10 //循环里设置延时 防止系统内存占用太高 VBSCall FindCenterColor(0,0,1024,768,color(s),x,y) //区域从中间向外查找颜色。0,0,1024,768为区域范围,color(s)为颜色数组变量,x,y为坐标变量 If x>0 and y>0 //如果找到颜色 Delay 100 //延时100毫秒 VBSCall MessageBox("找到颜色"&"color("&s&") "&"坐标为:"&x&","&y) //弹出窗口 找到颜色和坐标 Else Delay 100 //延时100毫秒 VBSCall MessageBox("没找到颜色"&"color("&s&")") //弹出窗口 没有找到颜色 EndIf //条件结束 s=s+1 //变量递增 EndFor //循环结束 EndScript Goto start