- 贡献
- 0
- 金钱
- 2
- 性别
- 保密
- 威望
- 0
- 最后登录
- 2012-11-23
- 精华
- 0
- 帖子
- 5
- 积分
- 7
- 阅读权限
- 10
- 注册时间
- 2011-6-28
- UID
- 84836091
- 贡献
- 0
- 金钱
- 2
- 性别
- 保密
- 威望
- 0
- 最后登录
- 2012-11-23
- 精华
- 0
- 帖子
- 5
- 积分
- 7
- 阅读权限
- 10
- 注册时间
- 2011-6-28
- UID
- 84836091
|
Rem 找图Delay 1000i = 0For 5a=514+偏移X*ib=514+偏移X*i+24FindColorEx a,490,b,502,"FF21CD", 0,0.8, intX,intYIf intX > 0 And intY > 0 Goto 找到End ifi=i+1NextDelay 10i=0For 5a=514+偏移X*ib=514+偏移X*i+24FindColorEx a,585,b,597,"FF21CD", 0,0.8, intX,intYIf intX > 0 And intY > 0 Goto 找到End ifi=i+1NextDelay 10//刷将键Rem aDim cccc = GetLastKey()//If cc=34LockMouseMoveTo 828, 265Delay 100LeftClick 1Delay 100KeyPress "Enter", 1UnlockMouse//Else//Goto a//End ifGoto 找图//刷完Rem 找到MoveTo intx,inty-30dd = GetLastKey()If dd=35Goto aElseGoto 找图End ifEndScript |
|