一键启动管家婆工具 – 管家婆一键进入小软件

因为自己每天需要用到管家婆系统，每次运行都要点几次下一步 登陆进去后还要点击一下窗口化  趁着无聊 写了一个一键自动化进入的工具，有需要的朋友拿去用吧  不用感觉！

下附易语言源码，用了精益模块

.版本 2

.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

.局部变量 二_句柄, 整数型

二_句柄 ＝ 窗口_取句柄 (, , “TfrmMainClient”, )

.如果真 (二_句柄 ＝ 0)

    运行 (取运行目录 () ＋ “\GraspSin.exe”, 假, )

    测试 ()

.如果真结束

提示框 (“管家婆已启动”, , “提示”, , 1000)

返回 (0)  ‘ 可以根据您的需要返回任意数值

.子程序 测试

.局部变量 二_句柄, 整数型

.局部变量 时间, 整数型

.局部变量 执行, 逻辑型

.局部变量 次数, 整数型

.局部变量 zt2, 逻辑型

.局部变量 执行2, 逻辑型

时间 ＝ 100

次数 ＝ 0

二_句柄 ＝ 程序_等待窗口出现 (, “登录向导”, , 时间, )

.判断循环首 (二_句柄 ＝ -1 且 次数 ＜ 50)

    窗口_置状态 (二_句柄, 1)

    时间 ＝ 100

    二_句柄 ＝ 程序_等待窗口出现 (, “登录向导”, , 时间, )

    调试输出 (二_句柄)

    次数 ＝ 次数 ＋ 1

.判断循环尾 ()

.如果真 (次数 ≥ 50)

提示框 (“请将本程序放置管家婆安装文件夹内使用”, , “提示”, , )

    结束 ()

.如果真结束

调试输出 (“登录向导”)

次数 ＝ 0

执行 ＝ 程序_等待窗口消失 (“登录向导”, , 时间)

.判断循环首 (执行 ≠ 真)

    次数 ＝ 次数 ＋ 1

    zt2 ＝ 窗口_置状态 (二_句柄, 1)

    窗口_总在最前 (二_句柄, 真)

    时间 ＝ 100

    执行 ＝ 程序_等待窗口消失 (“登录向导”, , 时间)

    调试输出 (执行)

    调试输出 (次数)

    调试输出 (窗口_取顶端窗口句柄 ())

    键盘_单击 (13, )

.判断循环尾 ()

执行2 ＝ 程序_等待窗口消失 (“用户密码输入”, , 时间)

.判断循环首 (执行2 ≠ 真)

次数 ＝ 次数 ＋ 1

    zt2 ＝ 窗口_置状态 (二_句柄, 1)

    窗口_总在最前 (二_句柄, 真)

    时间 ＝ 100

    执行2 ＝ 程序_等待窗口消失 (“用户密码输入”, , 时间)

    调试输出 (执行)

    调试输出 (次数)

    调试输出 (窗口_取顶端窗口句柄 ())

    键盘_单击 (13, )

.判断循环尾 ()

二_句柄 ＝ 程序_等待窗口出现 (, , “TfrmMainClient”, 3000, )

调试输出 (“登录成功”)

调试输出 (二_句柄)

窗口_置状态 (二_句柄, 4)

延时 (300)

窗口_置状态 (二_句柄, 4)

延时 (300)

窗口_置状态 (二_句柄, 4)

延时 (300)

窗口_置状态 (二_句柄, 4)

结束 ()