| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| vbs | 对象 | |
| 大漠 | 对象 | |
如果真 (文件是否存在 (取运行目录 () ＋
“\dm_13.dll”) ＝
假) 
如果 (写到文件 (取运行目录 () ＋
“\dm_13.dll”,
#大漠 ) ＝
假) 信息框 (“初始化失败！请联系作者！”, 16, ,
)
结束 ()
置文件属性 (取运行目录 () ＋
“\dm_13.dll”,
#隐藏文件 ) 
运行 (“regsvr32 dm_13.dll -s”, 真,
) 如果真 (大漠.
创建 (“dm.dmsoft”,
) ＝
假) 信息框 (“创建对象失败！检查是否注册成功！”, 0, ,
)结束 ()调试输出 (大漠.
文本方法 (“ver”,
))
vbs.
创建 (“WScript.Shell”,
)QQ路径 ＝ vbs.
读文本属性 (“RegRead”,
“HKEY_CURRENT_USER\Software\Tencent\bugReport\QQUrlMgr\InstallDir”) QQ路径 ＝ QQ路径 ＋
“\QQScLauncher.exe” vbs.
方法 (“Exec”, QQ路径
) | 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 句柄 | 整数型 | | |
| 坐标值 | 整数型 | | |
| 输入内容 | 文本型 | | |
句柄 ＝
获取窗口句柄 () 调试输出 (句柄
)坐标值 ＝ 198 ＋ 274 × 65536
调试输出 (坐标值
)SetForegroundWindow (句柄
) PostMessage (句柄, 513, 1, 坐标值
) PostMessage (句柄, 514, 0, 坐标值
) 延时 (1000
)模拟按键 ( #Ctrl键, #A键, )模拟按键 ( #退格键, ,
)输入内容 ＝ 编辑框_帐号.内容
输入内容 ＝
子文本替换 (输入内容,
“+”,
“{+}”, , ,
真)输入内容 ＝
子文本替换 (输入内容,
“^”,
“{^}”, , ,
真)输入内容 ＝
子文本替换 (输入内容,
“%”,
“{%}”, , ,
真)输入内容 ＝
子文本替换 (输入内容,
“~”,
“{~}”, , ,
真)vbs.
方法 (“SendKeys”, 输入内容
)模拟按键 ( #Tab键, ,
)延时 (1000
)模拟按键 ( #Ctrl键, #A键, )模拟按键 ( #退格键, ,
)输入内容 ＝ 编辑框_密码.内容
输入内容 ＝
子文本替换 (输入内容,
“+”,
“{+}”, , ,
真)输入内容 ＝
子文本替换 (输入内容,
“^”,
“{^}”, , ,
真)输入内容 ＝
子文本替换 (输入内容,
“%”,
“{%}”, , ,
真)输入内容 ＝
子文本替换 (输入内容,
“~”,
“{~}”, , ,
真)vbs.
方法 (“SendKeys”, 输入内容
)延时 (1000
)模拟按键 ( #回车键, ,
)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 窗口句柄 | 整数型 | | |
| 宽度z | 整数型 | | |
| 高度z | 整数型 | | |
窗口句柄 ＝ 大漠.
数值方法 (“FindWindow”,
“TXGuiFoundation”,
“QQ”) 如果真 (窗口句柄 ＝ 0
)返回 (0
)大漠.数值方法 (“GetClientSize”, 窗口句柄, 宽度z, 高度z)
调试输出 (宽度z, 高度z
)如果真 (宽度z ＝ 495
且 高度z ＝ 470
) 返回 (窗口句柄
)返回 (0)运行 (“regsvr32 dm_13.dll /u -s”, 假,
) 延时 (200
)删除文件 (取运行目录 () ＋
“\dm_13.dll”)
API 对象方法 大漠模拟QQ登录.zip
(754.85 KB, 下载次数: 550)
如果不是后台，那么精易可以做到