魔兽世界战场脚本编码

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《魔兽世界战场脚本编码》，欢迎阅读！

魔兽世界战场脚本编码

学了按键精灵脚本制作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.wddqxz.cn/a232e37ade80d4d8d15a4fdf.html