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

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

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

.版本 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)
结束 ()