|
  
- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
Rem 开始
MoveTo 646,433
Delay 32
LeftClick 1
Delay 1500
x=-1:y=-1
While x<0 and y<0
VBSCall FindPic(0,0,800,600,"05.bmp",0.9,x,y)
If x>=0 and y>=0
VBSCall FindPic(0,0,800,600,"15.bmp",0.9,x,y)
If x>=0 and y>=0
VBSCall FindPic(0,0,800,600,"28.bmp",0.9,x,y)
EndIf
EndIf
If x<0 and y<0
KeyDown 115,1
Delay 109
KeyUp 115,1
Delay 409
MoveTo 646,433
Delay 32
LeftClick 1
Delay 1500
EndIf
EndWhile
Sub 结束
Delay 400
EndScript
Return 结束 |
-
+10
评分记录
-
|
发表于 2010-5-23 04:12
|