Sub 丢草
VBS dim yanshi yanshi1 yanshi2
UserVar yanshi=90
UserVar yanshi1=200
UserVar yanshi2=1000
Rem 丢弃
Delay yanshi
VBSCall FindPic(0,0,1024,768,"D:\diuqi.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo (x+4) (y+4)
Delay yanshi1
LeftClick 1
Goto 找草
EndIf
Rem 找草
Delay yanshi
Delay yanshi2
VBSCall FindPic(0,0,1024,768,"D:\cao.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo (x+17) (y+12)
Delay yanshi1
LeftClick 1
Goto max
EndIf
Rem max
Delay yanshi
VBSCall FindPic(0,0,1024,768,"D:\max.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo (x+4) (y+4)
Delay yanshi1
LeftClick 1
Goto ok
EndIf
Rem ok
Delay yanshi
VBSCall FindPic(0,0,1024,768,"D:\ok.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo (x+4) (y+4)
Delay yanshi1
LeftClick 1
Goto queding
Rem queding
Delay yanshi
VBSCall FindPic(0,0,1024,768,"D:\queding.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo (x+4) (y+4)
Delay yanshi1
LeftClick 1
EndIf
Return 丢草
图片自己截图吧 D:\queding.bmp 把这个改改就行了
这个只是个框架 我在锡兰丢草用的 改改后随便丢什么都可以~~~~
写的可能不好 希望大家多多指教~~~
| 此篇文章为17173玩家原创作品，获得积分奖励 Z。 17173全新积分兑换系统上线 点卡周边等你拿>>>详情点击 |
