魔兽世界战场脚本编码 学了按键精灵脚本制作2天了，试做了一个魔兽世界战场脚本，可以适应各个分辨率，各位大神指点一二吧。编码如下： Rem WOW战场挂机 UserVar str="" Rem 开始 VBSCall FindPic(0,0,1024,768,"Attachment:\tanhao.bmp",0.9,X1,Y1) If X1>0 and Y1>0 MoveTo X1+30,Y1+10 Delay 500 LeftClick 1 Delay 500 Else MessageBox "没有" EndIf VBSCall FindPic(0,0,1024,768,"Attachment:\zc.bmp",0.9,X2,Y2) If X2>0 and Y2>0 MoveTo X2+5,Y2+5 Delay 500 LeftClick 1 Delay 500 Else Goto P EndIf Rem P str="Attachment:\daao.bmp" Gosub PaiZC LeftClick 1 Delay 1000 str="Attachment:\fb.bmp" Gosub PaiZC Gosub Gogo Delay 1000 str="Attachment:\zg.bmp" Gosub PaiZC Gosub Gogo Delay 1000 str="Attachment:\alx.bmp" Gosub PaiZC Gosub Gogo Delay 1000 While 1 Gosub InZC EndWhile Rem over Delay 5000 While 1 Gosub OutZC EndWhile Sub OutZC KeyDown 65,1 VBSCall FindPic(0,0,1024,768,"Attachment:\jinruzd.bmp",0.9,X,Y) If X>0 and Y>0 MoveTo X,Y Delay 500 LeftClick 1 Delay 500 Goto P EndIf KeyUp 65,1 Return OutZC Sub InZC VBSCall FindPic(0,0,1024,768,"Attachment:\jinruzd.bmp",0.9,X,Y) If X>0 and Y>0 MoveTo X,Y Delay 500 LeftClick 1 Delay 500 Goto over EndIf Return InZC Sub Gogo LeftClick 1 VBSCall FindPic(0,0,1024,768,"Attachment:\jrzd.bmp",0.9,X,Y) If X>0 and Y>0 MoveTo X,Y Delay 500 LeftClick 1 Delay 500 EndIf Return Gogo Sub PaiZC VBSCall FindPic(0,0,1024,768,str,0.9,X,Y) If X>0 and Y>0 MoveTo X,Y 本文来源：https://www.wddqw.com/doc/a232e37ade80d4d8d15a4fdf.html