大家进来帮个忙吧

ha321

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，然后重新开始！

琢磨着应该也没错啊，只是不知道为什么就是实现不了这个功能呢？谁能帮我看看？

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 结束

SzAngel

按键精灵害了你.......

在判断语句内除非跳转到程序结束,否则不要用跳转语句!

应该说,世界上正规的语言内没有一种语言是支持从IF等语句内跳出的..按键精灵早期版本曾支持过这种跳出,新版本也可能支持,但不可预知的情况很多!

ha321

厄，那应该怎么改？   6.85破解版本