求此种按键精灵脚本…

来源：百度知道 编辑：UC知道 时间：2024/06/07 15:22:19
求按键精灵脚本，要求自动点击图片！我保存几张图片分别命名1，2，3，4……当看到这几张图片（区域抓图得来）时鼠标移动移向图片并点击…没有先后关系，循环到停止为止…谢！
VBSCall FindPic(0,0,1024,768,"C:\Documents and Settings\xll\桌面\1.bmp",0.9,x,y)
//区域找图，0,0,1024,768为区域范围，"1.bmp"为图片名（路径），0.9为找图的相似度，x,y为找图后储存坐标的变量
If x>=0 and y>=0
//如果坐标在区域内（找到图片）
MoveTo x y
//移动到图片位置（图片左上角）
Delay 50
//延时
LeftClick 1
//左键单击
EndIf
//条件结束

我将这些复制到源代码中并用QQ截图保存，命名1.bmp，可是运行了鼠标却没有指到我想要的位置.到处跳来跳去..WHY? 如何使鼠标准确地指向我截的图 请知道的人不吝赐教.....万分感谢...

1楼,当初是用手机问的,最高只能20分

//以下是自定义内容不要改
UserVar lj1 = C:\ 请输入图片一路径
UserVar lj2 = C:\ 请输入图片二路径
UserVar lj3 = C:\ 请输入图片三路径
UserVar lj4 = C:\ 请输入图片四路径
//以上是自定义内容不要改
Rem huei
Delay 200
VBSCall Call FindPic(0,0,1023,767,lj1,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200
LeftClick 1
Else
Delay 200
VBSCall Call FindPic(0,0,1023,767,lj2,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200
LeftClick 1
Else
Delay 200
VBSCall Call FindPic(0,0,1023,767,lj3,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200
LeftClick 1
Else
Delay 200
VBSCall Call FindPic(0,0,1023,767,lj4,0.8,x,y)
If x>=0 and y>=0
MoveTo x+5 y+5
Delay 200