.版本 2 .支持库 iext .支持库 spec .程序集 窗口程序集1 .程序集变量 图片, 字节集 .程序集变量 收到cookie, 文本型 .程序集变量 cookie, 文本型 .程序集变量 二次登录地址, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 二次收到cookie, 文本型 .程序集变量 webqq, 文本型 .程序集变量 psessionid, 文本型 .子程序 _按钮1_被单击 子程序_获取二维码 () .子程序 __启动窗口_创建完毕 子程序_获取二维码 () .子程序 子程序_获取二维码 图片 ＝ 网页访问 (“https://ssl.ptlogin2.qq.com/ptqrshow?appid=501004106&e=0&l=M&s=5&d=72&v=4&t=0.” ＋ 文本_取随机数字 (15), , , , cookie, ) ' 先充从网页上获取二维码图片。我们需要转换下，二维码图片我们的图片框不支持显示。下面是转换的过程 图片_转换 (图片, 2, 取运行目录 () ＋ “/tp.jpg”, 图片框1.图片) ' 转换图片 图片框1.图片 ＝ 读入文件 (取运行目录 () ＋ “/tp.jpg”) ' 转换完成 .子程序 子程序_开始登录 .局部变量 结果, 文本型 ' 第一次登录 结果 ＝ 网页访问u (“https://ssl.ptlogin2.qq.com/ptqrlogin?webqq_type=10&remember_uin=1&login2qq=1&aid=501004106&u1=http%3A%2F%2Fw.qq.com%2Fproxy.html%3Flogin2qq%3D1%26webqq_type%3D10&ptredirect=0&ptlang=2052&daid=164&from_ui=1&pttype=1&dumy=&fp=loginerroralert&action=0-2-337999&mibao_css=m_webqq&t=undefined&g=1&js_type=0&js_ver=10145&login_sig=&pt_randsalt=0”, , , cookie, 收到cookie) 二次登录地址 ＝ 文本_取出中间文本 (结果, “'0','0','”, “','0','”) webqq ＝ 文本_取右边 (收到cookie, “ptwebqq=”, , ) .判断开始 (倒找文本 (结果, “登录成功”, , 假) ≠ -1) 透明标签_二维码状态.标题 ＝ “二维码状态：登录成功” 时钟1.时钟周期 ＝ 0 ' 这里是第一次登录成功后，不算是真正的登录成功。还要在进行一次登录，何必得到的cookie才能用 结果 ＝ 网页访问u (二次登录地址, , , 收到cookie, 二次收到cookie, , , 真) cookie ＝ 网页_Cookie合并更新 (收到cookie, 二次收到cookie) ' ---------------------------------这里何必得到的cookie才是真正能用的 结果 ＝ 网页访问u (“http://d1.web2.qq.com/channel/login2”, 1, “r=%7B%22ptwebqq%22%3A%22” ＋ webqq ＋ “%22%2C%22clientid%22%3A53999199%2C%22psessionid%22%3A%22%22%2C%22status%22%3A%22online%22%7D”, cookie, ) ' 获取下psessionid ' 调试输出 (结果) psessionid ＝ 文本_取出中间文本 (结果, #常量1, #常量2) ' 这个psessionid很重要。后面操作差不多都要用到他 ' ' 调试输出 (网页访问u (“http://d1.web2.qq.com/channel/send_buddy_msg2”, 1, “r=%7B%22to%22%3A97501442%2C%22content%22%3A%22%5B%5C%22123%5C%22%2C%5B%5C%22font%5C%22%2C%7B%5C%22name%5C%22%3A%5C%22%E5%AE%8B%E4%BD%93%5C%22%2C%5C%22size%5C%22%3A10%2C%5C%22style%5C%22%3A%5B0%2C0%2C0%5D%2C%5C%22color%5C%22%3A%5C%22000000%5C%22%7D%5D%5D%22%2C%22face%22%3A540%2C%22clientid%22%3A53999199%2C%22msg_id%22%3A70010001%2C%22psessionid%22%3A%22” ＋ psessionid ＋ “%22%7D”, cookie)) ' 上面这条数据是我自己测试给好友发信息的数据。不懂了可以研究下 调试输出 (psessionid) .默认 透明标签_二维码状态.标题 ＝ “二维码状态：” ＋ 文本_取出中间文本 (结果, “'0','','0','”, “(”) .判断结束 ' 调试输出 (结果) ' 调试输出 (收到cookie) ' 调试输出 (webqq) .子程序 _时钟1_周期事件 子程序_开始登录 ()