QQ模拟登录易语言源码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 对象, 对象
.局部变量 句柄, 整数型
.局部变量 坐标值, 整数型

对象.创建 (“WScript.Shell”, )
对象.方法 (“Run”, 对象.读文本属性 (“RegRead”, “HKEY_CURRENT_USER\Software\Tencent\bugReport\QQUrlMgr\InstallDir”) ＋ “QQ.exe”)  ' 打开QQ
.判断循环首 (对象.读逻辑属性 (“AppActivate”, “QQ”) ＝ 假)  ' 激活窗口
    处理事件 ()
.判断循环尾 ()
延迟 (1000)
句柄 ＝ FindWindowExA (0, 0, “TXGuiFoundation”, “QQ”)  ' 取句柄
调试输出 (句柄)
SetForegroundWindow (句柄)  ' 置焦点
坐标值 ＝ 278 ＋ 278 × 65536
PostMessageA (句柄, 513, 1, 坐标值)  ' 左键按下
PostMessageA (句柄, 514, 0, 坐标值)  ' 左键放开
对象.对象型方法 (“SendKeys”, “^A”)
对象.对象型方法 (“SendKeys”, “{BACKSPACE}”)
对象.对象型方法 (“SendKeys”, 编辑框1.内容)
延迟 (500)
对象.对象型方法 (“SendKeys”, “{TAB}”)
延迟 (500)
对象.对象型方法 (“SendKeys”, “^A”)
对象.对象型方法 (“SendKeys”, “{BACKSPACE}”)
延迟 (500)
对象.对象型方法 (“SendKeys”, 编辑框2.内容)  ' 密码无特殊符号情况下，如果有特殊符号自行替换，参考：http://blog.sina.com.cn/s/blog_670b6d8801015c4a.html
延迟 (500)
.如果真 (选择框1.选中)
    对象.对象型方法 (“SendKeys”, “{TAB}”)
    延迟 (500)
    对象.对象型方法 (“SendKeys”, “{TAB}”)
    对象.对象型方法 (“SendKeys”, “{ }”)
    延迟 (200)
.如果真结束
对象.对象型方法 (“SendKeys”, “{ENTER}”)
对象.清除 ()

@咪兔