.版本 2 .支持库 spec .程序集 ele .程序集变量 ck, 文本型 .程序集变量 servertime, 文本型 .程序集变量 pcid, 文本型 .程序集变量 nonce, 文本型 .程序集变量 pubkey, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 rsakv, 文本型 .程序集变量 ticket, 文本型 .程序集变量 uid, 文本型 .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用 ' 本源码来自三叶资源网(www.sanye.cx) .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用 .子程序 login, 文本型, 公开 .参数 phone, 文本型 .参数 password, 文本型 .参数 picCode, 文本型 .局部变量 back, 文本型 .局部变量 sp, 文本型 .局部变量 xyt, 文本型 .局部变量 url, 文本型 .局部变量 access_token, 文本型 sp ＝ Js_enPwd (password) 调试输出 (ck) back ＝ 网页_访问_对象u_usc2 (“https://login.sina.com.cn/sso/login.php?client=ssologin.js(v1.4.18)&_=” ＋ 时间_取现行时间戳 () ＋ “&openapilogin=qrcode”, 1, “entry=openapi&gateway=1&from=&savestate=0&useticket=1&pagerefer=&ct=1800&s=1&vsnf=1&vsnval=&door=” ＋ picCode ＋ “&appkey=XbPAC&pcid=” ＋ pcid ＋ “&su=” ＋ 编码_BASE64编码 (到字节集 (phone)) ＋ “&service=miniblog&servertime=” ＋ servertime ＋ “&nonce=” ＋ nonce ＋ “&pwencode=rsa2&rsakv=” ＋ rsakv ＋ “&sp=” ＋ sp ＋ “&sr=1440*900&encoding=UTF-8&cdult=2&domain=weibo.com&prelt=83&returntype=TEXT”, ck, ck, , , , , , , , , , , , ) 调试输出 (back) ticket ＝ Json_读属性 (back, “ticket”) uid ＝ Json_读属性 (back, “uid”) back ＝ 网页_访问_对象u (“https://open.weibo.cn/oauth2/authorize”, 1, “client_id=3522052502&redirect_uri=https%3A%2F%2Fapi.weibo.com%2Foauth2%2Fdefault.html&display=sdk&action=login&offcialMobile=true&rf=1&version=null&sso_type=1&scope=follow_app_official_microblog&quick_auth=true&wm=3349&ticket=” ＋ ticket, ck, , , xyt, , 真, , , , , , , , ) url ＝ 文本_取出中间文本 (xyt, “Location: ”, #换行符, , ) access_token ＝ 文本_取出中间文本 (url, “access_token=”, “&”, , ) 返回 (access_token) .子程序 Json_读属性, 文本型 .参数 Json文本, 文本型 .参数 key, 文本型 .局部变量 Json, 类_JsonEx .局部变量 属性值, 文本型 .如果真 (Json.解析 (Json文本) ＝ 假) 输出调试文本 (“解析失败，请确认Json格式是否正确！”) 返回 (Json文本) .如果真结束 属性值 ＝ Json.取通用属性 (key, , , ) Json.清除 () 返回 (属性值) .子程序 Js_enPwd, 文本型 .参数 password, 文本型 .局部变量 Js, 类_脚本组件 .局部变量 return, 文本型 线程_初始化COM库 () return ＝ Js.执行JS函数Ex (#常量_JS, “enPwd”, pubkey, servertime, nonce, password, , , , , , , , , , , ) ' 请在常量_Js中放入调试成功的JS代码段 线程_取消COM库 () 返回 (return) .子程序 getPic, 字节集, 公开 .参数 phone, 文本型, , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 back, 文本型 back ＝ 网页_访问_对象u (“https://login.sina.com.cn/sso/prelogin.php?entry=openapi&callback=sinaSSOController.preloginCallBack&su=” ＋ 编码_BASE64编码 (到字节集 (phone)) ＋ “&rsakt=mod&checkpin=1&client=ssologin.js(v1.4.18)&_=” ＋ 时间_取现行时间戳 (), , , , , , , , , , , , , , , , ) servertime ＝ Json_读属性 (back, “servertime”) nonce ＝ Json_读属性 (back, “nonce”) pubkey ＝ Json_读属性 (back, “pubkey”) pcid ＝ Json_读属性 (back, “pcid”) rsakv ＝ Json_读属性 (back, “rsakv”) 返回 (网页_访问_对象 (“https://login.sina.com.cn/cgi/pin.php?r=87960792&s=0&p=” ＋ pcid, , , ck, ck, , , , , , , , , , , , )) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 bingdingW, 文本型, 公开 .参数 access_token, 文本型 .参数 eleCK, 文本型 .局部变量 back, 文本型 .局部变量 userId, 文本型 userId ＝ 文本_取出中间文本 (eleCK, “USERID=”, “; ”, , ) back ＝ 网页_访问_对象u (“https://restapi.ele.me/eus/v1/users/” ＋ userId ＋ “/bind_sns”, 1, “sns_type=1&sns_uid=” ＋ uid ＋ “&access_token=” ＋ access_token, eleCK, , , , , , , , , , , , , ) 调试输出 (back) 返回 (back) .子程序 unbingdingW, 文本型, 公开, 解绑 .参数 eleck, 文本型 .局部变量 back, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx) .局部变量 userId, 文本型 userId ＝ 文本_取出中间文本 (eleck, “USERID=”, “; ”, , ) back ＝ 网页_访问_对象u (“https://restapi.ele.me/eus/v1/users/” ＋ userId ＋ “/sns?sns_type=1”, 4, , eleck, , , , , , , , , , , , , ) 返回 (back)