首先打开按键精灵,新建个脚本! 用截图用具把你要找的图街下来,保存为EMP格式,存放到某个盘里!在吧以下代码复制到按键精灵中,打开你要找图的地方,运行即可!,(注意:把分辨率调成1024X768) VBSCall FindPic(0,0,1024,768,这里是你保存图片的路径,我的电脑中地址栏可以看到。直接复制来这里就行,1.0,intX,intY) rem a If intX0 and intY0 MoveTo intX,intY Delay 100 Leftclick 1 Delay 100 EndIf goto a
我帮您写的是无限循环找图,如果不需要只需去掉do和loop Do Dim 图片 图片(0)=图片1.bmp:图片(1)=图片1.bmp:图片(2)=图片3.bmp //设置图片路径 For i = 0 To ubound(图片) FindPic 0, 0, 1024, 768, 图片(1), 0.9, intX, intY//设置查找范围 If intx 0 Then MoveTo x, y delay 100 LeftClick 1 Delay 100 Else KeyPress 40, 1 Delay 100 End If NextLoop