蒸汽幻想挖矿脚本

来源：百度知道 编辑：UC知道 时间：2024/05/16 01:01:04
谁给个挖矿脚本啊 有好心人分享下吗

分享下你的快乐

我给100分

Delay 2000
Rem 1
VBSCall FindPic(0,0,1024,768,exp.bmp,0.9,x,y)
If x=-1 and y=-1
Goto 1
EndIf
If x>=0 and y>=0
MoveTo x y
Delay 1000
LeftClickH 1
Delay 1500
LeftClickH 1
Delay 1000
EndIf
Rem 2
VBSCall FindPic(0,0,1024,768,cl.bmp,0.9,nx,xy)
If nx=-1 and ny=-1
Goto 2
EndIf
If nx>=0 and ny>=0
MoveTo nx ny
Delay 1000
LeftDownH 1
Delay 1000
EndIf
Rem 3
VBSCall FindPic(0,0,1024,768,fj.bmp,0.9,ny,ny)
If nx=-1 and ny=-1
Goto 3
EndIf
If nx>=0 and ny>=0
MoveTo nx ny
Delay 1000
LeftUpH 1
Delay 1000
EndIf
Rem 4
VBSCall FindPic(0,0,1024,768,fj1.bmp,0.9,nx,ny)
If nx=-1 and ny=-1
Goto 4
EndIf
If nx>=0 and ny>=0
MoveTo nx ny
Delay 1000
LeftClickH 1
EndIf
Delay