QQ注册验证例程

sv110123 · 发表于 2010-10-17 17:24:19

本帖最后由 sv110123 于 2010-10-17 17:25 编辑

同样是验证的，不过这次采用的是QQ验证
完整代码如下，
[e]
.版本 2
.支持库 xplib
.程序集窗口程序集1
.程序集变量 QQ, 腾讯QQ类
.程序集变量号码组, 文本型, , "0"
.子程序 __启动窗口_创建完毕
.局部变量号码数, 整数型
.局部变量计次, 整数型
XP风格 (#蓝色风格)
号码数＝ QQ.取QQ号码 (号码组)
.如果真 (号码数＝ 0)
信息框 (“请先登陆您的QQ以便验证身份!”, 0, “提示:”)
_按钮登陆_被单击 ()
.如果真结束
.计次循环首 (号码数, 计次)
组合框.加入项目 (号码组 [计次], )
.计次循环尾 ()
组合框.现行选中项＝ 0

.子程序 _按钮验证_被单击
.如果真 (注册码验证 (编辑框.内容, 窗口, “简单辅助注册”, 组合框.取项目文本 (组合框.现行选中项)) ＝假)
信息框 (“注册失败!请确认注册码正确后,重新尝试!”, 0, “小烦提醒您:”)
.如果真结束

.子程序 _按钮注册_被单击
' 把QQ号发往指定邮箱!
' 连接发信服务器 (“stmp.163.com”, , , , )

.子程序 _按钮登陆_被单击
运行 (QQ.取QQ路径 (), 假, )

.子程序 _按钮访问官网_被单击
执行文件 (“explorer.exe”, “http://www.3600gz.cn”)

.子程序 _编辑框_按下某键, 逻辑型
.参数键代码, 整数型
.参数功能键状态, 整数型
.如果真 (键代码＝ #回车键)
_按钮验证_被单击 ()
.如果真结束

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型
QQ.强行聊天 (“648977173”, “联系注册”)
[/e]

程序需要用到一个的模块，我会一起打包到附件里的

QQ注册验证例程+模块.zip (195.52 KB, 下载次数: 116)