.版本 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)
扫码 ()