大漠+API+com对象三种方式实现模拟QQ登陆

祁辛 · 发表于 2015-8-22 17:25:24

其实吧，我之前也研究了好久，没成功。看了论坛前辈的例子发现需要先激活目标窗口才行，
然后这就学习了，基本会了，分享出来，希望能帮到将来学习大漠 API 还有 com 对象类型的朋友可以借鉴下

当然单用API一种也能实现，之所以用了这三种是为了学习~.....这就是一个例子大牛们可以飘过了；

当然精易论坛模块一样能实现，这些如果懒得写这些 ~

我写了注解把我自己理解的都写进去了，希望对你们来说看的懂

我也是在自学这些东西，每天学一点，总是有点进步。如果不学那么就原地踏步！

如果你觉得对你有帮助你就点个赞~

API 对象方法大漠模拟QQ登录.zip (754.85 KB, 下载次数: 550)

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
vbs	对象
大漠	对象

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

变量名	类型	静态	数组	备注
QQ路径	文本型

如果真 (文件是否存在 (取运行目录 () ＋ “\dm_13.dll”) ＝假) ' 检查大漠dll 是否存在

如果 (写到文件 (取运行目录 () ＋ “\dm_13.dll”, #大漠 ) ＝假) ' 如果不存在就写出大漠dll

信息框 (“初始化失败！请联系作者！”, 16, , )

结束 ()

置文件属性 (取运行目录 () ＋ “\dm_13.dll”, #隐藏文件 ) ' 把大漠dll属性设置成隐藏文件，以免误删

运行 (“regsvr32 dm_13.dll -s”, 真, ) ' 注册大漠dll 不注册无法调用，这个是后台注册的看不到去掉-s 就能看到

如果真 (大漠.创建 (“dm.dmsoft”, ) ＝假) ' 如果大漠对象创建失败结束程序

信息框 (“创建对象失败！检查是否注册成功！”, 0, , )

结束 ()

调试输出 (大漠.文本方法 (“ver”, ))
vbs.创建 (“WScript.Shell”, )
QQ路径＝ vbs.读文本属性 (“RegRead”, “HKEY_CURRENT_USER\Software\Tencent\bugReport\QQUrlMgr\InstallDir”)  ' 获取QQ的安装路径
QQ路径＝ QQ路径＋ “\QQScLauncher.exe”  ' 用安装的路径加上QQ的主程序文件名
vbs.方法 (“Exec”, QQ路径)  ' 用运行命令打开QQ

子程序名	返回值类型	公开	备注
_按钮_模拟鼠标_被单击

变量名	类型	静态	数组	备注
句柄	整数型
坐标值	整数型
输入内容	文本型

句柄＝获取窗口句柄 ()  ' 获取指定的窗口句柄
调试输出 (句柄)
坐标值＝ 198 ＋ 274 × 65536
调试输出 (坐标值)
SetForegroundWindow (句柄)  ' 激活QQ窗口
PostMessage (句柄, 513, 1, 坐标值)  ' 参数2的513是按下鼠标左键值参数3的1是状态码坐标值＝ X ＋ Y × 65536
PostMessage (句柄, 514, 0, 坐标值)  ' 参数2的514是弹起鼠标左键值参数3的0是状态码坐标值＝ X ＋ Y × 65536
延时 (1000)
模拟按键 ( #Ctrl键, #A键, )
模拟按键 ( #退格键, , )
输入内容＝编辑框_帐号.内容
输入内容＝子文本替换 (输入内容, “+”, “{+}”, , , 真)
输入内容＝子文本替换 (输入内容, “^”, “{^}”, , , 真)
输入内容＝子文本替换 (输入内容, “%”, “{%}”, , , 真)
输入内容＝子文本替换 (输入内容, “~”, “{~}”, , , 真)
vbs.方法 (“SendKeys”, 输入内容)
模拟按键 ( #Tab键, , )
延时 (1000)
模拟按键 ( #Ctrl键, #A键, )
模拟按键 ( #退格键, , )
输入内容＝编辑框_密码.内容
输入内容＝子文本替换 (输入内容, “+”, “{+}”, , , 真)
输入内容＝子文本替换 (输入内容, “^”, “{^}”, , , 真)
输入内容＝子文本替换 (输入内容, “%”, “{%}”, , , 真)
输入内容＝子文本替换 (输入内容, “~”, “{~}”, , , 真)
vbs.方法 (“SendKeys”, 输入内容)
延时 (1000)
模拟按键 ( #回车键, , )

子程序名	返回值类型	公开	备注
获取窗口句柄	整数型

变量名	类型	静态	数组	备注
窗口句柄	整数型
宽度z	整数型
高度z	整数型

窗口句柄＝大漠.数值方法 (“FindWindow”, “TXGuiFoundation”, “QQ”) ' 大漠方法获取QQ的窗口句柄，用API一样之所以用大漠是~装下B

如果真 (窗口句柄＝ 0)

返回 (0)
大漠.数值方法 (“GetClientSize”, 窗口句柄, 宽度z, 高度z) ' 用大漠方法获取窗口的大小，高度和宽度，主要是用来判断窗口是否真的存在
调试输出 (宽度z, 高度z)

如果真 (宽度z ＝ 495 且高度z ＝ 470) ' 如果窗口的宽度和高度不等于给定值那么很可能我们获取的窗口句柄是错误的返回0 如果是相等的返回真实的句柄

返回 (窗口句柄)
返回 (0)

子程序名	返回值类型	公开	备注
__启动窗口_将被销毁

运行 (“regsvr32 dm_13.dll /u -s”, 假, ) ' 程序即将关闭卸载大漠dll
延时 (200)
删除文件 (取运行目录 () ＋ “\dm_13.dll”)

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br />
.支持库 spec<br />
.支持库 eAPI<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 vbs, 对象<br />
.程序集变量 大漠, 对象<br />
<br />
.子程序 __启动窗口_创建完毕<br />
.局部变量 QQ路径, 文本型<br />
<br />
.如果真 (文件是否存在 (取运行目录 () ＋ “\dm_13.dll”) ＝ 假)  ' 检查大漠dll 是否存在<br />
    .如果 (写到文件 (取运行目录 () ＋ “\dm_13.dll”, #大漠) ＝ 假)  ' 如果不存在就写出大漠dll<br />
        信息框 (“初始化失败！请联系作者！”, 16, , )<br />
        结束 ()<br />
    .否则<br />
        置文件属性 (取运行目录 () ＋ “\dm_13.dll”, #隐藏文件)  ' 把大漠dll属性设置成隐藏文件，以免误删<br />
    .如果结束<br />
<br />
.如果真结束<br />
<br />
运行 (“regsvr32 dm_13.dll -s”, 真, )  ' 注册大漠dll 不注册无法调用，这个是后台注册的看不到 去掉-s 就能看到<br />
.如果真 (大漠.创建 (“dm.dmsoft”, ) ＝ 假)  ' 如果大漠对象创建失败结束程序<br />
    信息框 (“创建对象失败！检查是否注册成功！”, 0, , )<br />
    结束 ()<br />
.如果真结束<br />
<br />
调试输出 (大漠.文本方法 (“ver”, ))<br />
vbs.创建 (“WScript.Shell”, )<br />
QQ路径 ＝ vbs.读文本属性 (“RegRead”, “HKEY_CURRENT_USER\Software\Tencent\bugReport\QQUrlMgr\InstallDir”)  ' 获取QQ的安装路径<br />
QQ路径 ＝ QQ路径 ＋ “\QQScLauncher.exe”  ' 用安装的路径加上QQ的主程序文件名<br />
vbs.方法 (“Exec”, QQ路径)  ' 用运行命令打开QQ<br />
<br />
<br />
.子程序 _按钮_模拟鼠标_被单击<br />
.局部变量 句柄, 整数型<br />
.局部变量 坐标值, 整数型<br />
.局部变量 输入内容, 文本型<br />
<br />
句柄 ＝ 获取窗口句柄 ()  ' 获取指定的窗口句柄<br />
调试输出 (句柄)<br />
坐标值 ＝ 198 ＋ 274 × 65536<br />
调试输出 (坐标值)<br />
SetForegroundWindow (句柄)  ' 激活QQ窗口<br />
PostMessage (句柄, 513, 1, 坐标值)  ' 参数2的513是按下鼠标左键值参数3的1是状态码 坐标值 ＝ X ＋ Y × 65536<br />
PostMessage (句柄, 514, 0, 坐标值)  ' 参数2的514是弹起鼠标左键值参数3的0是状态码 坐标值 ＝ X ＋ Y × 65536<br />
延时 (1000)<br />
模拟按键 (#Ctrl键, #A键, )<br />
模拟按键 (#退格键, , )<br />
<br />
输入内容 ＝ 编辑框_帐号.内容<br />
输入内容 ＝ 子文本替换 (输入内容, “+”, “{+}”, , , 真)<br />
输入内容 ＝ 子文本替换 (输入内容, “^”, “{^}”, , , 真)<br />
输入内容 ＝ 子文本替换 (输入内容, “%”, “{%}”, , , 真)<br />
输入内容 ＝ 子文本替换 (输入内容, “~”, “{~}”, , , 真)<br />
vbs.方法 (“SendKeys”, 输入内容)<br />
模拟按键 (#Tab键, , )<br />
延时 (1000)<br />
模拟按键 (#Ctrl键, #A键, )<br />
模拟按键 (#退格键, , )<br />
输入内容 ＝ 编辑框_密码.内容<br />
输入内容 ＝ 子文本替换 (输入内容, “+”, “{+}”, , , 真)<br />
输入内容 ＝ 子文本替换 (输入内容, “^”, “{^}”, , , 真)<br />
输入内容 ＝ 子文本替换 (输入内容, “%”, “{%}”, , , 真)<br />
输入内容 ＝ 子文本替换 (输入内容, “~”, “{~}”, , , 真)<br />
vbs.方法 (“SendKeys”, 输入内容)<br />
延时 (1000)<br />
模拟按键 (#回车键, , )<br />
<br />
<br />
.子程序 获取窗口句柄, 整数型<br />
.局部变量 窗口句柄, 整数型<br />
.局部变量 宽度z, 整数型<br />
.局部变量 高度z, 整数型<br />
<br />
窗口句柄 ＝ 大漠.数值方法 (“FindWindow”, “TXGuiFoundation”, “QQ”)  ' 大漠方法获取QQ的窗口句柄，用API一样之所以用大漠是~装下B<br />
.如果真 (窗口句柄 ＝ 0)<br />
    返回 (0)<br />
.如果真结束<br />
大漠.数值方法 (“GetClientSize”, 窗口句柄, 宽度z, 高度z)  ' 用大漠方法获取窗口的大小 ，高度和宽度，主要是用来判断 窗口是否真的存在<br />
调试输出 (宽度z, 高度z)<br />
.如果真 (宽度z ＝ 495 且 高度z ＝ 470)  ' 如果窗口的宽度和高度 不等于给定值 那么很可能我们获取的窗口句柄是错误的 返回0 如果是相等的 返回真实的句柄<br />
    返回 (窗口句柄)<br />
.如果真结束<br />
返回 (0)<br />
<br />
<br />
.子程序 __启动窗口_将被销毁<br />
<br />
运行 (“regsvr32 dm_13.dll /u -s”, 假, )  ' 程序即将关闭 卸载大漠dll<br />
延时 (200)<br />
删除文件 (取运行目录 () ＋ “\dm_13.dll”)