Sub 一键抓图
    dim errfile
    Delay dltime
    //找抓屏键(Print Screen)
    Delay 1000
    //运行画图
    VBSCall runapp("mspaint.exe")
    Delay 5*dltime
    str=left(errfilename,4)
    y=strcomp(str,"读验证码")
    retv=obj.SetCurWindow("未命名 - 画图")
    Delay dltime
    //按住<CTRL>
    KeyDown 17
    Delay dltime
    KeyPress 86
    Delay 2*dltime
    KeyPress 83
    Delay dltime
    KeyUp 17 1
    //**********调用随机数**********
    Delay dltime
    errcount=errcount+1
    If errcount > 9
        errcount=0
    EndIf 
    errfile="error"&errcount
    Plugin ret=File.ExistFile(filepath&errfile)
    If ret = 1
        Plugin File.DeleteFile(filepath&errfile)
    EndIf 
    //输入表达式 X---以一个随机数做图片的名字
    If y = 0
        SayString Filepath&"错误验证码\"& errfilename&"_"& errfile
        errfilename=""
    Else 
        SayString Filepath&"错误验证码\"& errfile
    EndIf 
    Delay 2*dltime
    //按下<ALT>
    KeyDown 18 1
    Delay dltime
    //按下<S>---确定保存[ALT+S]
    KeyPress 83 1
    Delay 5*dltime
    KeyPress 89 1
    Delay dltime
    KeyPress 89 1
    Delay dltime
    //按下<F4>---关闭当前激活的窗口[ALT+F4]
    //也就是关掉-图画
    KeyPress 115
    Delay dltime
    //弹起<ALT>
    KeyUp 18
Return 一键抓图
Sub 去城门模块
    //关音乐，音效等，（600，270）（600，310）
    //退出（396,550），返回（510,550），回城门（630,550）
    MoveTo 188,733
    Delay 1000
    xx=2
    While xx > 0
        IfColor 311,576,397908,2
            MoveTo 630,550
            Delay 2*dltime
            LeftClick 1
            Delay dltime
            xx=-2
        Else 
            Delay 1000
            LeftClick 1
            Delay dltime
        EndIf 
        Gosub 重新进入
    EndWhile 
    // 退一
Return 去城门模块