cookie转openid例子

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 Hs, TMP

.子程序 __启动窗口_创建完毕



.子程序 GetToken, 文本型, 公开
.参数 Cookies, 文本型

返回 (文本_取出中间文本 (Cookies, “supertoken=”, “;”))

.子程序 GetUser, 文本型, 公开
.参数 Cookies, 文本型
.局部变量 User, 文本型

User ＝ 文本_取出中间文本 (Cookies, “uin=o”, “;”)
.如果真 (取文本左边 (User, 1) ＝ “0”)
    User ＝ 文本_取出中间文本 (Cookies, “uin=o0”, “;”)
.如果真结束
返回 (User)

.子程序 GetAuthorize, 文本型, 公开
.参数 Openid, 文本型, 参考 可空
.参数 Access_token, 文本型, 参考
.参数 Pay_token, 文本型, 参考
.局部变量 Js, 类_脚本组件
.局部变量 post, 文本型
.局部变量 User, 文本型
.局部变量 Authtoken, 文本型
.局部变量 Supertoken, 文本型
.局部变量 授权id, 文本型
.局部变量 json, 类_json
.局部变量 avatar, 文本型
.局部变量 name, 文本型
.局部变量 gameid, 文本型

User ＝ GetUser (Hs.Cookies)
Supertoken ＝ 网页_取单条Cookie (Hs.Cookies, “supertoken”, 真)
Js.执行 (#Auth_Token)
Authtoken ＝ Js.运行 (“get1”, Supertoken, , , , , )
调试输出 (“token” ＋ Authtoken)
授权id ＝ “1106467070”
' 1106838536  使命
' 1104466820 王者
' 1106467070  和平
Hs.Url ＝ “https://ssl.ptlogin2.qq.com/pt_open_login?openlogin_data=which%3D%26refer_cgi%3Dm_authorize%26response_type%3Dtoken%26client_id%3D” ＋ 授权id ＋ “%26state%3Dtest%26display%3D%26openapi%3D%2523%26switch%3D1%26src%3D1%26sdkv%3D3.3.1_lite%26sdkp%3Di%26tid%3D1532173499%26pf%3D%26need_pay%3D0%26browser%3D0%26browser_error%3D%26serial%3D%26token_key%3D%26redirect_uri%3Dauth%253A%252F%252Fwww.qq.com%26sign%3D%26time%3D%26status_version%3D%26status_os%3D11.3%26status_machine%3DiPhone7%252C1%26page_type%3D1%26has_auth%3D0%26update_auth%3D0%26auth_time%3D1532173465484&auth_token=” ＋ Authtoken ＋ “&pt_vcode_v1=0&pt_verifysession_v1=&verifycode=&u=” ＋ User ＋ “&pt_randsalt=0&ptlang=2052&low_login_enable=0&u1=http%3A%2F%2Fconnect.qq.com&from_ui=1&fp=loginerroralert&device=2&aid=716027609&daid=381&pt_3rd_aid=” ＋ 授权id ＋ “&ptredirect=1&h=1&g=1&pt_uistyle=35&regmaster=&”
调试输出 (Hs.Url)
Hs.Str ＝ 编码_Utf8到Ansi (网页_访问_对象 (Hs.Url, , , Hs.Cookies, , , , , 真))
调试输出 (Hs.Str)
Openid ＝ 文本_取出中间文本 (Hs.Str, “openid=”, “&”, , )
Pay_token ＝ 文本_取出中间文本 (Hs.Str, “pay_token=”, “&”, , )
Access_token ＝ 文本_取出中间文本 (Hs.Str, “access_token=”, “&”)
.如果真 (Openid ＝ “” 或 Access_token ＝ “” 或 Pay_token ＝ “”)
    连续赋值 (“授权失败”, Openid, Access_token, Pay_token)
.如果真结束
Hs.Url ＝ “https://openmobile.qq.com/user/get_simple_userinfo?status_os=6.0&access_token=” ＋ Access_token ＋ “&oauth_consumer_key=1105200115&format=json&openid=” ＋ Openid ＋ “&status_version=23&status_machine=vivo+Y67&pf=openmobile_android&sdkp=a&sdkv=3.3.8.lite”
Hs.Str ＝ 到文本 (网页_访问_对象 (Hs.Url, 0, , , , , , , , , , , , , , , , , ))
avatar ＝ 文本_取出中间文本 (Hs.Str, #常量4, #引号, , )
name ＝ 编码_URL编码 (文本_取出中间文本 (Hs.Str, #常量5, #引号, , ), , 真)
gameid ＝ 文本_取出中间文本 (Hs.Str, “1105200115\/”, “/”, , )
调试输出 (avatar)
Hs.Url ＝ “https://ssl.kohsocialapp.qq.com/user/login”
post ＝ “accessToken=” ＋ Access_token ＋ “&avatar=” ＋ avatar ＋ “&delOldUser=0&lastGetRemarkTime=0&lastLoginTime=” ＋ 时间_取现行时间戳 (真) ＋ “&loginType=openSdk&nickname=” ＋ name ＋ “&openId=” ＋ Openid ＋ “&sex=1&cChannelId=&cClientVersionCode=2020461405&cClientVersionName=4.61.405&cCurrentGameId=20001&cDeviceBrand=vivo&cDeviceCPU=armeabi-v7a%24armeabi&cDeviceId=e9ef98dabd202b1e47299778e0d29d316cf108bd&cDeviceImei=863600031063053&cDeviceMac=02%3A00%3A00%3A00%3A00%3A00&cDeviceMem=25136&cDeviceModel=vivo%20Y67&cDeviceNet=unknown&cDevicePPI=320&cDeviceSP=&cDeviceScreenHeight=1280&cDeviceScreenWidth=720&cGameId=20001&cGzip=1&cRand=1612234483153&cSystem=android&cSystemVersionCode=23&cSystemVersionName=6.0&deviceid=e9ef98dabd202b1e47299778e0d29d316cf108bd&gameAreaId=1&gameId=20001&gameOpenId=” ＋ gameid ＋ “&gameRoleId=1115934147&gameServerId=1201&gameUserSex=2&tinkerId=2020461405_0”
Hs.Str ＝ 到文本 (网页_访问_对象 (Hs.Url, 1, post, , , #营地头, , , , , , , , , , , , , ))
调试输出 (Hs.Str)
返回 (Hs.Str)

.子程序 去Cookies空值, 文本型, 公开
.参数 Cookies, 文本型, 参考
.局部变量 i, 整数型
.局部变量 Arr, 文本型, , "0"
.局部变量 Arr1, 文本型, , "0"
.局部变量 Cookie, 文本型

Cookie ＝ Cookies
Arr ＝ 分割文本 (Cookies, “;”, )
.计次循环首 (取数组成员数 (Arr), i)
    Arr1 ＝ 分割文本 (Arr [i], “=”, )
    .如果真 (取数组成员数 (Arr1) ＝ 1)
        Cookie ＝ 子文本替换 (Cookie, Arr1 [1] ＋ “=;”, , , , 真)
        调试输出 (Cookie)
    .如果真结束

.计次循环尾 ()
返回 (Cookie)

.子程序 _按钮1_被单击
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 c, 文本型

Hs.Cookies ＝ 编辑框1.内容
去Cookies空值 (Hs.Cookies)
GetAuthorize (a, b, c)
编辑框2.内容 ＝ a
编辑框3.内容 ＝ b
编辑框4.内容 ＝ c
调试输出 (a, b, c)

@流云沙海