部分代码:
.版本 2
.支持库 spec
.支持库 shell
.程序集 窗口程序集_启动窗口
.子程序 _按钮_输入_被单击
.局部变量 登录句柄, 整数型
.局部变量 运行VBS, 文本型
运行 (取文本注册项 (4, “SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1\TypePath”, “”), 假, )
延迟 (500)
登录句柄 = 窗口_取句柄_模糊 (“QQ”, “TXGuiFoundation”)
.如果真 (登录句柄 = 0)
信息框 (“获取QQ登录窗口失败 ”, 0, , )
返回 ()
.如果真结束
鼠标_消息 (登录句柄, 314, 279)
超级延迟 (1000)
窗口激活 (登录句柄)
窗口_置焦点 (登录句柄)
运行VBS = 子文本替换 (#常量1, “目录”, 取文本注册项 (4, “SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1\TypePath”, “”), , , 真)
运行VBS = 子文本替换 (运行VBS, “帐号”, 编辑框1.内容, , , 真)
运行VBS = 子文本替换 (运行VBS, “密码”, 编辑框2.内容, , , 真)
写到文件 (取临时目录 () + “q1.vbs”, 到字节集 (运行VBS))
执行 (4, 取临时目录 () + “q1.vbs”, , , )