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