- UID
- 596
- 帖子
- 1431
- 积分
- 807
- 紫菀
- 0 朵
- 花瓣
- 450 片
- 花蕊
- 86 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 26 级
- 在线时间
- 292 小时
- 注册时间
- 2006-9-11
- 蜗居何地
- fj
- 登录状态
-
当前离线
|
楼主
发表于 2010-5-23 04:12
| 只看该作者
已解决
大家进来帮个忙吧
悬赏金额: 20 片花瓣
本帖最后由 ha321 于 2010-5-23 04:17 编辑
3张图片.rar (468 Bytes)
Rem 开始
MoveTo 646,433
Delay 32
LeftClick 1
Delay 1500
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)
If x>=0 and y>=0
Gosub 结束
Else
Goto 继续
EndIf
Else
Goto 继续
EndIf
Else
Goto 继续
EndIf
Rem 继续
Delay 400
KeyDown 115,1
Delay 109
KeyUp 115,1
Delay 409
Goto 开始
Sub 结束
EndScript
Return 结束
好多年不搞脚本了,昨天想实现一个功能,结果发现搞了半天没成功@!谁帮我看看咋回事!
寻找05、15、28 3张图片。都找到就结束脚本,只要没找到一个就继续F4,然后重新开始!
琢磨着应该也没错啊,只是不知道为什么就是实现不了这个功能呢?谁能帮我看看? |
最佳答案 | SzAngel |
|
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 结束
|
|