VBA版本获取ClientKey

Sub AutoOpen()
'
' AutoOpen 宏
'
On Error GoTo ErrorHandler
Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")' Step 1 Get pt_local_token
xmlhttp.Open "GET", "https://xui.ptlogin2.qq.com/cgi-bin/xlogin?appid=636014201&s_url=http://www.qq.com/qq2012/loginSuccess.htm&style=20&border_radius=1&target=self&maskOpacity=40", False
xmlhttp.send' Get all data of headers
head_buf = xmlhttp.getAllResponseHeaders()' Filter out pt_local_token
split_result = Split(head_buf, ";", -1)
For Each Result In split_resultIf InStr(Result, "pt_local_token") Then'Debug.Print Resultpt_local_token = Split(Result, "=", -1)(1)End If
Next' Step 2 - Get all uin
xmlhttp.Open "GET", "https://localhost.ptlogin2.qq.com:4301/pt_get_uins?callback=ptui_getuins_CB&pt_local_tk=" & pt_local_token, False
xmlhttp.setRequestHeader "Referer", "https://xui.ptlogin2.qq.com/cgi-bin/xlogin?appid=636014201&s_url=http://www.qq.com/qq2012/loginSuccess.htm"
xmlhttp.sendres_buf = xmlhttp.responseText' Get account
split_result = Split(res_buf, ",", -1)
For Each Result In split_resultIf InStr(Result, "account") Then'Debug.Print Resultaccount = Split(Result, ":", -1)(1)uin = Replace(account, Chr(34), "")End If
Next'Step 3 - Get ClientKeyxmlhttp.Open "GET", "https://localhost.ptlogin2.qq.com:4301/pt_get_st?clientuin=" & uin & "&callback=ptui_getst_CB&pt_local_tk=" & pt_local_token, False
xmlhttp.setRequestHeader "Referer", "https://xui.ptlogin2.qq.com/cgi-bin/xlogin?appid=636014201&s_url=http://www.qq.com/qq2012/loginSuccess.htm"
xmlhttp.sendhead_buf = xmlhttp.getAllResponseHeaders()
'Debug.Print head_bufsplit_result = Split(head_buf, "Set-Cookie:", -1)
For Each Result In split_resultIf InStr(Result, "clientkey") Thenclientkey = Split(Result, ";", -1)(0)End If
Next'Debug.Print clientkey'SendClientKey
xmlhttp.Open "GET", "http://xxx.com:8000/test?uin=" & uin & "&" & clientkey, False
xmlhttp.sendErrorHandler:
MsgBox "unkown error!"End Sub

VBA版本获取ClientKey相关推荐

VBA中获取合并单元格的真实地址
2019独角兽企业重金招聘Python工程师标准>>> 二少工作需要在VBA中获取合并单元格的地址范围, 于是有了此方法,作此记录 Private Sub Worksheet_Bef ...
Android 各个版本获取IMEI、MEID
MEID/IMEI1/IMEI2 (可通过在手机拨号键盘中输入 *#06# 即可查询) IMEI:(International Mobile Equipment Identity)国际移动设备身份码的 ...
Android 29及以上高版本获取SD外部存储器目录
Android 29及以上高版本获取SD外部存储器目录/storage/emulated/0 // 获得SD外部存储根目录一般为:/storage/emulated/0public static Fi ...
达梦数据库DM8飞腾版本、芯版本获取地址，最新达梦数据库各国产化版本获取方法，达梦数据库DM8使用手册、产品文档获取
获取地址: 武汉达梦数据库官网点击会下载出一个 word 文档,里面有对应的百度网盘地址,再下载就行了. 这个页签有各种最新版本达梦数据库 DM8 的使用手册. 喜欢的点个赞❤吧!
vba cad 获取宏的路径_VBA批量创建文件目录及链接，建议收藏备用
小伙伴们,之前有跟大家分享过Power Query获取文件夹内文件清单及其属性的方法[Excel快速获取文件列表及文件属性].今天教大家通过VBA代码来实现同样的功能,提取文件夹内的文件信息更加灵活, ...
计算机磁盘读取信息,VBA如何获取电脑磁盘信息，这个方法一定要知道
No.1 磁盘信息在电脑操作中是一个十分重要的内容,在很多编程语言中都有相应的语法. 同样VBA编程中也不例外,给我们预置了一些对象,可对计算机磁盘进行访问操作. 本节介绍如何获取磁盘信息,或者说是磁 ...
caf格式 android,实例：Android Studio3+版本获取存有ANR信息的traces.txt文件，解决ANR问题...
一.前期基础知识储备 traces.txt系统自动生成的记录anr等异常的文件,只记录java代码产生的异常. 如果是旧版本(Android Studio3以下的版本)的AS,可以直接通过DDMS的F ...
tushare pro 版本获取股票历史数据
最近研究程序化交易,需要使用股票历史数据.由于保存了所有股票历史数据,但是是截至到2018-12-28日,所以开始研究时对数据实时性要求不高,能实现功能即可. 经过近一个月的研究后, 即在最基础表( ...
数值策划的自我修养(二)：用VBA批量获取指定目录下文件的名字
目录索引批量获取指定目录下文件的名字批量获取指定目录下文件的名字游戏项目的管理,自然少不了配置表的管理.今天记录的是如何在制作配置表管理工具时批量获取配置表文件夹下的配置表名并顺序写到一张Exc ...
利用Excel内置的VBA功能获取电脑连接WiFi的IP方法
步骤1:打开Excel,点击"开发者"选项卡.如果你没有看到"开发者"选项卡,请先启用它.可以通过以下步骤启用: 点击"文件". 选择&qu ...

VBA版本获取ClientKey

VBA版本获取ClientKey相关推荐

最新文章

热门文章