.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
取参 ()
.子程序 取参
.局部变量 url, 文本型
.局部变量 data, 文本型
.局部变量 ret, 文本型
.局部变量 Ckey, 文本型
.局部变量 Uin, 文本型
.局部变量 TGT, 文本型
.如果真 (单选框_GetGameTicket.选中 ＝ 真)
ret ＝ GetGameTicket (编辑框_CKEY.内容, 编辑框_UIN.内容, 编辑框_TGT.内容)
调试输出 (ret)
.如果真结束
.如果真 (单选框_tgp_ticket.选中 ＝ 真)
ret ＝ tgp_ticket (编辑框_CKEY.内容, 编辑框_UIN.内容, 编辑框_TGT.内容)
调试输出 (ret)
.如果真结束
.子程序 tgp_ticket, 文本型
.参数 Ckey, 文本型
.参数 Uin, 文本型
.参数 TGT, 文本型
.局部变量 url, 文本型
.局部变量 cookie, 文本型
.局部变量 tgp_ticket, 文本型
.局部变量 tgp_id, 文本型
url ＝ 到文本 (“https://www.wegame.com.cn/api/middle/clientapi/auth/login_by_qq”)
网页_访问_对象 (url, 1, #tgp_提交1 ＋ Uin ＋ #tgp_提交2 ＋ Ckey ＋ #tgp_提交3, , cookie, #tgp_协议头, , , , , , 3, , , , , , , )
tgp_ticket ＝ 文本_取出中间文本 (cookie, “tgp_ticket=”, “;”)
tgp_id ＝ 文本_取出中间文本 (cookie, “tgp_id=”, “;”, , )
返回 (game_st_key (tgp_ticket, Ckey, TGT, Uin, tgp_id))
.子程序 game_st_key, 文本型
.参数 tgp_ticket, 文本型
.参数 key, 文本型
.参数 key2, 文本型
.参数 QQ号, 文本型
.参数 tgp_id, 文本型
.局部变量 url, 文本型
.局部变量 cookie, 文本型
.局部变量 协议头, 文本型
.局部变量 提交信息, 文本型
.局部变量 临时变量, 文本型
url ＝ 到文本 (“https://www.wegame.com.cn/api/v1/wegame.platform.game.TicketProxy/GetGameTicket”)
协议头 ＝ #GetGame协议头1 ＋ #换行符 ＋ “Cookie:pt2gguin=o” ＋ QQ号 ＋ “;pkey=” ＋ key ＋ “;tgp_ticket=” ＋ tgp_ticket ＋ #GetGame协议头2 ＋ QQ号 ＋ “;tgp_id=” ＋ tgp_id ＋ #GetGame协议头3
提交信息 ＝ #GetGame提交1 ＋ key ＋ #GetGame提交2 ＋ key2 ＋ #GetGame提交3 ＋ QQ号 ＋ #GetGame提交4
cookie ＝ 编码_Utf8到Ansi (网页_访问_对象 (url, 1, 提交信息, , , 协议头, , , , , , 3, , , , , , , ))
' 全局判断 ＝ cookie
调试输出 (cookie)
返回 (cookie)
' key22 ＝ 文本_取出中间文本 (cookie, #game_st, #game)
' key11 ＝ 文本_取出中间文本 (cookie, #game_st_key, #game)
' key33 ＝ 文本_取出中间文本 (cookie, #game_shiliu, #game)
.子程序 GetGameTicket, 文本型
.参数 Ckey, 文本型
.参数 Uin, 文本型
.参数 TGT, 文本型
.局部变量 cookie, 文本型
.局部变量 Result, 文本型
.局部变量 cks, 整数型
.局部变量 ClientKey, 文本型
.局部变量 DCkey, 文本型
.局部变量 Pkey, 文本型
.局部变量 全局判断, 文本型
.局部变量 key77, 文本型
.局部变量 key99, 文本型
.局部变量 key88, 文本型
cookie ＝ “pkey=” ＋ Ckey ＋ “;uin=o” ＋ Uin ＋ “;”
Result ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://www.wegame.com.cn/api/v1/wegame.platform.game.TicketProxy/GetGameTicket?&from_src=client&game_id=26&mibao_cmd=1&mibao_params=0&user_id=” ＋ Uin ＋ “&st=” ＋ Ckey ＋ “&tgt=” ＋ TGT, 0, , cookie, , “https://www.wegame.com.cn”, , , 真, , , 6, , , , , , , ))
调试输出 (Result)
返回 (Result)
全局判断 ＝ 编码_utf8到gb2312 (Result)
key77 ＝ 文本_取出中间文本 (Result, #game_st, #game)
key99 ＝ 文本_取出中间文本 (Result, #game_st_key, #game)
key88 ＝ 文本_取出中间文本 (Result, #game_shiliu, #game)
' 调试输出 (key77)