.版本 2
.支持库 spec
.支持库 EThread
.程序集 窗口程序集_启动窗口
.程序集变量 uuid, 文本型
.子程序 __启动窗口_创建完毕
.局部变量 str, 文本型
str ＝ 到文本 (网页_访问 (“https://login.weixin.qq.com/jslogin?appid=wx782c26e4c19acffb&redirect_uri=https%3A%2F%2Fwx.qq.com%2Fcgi-bin%2Fmmwebwx-bin%2Fwebwxnewloginpage&fun=new&lang=zh_CN&_=” ＋ 时间_取现行时间戳 ()))
调试输出 (str)
uuid ＝ 文本_取出中间文本 (str, “uuid = ” ＋ #引号, #引号)
调试输出 (uuid)
图片框1.图片 ＝ 网页_访问 (“https://login.weixin.qq.com/qrcode/” ＋ uuid)
启动线程 (&子程序1, , )
.子程序 子程序1
.局部变量 url, 文本型
.局部变量 str, 文本型
.局部变量 skey, 文本型
.局部变量 wxsid, 文本型
.局部变量 wxuin, 文本型
.局部变量 pass_ticket, 文本型
.局部变量 isgrayscale, 文本型
.局部变量 post, 文本型
.局部变量 sex, 文本型
' str ＝ 到文本 (网页_访问 (“https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=” ＋ uuid ＋ “&tip=0&r=-38849361&_=” ＋ 时间_取现行时间戳 ()))
.循环判断首 ()
str ＝ 到文本 (网页_访问 (“https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=” ＋ uuid ＋ “&tip=0&r=-38849361&_=” ＋ 时间_取现行时间戳 ()))
.如果真 (取文本长度 (str) ≥ 60)
调试输出 (“扫描成功，请点击确认登录”)
跳出循环 ()
.如果真结束
.循环判断尾 (取文本长度 (str) ＜ 60)
' ======确认登录
str ＝ 到文本 (网页_访问 (“https://login.weixin.qq.com/cgi-bin/mmwebwx-bin/login?loginicon=true&uuid=” ＋ uuid ＋ “&tip=0&r=-38849361&_=” ＋ 时间_取现行时间戳 ()))
str ＝ 到文本 (网页_访问 (“https://wx2.qq.com/cgi-bin/mmwebwx-bin/webwxnewloginpage?ticket=” ＋ 文本_取出中间文本 (str, “ticket=”, “&”) ＋ “&uuid=” ＋ 文本_取出中间文本 (str, “uuid=”, “&”) ＋ “&lang=zh_CN&scan=” ＋ 文本_取左边 (str, “scan=”) ＋ “&fun=new&version=v2&lang=zh_CN”))
调试输出 (str)
' ========登录成功获取参数
skey ＝ 文本_取出中间文本 (str, “<skey>”, “</skey>”)
wxsid ＝ 文本_取出中间文本 (str, “<wxsid>”, “</wxsid>”)
wxuin ＝ 文本_取出中间文本 (str, “<wxuin>”, “</wxuin>”)
pass_ticket ＝ 文本_取出中间文本 (str, “<pass_ticket>”, “</pass_ticket>”)
isgrayscale ＝ 文本_取出中间文本 (str, “<isgrayscale>”, “</isgrayscale>”)
调试输出 (skey, wxsid, wxuin, pass_ticket, isgrayscale)
' ===========获取好友，备注：女 Sex=2 男Sex=0
post ＝ 文本_替换 (#常量1, , , , “uid”, wxuin, “sid”, wxsid, “skey”, skey)
调试输出 (post)
str ＝ 编码_URL解码 (到文本 (网页_访问 (“https://wx2.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-39241570&lang=zh_CN&pass_ticket=” ＋ pass_ticket, 1, post, )), 真)
调试输出 (str)
标签_昵称.标题 ＝ 文本_取出中间文本 (str, “NickName” ＋ #引号 ＋ “: ” ＋ #引号, #引号, 倒找文本 (str, “NickName”, , 假))
图片框2.图片 ＝ 网页_访问 (“https://wx2.qq.com” ＋ 文本_取出中间文本 (str, “HeadImgUrl” ＋ #引号 ＋ “: ” ＋ #引号, #引号, 倒找文本 (str, “HeadImgUrl”, , 假)))