因为自己每天需要用到管家婆系统，每次运行都要点几次下一步 登陆进去后还要点击一下窗口化 趁着无聊 写了一个一键自动化进入的工具，有需要的朋友拿去用吧 不用感觉！
下附易语言源码，用了精益模块
.版本 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)
结束 ()
软件下载链接：
https://wwsa.lanzouj.com/iOxOD1jg7zxc
|
[复制链接]
发表于 2023-12-31 11:13
