.版本 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.内容) ' 密码无特殊符号情况下，如果有特殊符号自行替换，参考：//blog.sina.com.cn/s/blog_670b6d8801015c4a.html 延迟 (500) .如果真 (选择框1.选中) 对象.对象型方法 (“SendKeys”, “{TAB}”) 延迟 (500) 对象.对象型方法 (“SendKeys”, “{TAB}”) 对象.对象型方法 (“SendKeys”, “{ }”) 延迟 (200) .如果真结束 对象.对象型方法 (“SendKeys”, “{ENTER}”) 对象.清除 ()