.版本 2 .支持库 spec .子程序 初始化 图片框1.图片 ＝ l.获取二维码 () 时钟1.时钟周期 ＝ 2000 .子程序 _时钟1_周期事件 .局部变量 数据, 文本型 .局部变量 状态, 整数型 状态 ＝ l.获取状态 (数据) 调试输出 (数据) .判断开始 (状态 ＝ 2) 调试输出 (“登录成功”, l.Get_QQ ()) 调试输出 (“Cookies”, l.Get_cookies ()) 调试输出 (“SID”, l.Get_Sid ()) 时钟1.时钟周期 ＝ 0 .默认 .判断结束 .子程序 _图片框1_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 图片框1.图片 ＝ l.获取二维码 () 时钟1.时钟周期 ＝ 2000 .子程序 _按钮1_被单击 .局部变量 QQ, 文本型 .局部变量 CK, 文本型 .局部变量 SID, 文本型 本机获取 (QQ, CK, SID) 调试输出 (CK, SID) .子程序 本机获取, , 公开 .参数 _qq, 文本型 .参数 _cookies, 文本型 .参数 _sid, 文本型 .局部变量 返回的数据, 文本型 .局部变量 正则, 正则表达式类 .局部变量 clientkey, 文本型 .局部变量 返回协议头, 文本型 .局部变量 网页地址, 文本型 .局部变量 i, 整数型 .局部变量 本机QQ, 文本型, , "0" 返回的数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://localhost.ptlogin2.qq.com:4300/pt_get_uins?callback=ptui_getuins_CB&r=0.7478418888058513&pt_local_tk=0.3858416392467916”, , , “pt_local_token=0.3858416392467916;”, _cookies, , , , , , , )) 正则.创建 (“account” ＋ #引号 ＋ “:” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “,” ＋ #引号 ＋ “client_type” ＋ #引号 ＋ “:.*?,” ＋ #引号 ＋ “face_index” ＋ #引号 ＋ “:.*?,” ＋ #引号 ＋ “gender” ＋ #引号 ＋ “:.*?,” ＋ #引号 ＋ “nickname” ＋ #引号 ＋ “:” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “,” ＋ #引号 ＋ “uin” ＋ #引号 ＋ “:” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “,” ＋ #引号 ＋ “uin”, 返回的数据) .计次循环首 (正则.取匹配数量 (), i) 加入成员 (本机QQ, 正则.取子匹配文本 (i, 1)) .计次循环尾 () .如果真 (取数组成员数 (本机QQ) ＞ 0) _qq ＝ 本机QQ [1] 网页_访问_对象 (“http://localhost.ptlogin2.qq.com:4300/pt_get_st?clientuin=” ＋ _qq ＋ “&callback=ptui_getst_CB&r=0.15739138866774738&pt_local_tk=0.3858416392467916”, , , “pt_local_token=0.3858416392467916;”, _cookies) clientkey ＝ 网页_取单条Cookie (_cookies, “clientkey”, 真) 网页_访问_对象 (“https://ssl.ptlogin2.qq.com/qqmail?pt_clientver=5457&pt_src=1&keyindex=9&Fun=clientread&ADUIN=” ＋ _qq ＋ “&ADSESSION=iii&ADTAG=jjj&clientuin=” ＋ _qq ＋ “&clientkey=” ＋ clientkey ＋ “&ptlang=2052&httptype=0&ADUIN=” ＋ _qq ＋ “&ADSESSION=1534026188&ADTAG=CLIENT.QQ.5485_Mysrv.0&ADPUBNO=26601”, , , _cookies, _cookies, , 返回协议头, , 真, , , , , , , , ) 网页地址 ＝ 文本_取出中间文本 (返回协议头, “Location: ”, #换行符) 网页_访问_对象 (网页地址, , , _cookies, _cookies, , 返回协议头, , 真) 网页地址 ＝ 文本_取出中间文本 (返回协议头, “Location: ”, #换行符) 网页_访问_对象 (网页地址, , , _cookies, _cookies, , 返回协议头, , 真) _sid ＝ 文本_取出中间文本 (返回协议头, “sid=”, “&”) .如果真结束 .子程序 _按钮2_被单击 .局部变量 账号, 文本型 .局部变量 密码, 文本型 账号 ＝ 编辑框1.内容 密码 ＝ 编辑框2.内容 QQ邮箱账号密码登陆 (账号, 密码) .子程序 QQ邮箱账号密码登陆 .参数 账号, 文本型 .参数 密码, 文本型 .局部变量 cookies, 文本型 .局部变量 login_sig, 文本型 .局部变量 R, 文本型 .局部变量 URL, 文本型 .局部变量 str, 文本型 .局部变量 ptvfsession, 文本型 .局部变量 PTUI文本, 文本型 .局部变量 密匙P, 文本型 .局部变量 js, 类_脚本组件 .局部变量 数据2, 文本型 .局部变量 verifycode数据, 文本型 .局部变量 临时数组文本, 文本型, , "0" .局部变量 vcode_v1数据, 文本型 .局部变量 randsalt数据, 文本型 .局部变量 返回的数据, 文本型 .局部变量 登陆数据, 文本型 .局部变量 最终登陆数据, 文本型 .局部变量 返回协议头, 文本型 .局部变量 SID, 文本型 网页_访问_对象 (“https://xui.ptlogin2.qq.com/cgi-bin/xlogin?target=self&appid=522005705&daid=4&s_url=https://mail.qq.com/cgi-bin/readtemplate?check=false%26t=loginpage_new_jump%26vt=passport%26vm=wpt%26ft=loginpage%26target=&style=25&low_login=1&proxy_url=https://mail.qq.com/proxy.html&need_qr=0&hide_border=1&border_radius=0&self_regurl=http://zc.qq.com/chs/index.html?type=1&app_id=11005?t=regist&pt_feedback_link=http://support.qq.com/discuss/350_1.shtml&css=https://res.mail.qq.com/zh_CN/htmledition/style/ptlogin_input_for_xmail4366af.css”, , , cookies, cookies, , , , , , , , , , , , ) login_sig ＝ 网页_取单条Cookie (cookies, “pt_login_sig”, 真) .如果真 (取文本长度 (账号) ＞ 10) 账号 ＝ “@” ＋ 账号 .如果真结束 R ＝ 生成时间戳 () URL ＝ “https://ssl.ptlogin2.qq.com/check?regmaster=&pt_tea=2&pt_vcode=1&uin=” ＋ 账号 ＋ “&appid=522005705&js_ver=10291&js_type=1&login_sig=” ＋ login_sig ＋ “&u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Freadtemplate%3Fcheck%3Dfalse%26t%3Dloginpage_new_jump%26vt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D&r=” ＋ R ＋ “&pt_uistyle=25” str ＝ 到文本 (网页_访问_对象 (URL, , , cookies, cookies, )) ptvfsession ＝ 网页_取单条Cookie (cookies, “ptvfsession”, 真) .如果真 (ptvfsession ＝ “”) 信息框 (“非常用IP或者滑块。 账号无法在本机登陆”, 0, , ) 返回 () .如果真结束 PTUI文本 ＝ 文本_取出中间文本 (str, “ptui_checkVC(”, “)”) 临时数组文本 ＝ 分割文本 (PTUI文本, “,”, ) vcode_v1数据 ＝ 文本_取出中间文本 (临时数组文本 [1], “'”, “'”) verifycode数据 ＝ 文本_取出中间文本 (临时数组文本 [2], “'”, “'”) 数据2 ＝ 文本_取出中间文本 (临时数组文本 [3], “'”, “'”) randsalt数据 ＝ 文本_取出中间文本 (临时数组文本 [5], “'”, “'”) js.执行 (#JS加密) 密匙P ＝ js.计算表达式 (“getpass('” ＋ 密码 ＋ “','” ＋ 数据2 ＋ “','” ＋ verifycode数据 ＋ “')”) URL ＝ “https://ssl.ptlogin2.qq.com/login?u=” ＋ 账号 ＋ “&verifycode=” ＋ verifycode数据 ＋ “&pt_vcode_v1=” ＋ vcode_v1数据 ＋ “&pt_verifysession_v1=” ＋ ptvfsession ＋ “&p=” ＋ 密匙P ＋ “&pt_randsalt=” ＋ randsalt数据 ＋ “&u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Freadtemplate%3Fcheck%3Dfalse%26t%3Dloginpage_new_jump%26vt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D%26account%3D1301964694&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=3-22-” ＋ 时间_取现行时间戳 () ＋ “&js_ver=10291&js_type=1&login_sig=” ＋ login_sig ＋ “&pt_uistyle=25&aid=522005705&daid=4” 返回的数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (URL, , , cookies, cookies, #协议头 ＋ cookies, , , , , , , , , , , )) 调试输出 (返回的数据) .如果真 (寻找文本 (返回的数据, “登录成功！”, , 假) ≠ -1) URL ＝ 文本_取出中间文本 (返回的数据, “https://ssl.ptlogin2.mail.qq.com”, “&pt_3rd_aid=0”) URL ＝ “https://ssl.ptlogin2.mail.qq.com” ＋ URL ＋ “&pt_3rd_aid=0” 登陆数据 ＝ 到文本 (网页_访问_对象 (URL, , , cookies, cookies, , , , 真)) URL ＝ “https://mail.qq.com/cgi-bin/login?vt=passport&vm=wpt&ft=loginpage&target=” 最终登陆数据 ＝ 到文本 (网页_访问_对象 (URL, , , cookies, cookies, , 返回协议头, , 真, , , , , , , , )) SID ＝ 文本_取出中间文本 (返回协议头, “sid=”, “&”) 调试输出 (cookies, SID) .如果真结束 .子程序 生成时间戳, 文本型 .局部变量 对象, 对象 .局部变量 x, 文本型 对象.创建 (“ScriptControl”, ) 对象.写属性 (“Language”, “JScript”) 对象.数值方法 (“ExecuteStatement”, “function time(){return Math.random()}”) .判断循环首 (取文本长度 (x) ≠ 17) x ＝ 对象.通用方法 (“Run”, “time”, ).取文本 () .如果真 (取文本左边 (x, 1) ≠ “0”) x ＝ “0” ＋ x .如果真结束 .判断循环尾 () 对象.清除 () 返回 (x)