按键精灵教程学习材料.docVIP

PAGE PAGE 2 【新手必学】前台找图、专为新手而写【淡蓝】 此脚本是据一位朋友反映而写得在此分享希望各位新手能够学会因为是写给新手的、便从最简单的学起：前台尽可能的详细讲述、如有什么疑问欢迎发信息给我（在帖中回复可能无法注意到） 1、首先我们打开抓抓、复制你的游戏窗口。。（可以先缩小挡在游戏窗口前面的窗口、然后按下Print Screen SysRq键，复制游戏窗口图片。。）接着图像中会出现你的游戏窗口了、2、这是我们就可以抓图啦、（如何抓图？）对着你需要的图像按下左键拖动划分出你要的图像，接着放开左键就好了。。接着我们选择位图另存为。。（自己选择一个位置、自己记得住即可推荐桌面。易找）自己输入文件名、保存图片格式为BMP。。这样我们就完成第二步了3、我们这时要把图片添加到附件里面、具体操作点击按键界面的附件点击添加找到你保存的图片然后点击保存 这样我们又完成第三步添加图片附件。。4、我们这个时候就可以写找图命令了。首先在颜色/图形命令、把得到指定点颜色改成区域找色，然后按路径找到你的图片、（记住使用附件图片路径中打钩、否则无效）、接着我 插入。。这样我们就完成了找图的命令 5、完成的命令是：FindPic 0,0,1024,768,Attachment:\未命名.bmp,0.9,intX,intYIf intX 0 And intY 0 ThenEnd If 【循环找图】教你如何循环找图,查找多图!【总结脚本】 昨天看到的问题帖,估计不少新人会有同样的问题, 特发此贴鼓励新人们学习按键~【写法一】 Do VBSCall FindPic(746,445,799,570,Attachment:\马1.bmp,0.8,X1,Y1) VBSCall FindPic(746,445,799,570,Attachment:\马2.bmp,0.8,X2,Y2) VBSCall FindPic(746,445,799,570,Attachment:\马3.bmp,0.8,X3,Y3) VBSCall FindPic(746,445,799,570,Attachment:\马4.bmp,0.8,X4,Y4) Delay 100 Select Case true Case x1=0 and y1=0 x=x1:y=y1 Case x2=0 and y2=0 x=x2:y=y2 Case x3=0 and y3=0 x=x3:y=y3 Case x4=0 and y4=0 x=x4:y=y4 End Select If x0 and y0 then ? ? MoveTo x+5 y+5 ? ? LeftClick 1 ? ? Exit do Else End If Loop 【写法二】 //首先把bmp格式图片放到附件里 Dim a(3) a(0)=Attachment:\马1.bmp a(1)=Attachment:\马2.bmp a(2)=Attachment:\马3.bmp a(3)=Attachment:\马4.bmp Call 查找图片数组 EndScript Sub 查找图片数组 For i=0 to 3 ? ?? ???VBSCall FindPic(746,445,799,570,a(i),1,x,y) ? ?? ???If x0 and y0 ? ?? ?? ?? ?MoveTo x+5 y+5 ? ?? ?? ?? ?LeftClick 1 ? ?? ?? ?? ?Goto 跳出循环 ? ?? ???EndIf next Rem 跳出循环 End Sub 【写法三】 picpath=array(马1,马2,马3,马4) i=0 do ? ? FindPic 746,445,799,570,Attachment:\picpath(i).bmp,0.8,X,Y ? ? If X 0 And Y 0 Then ? ?? ???MoveTo x+5 y+5 ? ?? ???LeftClick 1 ? ?? ???Exit do? ?//找到图操作完就跳出循环 ? ? End If ? ? i=i+1 ? ? If 5=i ? ?? ???i=0 ? ? End if loop 【写法四】 x1=746 y1=445 x2=799 y2=570 //先把上面找图范围写好 n=1 While 1=1 ? ? If n=1 ? ?? ???FindPic x1,y1,x2,y2,Attachment:\马1.bmp,0.8,x,y ? ? End If ? ? If n=2 ? ?? ???FindPic x1,y1,x2,y2,Attachment:\马2.bmp,0.8,x,y