微信扫码登录源码

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 uuid, 文本型
.程序集变量 shey, 文本型
.程序集变量 wxsid, 文本型
.程序集变量 pass_ticket, 文本型
.程序集变量 wxuin, 文本型

.子程序 _按钮1_被单击

图片框1.图片 ＝ 取二维码 ()
启动线程 (&扫码, , )

.子程序 取二维码, 字节集
.局部变量 源文件, 文本型

源文件 ＝ 到文本 (网页_访问 (“https://login.wx.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage&fun=new&lang=zh_CN&_=” ＋ 时间_取现行时间戳 ()))
uuid ＝ 文本_取出中间文本 (源文件, #常量1, #常量2)
调试输出 (uuid)
返回 (网页_访问 (“https://login.weixin.qq.com/qrcode/” ＋ uuid))

.子程序 扫码
.局部变量 url, 文本型
.局部变量 源文件, 文本型
.局部变量 v, 文本型
.局部变量 ticket, 文本型
.局部变量 a, 文本型

url ＝ “https://login.wx2.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=” ＋ uuid ＋ “&tip=0&r=-1336304336&_=” ＋ 时间_取现行时间戳 ()
源文件 ＝ 网页_访问S (url)
调试输出 (源文件)
v ＝ 源文件
.如果真 (寻找文本 (v, “window.code=200”, , 假) ≠ -1)
    标签2.标题 ＝ “登录成功！”
.如果真结束
.判断开始 (寻找文本 (源文件, “ticket”, , 假) ≠ -1)
    ticket ＝ 文本_取出中间文本 (源文件, “ticket=”, “&uuid=”, )
    url ＝ “https://wx2.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage?ticket=” ＋ ticket ＋ “&uuid=” ＋ uuid ＋ “&lang=zh_CN&scan=” ＋ 时间_取现行时间戳 () ＋ “&fun=new&version=v2&lang=zh_CN”
    源文件 ＝ 网页_访问S (url)
    调试输出 (源文件)
    shey ＝ 文本_取出中间文本 (源文件, “<skey>”, “</skey>”)
    wxsid ＝ 文本_取出中间文本 (源文件, “<wxsid>”, “</wxsid>”)
    wxuin ＝ 文本_取出中间文本 (源文件, “<wxuin>”, “</wxuin>”)
    pass_ticket ＝ 文本_取出中间文本 (源文件, “<pass_ticket>”, “</pass_ticket>”)
    ' 调试输出 (shey, wxsid, wxuin, pass_ticket)
    url ＝ “https://wx2.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-1339008341&lang=zh_CN&pass_ticket=” ＋ pass_ticket
    a ＝ #常量3
    a ＝ 子文本替换 (a, “547971858”, wxuin, , , 真)
    a ＝ 子文本替换 (a, “w5O/ftDTgVuAsl6B”, wxsid, , , 真)
    a ＝ 子文本替换 (a, “@crypt_3644345f_aacb287fd0e18e90545909a2c6db15eb”, shey, , , 真)
    源文件 ＝ 网页_访问S (url, 1, a)
    ' 微信名字=文本_
    调试输出 (编码_utf8到gb2312 (源文件))
    ' url ＝ “https://wx2.qq.com/cgi-bin/mmwebwx-bin/webwxgeticon?seq=175126120&username=@9d18f67759dabd5566030ec8772cb483d39a8a56abef4de83a499126e7e5a1ab&skey=” ＋ shey
    ' 网页_访问S (url)
.默认

.判断结束
延迟 (500)
扫码 ()

@这个年纪