KeyPress 40,1
        EndIf 
        //downn
        VBSCall FindPic(x,y,x+63,y+63,"Attachment:\rdown.bmp",0.8,intX,intY)
        If intX>0
            KeyPress 38,1
        EndIf 
        //rleft
        VBSCall FindPic(x,y,x+63,y+63,"Attachment:\rleft.bmp",0.8,intX,intY)
        If intX>0
            KeyPress 39,1
        EndIf 
        //rright
        VBSCall FindPic(x,y,x+63,y+63,"Attachment:\rright.bmp",0.8,intX,intY)
        If intX>0
            KeyPress 37,1
        EndIf 
    EndIf 
    //判断空格
    IfColor 392+MyArray(0),463+MyArray(1),ffffff,2
        IfColor 596+MyArray(0),400+MyArray(1),7DA0A5,2
            Delay speed
            KeyPress 32,1
        EndIf 
    EndIf 
    //判断是否结束
    IfColor 218+MyArray(0),71+MyArray(1),9B4C48,2
        MoveTo 657+MyArray(0),63+MyArray(1)
        Delay 100
        LeftClick 1
        Delay 1000
        Goto 主程序
    EndIf 
    //按键
    GetLastKey key
    If key=189
        max=max-1
        key=-1
    ElseIf key=187
        max=max+1
        key=-1
    ElseIf key=109
        speed=speed-1
        key=-1
    ElseIf key=107
        speed=speed+1
        key=-1
    ElseIf key=116
        If off=1
            off=0
        ElseIf off=0
            off=1
        EndIf 
        key=-1
    ElseIf key=117
        VBSCall runapp("http://xiaoke.5d6d.com")
        key=-1
    EndIf 
    //屏显
    If off=1
        n="跳舞次数"&sum&"最大次数"&max&"空格延迟"&(speed-65)&"自动关机开启"
    Else 
        n="跳舞次数"&sum&"最大次数"&max&"空格延迟"&(speed-65)&"____________"
    EndIf 
    Plugin Msg.ShowScrTXT(10,10,500,500,n,"ffff00")
    //循环++
    x=x+63
EndWhile 
Goto 跳舞
Return