标题:
大家进来帮个忙吧
[打印本页]
作者:
ha321
时间:
2010-5-23 04:12
标题:
大家进来帮个忙吧
本帖最后由 ha321 于 2010-5-23 04:17 编辑
3张图片.rar
(468 Bytes)
下载次数: 29
2010-5-23 04:14
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,然后重新开始!
琢磨着应该也没错啊,只是不知道为什么就是实现不了这个功能呢?谁能帮我看看?
附件:
3张图片.rar
(2010-5-23 04:14, 468 Bytes) / 下载次数 29
http://bbs.szyin.com/attachment.php?aid=23649&k=0384f6f5fd29e7bdb18655de6d6d9d2e&t=1715802254&sid=E629x3
作者:
SzAngel
时间:
2010-5-23 04:12
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 结束
作者:
SzAngel
时间:
2010-5-23 09:04
按键精灵害了你.......
在判断语句内除非跳转到程序结束,否则不要用跳转语句!
应该说,世界上正规的语言内没有一种语言是支持从IF等语句内跳出的..按键精灵早期版本曾支持过这种跳出,新版本也可能支持,但不可预知的情况很多!
作者:
ha321
时间:
2010-5-23 13:05
厄,那应该怎么改? 6.85破解版本
欢迎光临 紫菀论坛 (http://bbs.szyin.com/)
Powered by Discuz! 7.1