|
- 版主
- 211464
- 21164
- 13
- 258 朵
- 47817 个
- 60 个
- 263800
- 2008-12-23
|
1#
t
T
发表于 2009-04-07 16:04
|
|只看楼主
本帖最后由 兄弟工程师01 于 2009-5-4 11:29 编辑 颜色/图形命令面板 - 例子  得到指定点颜色：得到指定位置的点的颜色 命令参数： 参数1 整数型，屏幕X坐标 参数2 整数型，屏幕Y坐标 返 回 值： 字符串型，得到的颜色16进制值 - VBSCall GetCursorPos(x,y)
- VBSCall color=GetPixelColor(x,y)
- MessageBox color
- //得到当前点的颜色，并弹出对话框显示出来
  区域找色：在屏幕区域从左到右、从上到下的查找指定的颜色 命令参数： 参数1 整数型，屏幕左上角x坐标 参数2 整数型，屏幕左上角y坐标 参数3 整数型，屏幕右下角x坐标 参数4 整数型，屏幕右下角y坐标 参数5 字符串型，16进制颜色值 参数6 整数型，返回x坐标 参数7 整数型，返回y坐标 - //VBSCall FindColor(left,top,right,bottom,c,x,y)
- //在区域内从左到右，从上到下找颜色为c的点，把坐标保存在变量x和y中
- //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限
- //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号
- //如果没有找到这个颜色，则x和y的值都被置为-1
- VBSCall FindColor(0,0,800,600,"0000FF",x,y)
- If x>0 and y>0
- MoveTo x,y
- EndIf
- //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点
 区域模糊找色：在屏幕区域模糊查找指定的颜色 命令参数： 参数1 整数型，屏幕左上角x坐标 参数2 整数型，屏幕左上角y坐标 参数3 整数型，屏幕右下角x坐标 参数4 整数型，屏幕右下角y坐标 参数5 字符串型，16进制颜色值 参数6 整数型，查找方式 参数7 整数型，相似度 参数8 整数型，返回x坐标 参数9 整数型，返回y坐标 - //VBSCall FindColorEx(left,top,right,bottom,c,type,similar,x,y)
- //在区域内找颜色为c的点，把坐标保存在变量x和y中
- //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限
- //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号
- //type表示查找方式。0为从上往下，从左往右找；1为从中心往外围找
- //similar为相似度，取0.3到1之间的小数。数值越大，对相似度要求越严格。推荐取0.8
- //如果没有找到这个颜色，则x和y的值都被置为-1
- VBSCall FindColorEx(0,0,800,600,"0000FF",1,0.8,x,y)
- If x>0 and y>0
- MoveTo x,y
- EndIf
- //在区域(0,0,800,600)中，从中间开始找接近红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点
 区域中心找色：在屏幕区域从中心开始查找指定的颜色 命令参数： 参数1 整数型，屏幕左上角x坐标 参数2 整数型，屏幕左上角y坐标 参数3 整数型，屏幕右下角x坐标 参数4 整数型，屏幕右下角y坐标 参数5 字符串型，16进制颜色值 参数6 整数型，返回x坐标 参数7 整数型，返回y坐标 - //VBSCall FindCenterColor(left,top,right,bottom,c,x,y)
- //在区域内从中心到外围找颜色为c的点，把坐标保存在变量x和y中
- //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限
- //颜色是类似于"0000FF"的字符串，如果不取变量，别忘了加双引号
- //如果没有找到这个颜色，则x和y的值都被置为-1
- VBSCall FindCenterColor(0,0,800,600,"0000FF",x,y)
- If x>0 and y>0
- MoveTo x,y
- EndIf
- //在区域(0,0,800,600)中找红色（"0000FF"）的点，如果找到，则把鼠标移动到这个点
 区域找图： 在屏幕区域查找指定相似度的图片 命令参数： 参数1 整数型，屏幕左上角x坐标 参数2 整数型，屏幕左上角y坐标 参数3 整数型，屏幕右下角x坐标 参数4 整数型，屏幕右下角y坐标 参数5 字符串型，bmp格式图片路径 参数6 整数型，相似度 参数7 整数型，返回x坐标 参数8 整数型，返回y坐标 - //VBSCall FindPic(left,top,right,bottom,filename,similar,x,y)
- //在区域内从左到右，从上到下找文件名为filename的bmp文件，把找到的坐标保存在变量x和y中
- //left,top,right,bottom都是整数或者整数型变量，说明了区域的左，上，右，下界限
- //filename是一个bmp格式的图片，需要您自己抓取，最好是24位，把边缘都设为单一的颜色
- //similar为相似度，取0.5到1之间的小数。数值越大，对图片的相似度要求越严格，速度也越快。推荐取0.9
- //如果没有找到图片，则x和y的值都被置为-1
- //推荐使用周围颜色单一的图片
- MessageBox "这个例子会启动一个Windows自带的扫雷程序，然后查找扫雷程序里的笑脸图形"
- VBSCall RunApp("winmine.exe")
- //加入一点延时，让扫雷程序顺利启动
- Delay 2000
- VBSCall FindPic(0,50,1023,767,"winmine.bmp",0.9,intX,intY)
- If intX>0 and intY>0
- MoveTo intX,intY
- MessageBox "找到图形，鼠标已经移到图形上面"
- Else
- MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"
- EndIf
- //在区域(0,50,1023,767)中找与文件winmine.bmp中的图形比较接近的地方，如果找到，则把鼠标移动到这个地方
- //6.30版之后，找图的文件路径可以直接引用附件中的图片，不需要释放，例子
- MessageBox "下面把鼠标先移到0，0点，再用附件找图的方式继续查找笑脸"
- VBSCall FindPic(0,50,1023,767,"Attachment:\winmine.bmp",0.9,intX,intY)
- If intX>0 and intY>0
- MoveTo intX,intY
- MessageBox "找到图形，鼠标已经移到图形上面"
- Else
- MessageBox "没找到！请确认扫雷程序已经打开，并且您用的是WinXP系统"
- EndIf
- MessageBox "脚本演示结束，最好的脚本永远是您自己制作的。 :-)"
- EndScript
|
闽公网安备 35010002000112号