模拟登录QQ易语言源码

.版本 2
.支持库 spec
.支持库 eAPI

.程序集 窗口程序集_启动窗口
.程序集变量 user, 文本型
.程序集变量 pw, 文本型
.程序集变量 ghwnd, 整数型

.子程序 _按钮1_被单击
.局部变量 i, 整数型

调试输出 (取QQ登录窗口句柄 ())
.如果真 (取QQ登录窗口句柄 () ＝ 0)
    ghwnd ＝ 取QQ登录窗口句柄 ()
    标题 ＝ “没有找到登录窗口”
    返回 ()
.如果真结束
ghwnd ＝ 取QQ登录窗口句柄 ()
标题 ＝ “登录中”
user ＝ 编辑框1.内容
pw ＝ 编辑框2.内容
窗口_置透明度 (ghwnd, 255, , 假)
窗口_置焦点 (ghwnd)
鼠标_消息 (ghwnd, 237, 185, 1)
模拟按键 (#Ctrl键, #A键, )
键盘_单击 (8)
键盘_模拟输入 (user)
模拟按键 (#Tab键, , )
延时 (500)
键盘_模拟输入 (pw)
模拟按键 (#回车键, , )
标题 ＝ “完毕”

.子程序 取QQ登录窗口句柄, 整数型
.局部变量 局_句柄, 整数型
.局部变量 k_d, 整数型
.局部变量 g_d, 整数型

局_句柄 ＝ 窗口_取句柄 (, , “TXGuiFoundation”, “QQ”)
.如果真 (局_句柄 ＝ 0)
    返回 (0)
.如果真结束
窗口_取控件大小 (局_句柄, k_d, g_d)
.如果真 (k_d ＝ 495 且 g_d ＝ 470)
    返回 (局_句柄)
.如果真结束
返回 (0)

@applek