2024年1月23日发(作者：)

魔兽世界战场脚本编码

学了按键精灵脚本制作2天了，试做了一个魔兽世界战场脚本，可以适应各个分辨率，各位大神指点一二吧。编码如下：

Rem WOW战场挂机

UserVar str=""

Rem 开始

VBSCall FindPic(0,0,1024,768,"Attachment:",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:",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:"

Gosub PaiZC

LeftClick 1

Delay 1000

str="Attachment:"

Gosub PaiZC

Gosub Gogo

Delay 1000

str="Attachment:"

Gosub PaiZC

Gosub Gogo

Delay 1000

str="Attachment:"

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:",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:",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:",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

Delay 500

Else

MessageBox "没有555"

EndIf

Return PaiZC

EndScript