WEBQQ登录源码

.版本 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_周期事件

子程序_开始登录 ()

@搁浅的爱