excel - 如何使用 vba 从 http 请求中获取授权

Question

我必须使用 vba 向网页发送 HTTP 发布请求。我已经用下面的代码成功地做到了。我面临的问题是每次我登录该页面时，api 密钥（授权）都会发生变化。所以它不能是一个常数。我可以通过任何方法提取授权密钥（加密）并将 requestHeaders 的授权设置为变量以发送我的 HTTP 发布请求吗？

 Sub WEBAPP()

 Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String
 myurl = "www.abc.com"


 xmlhttp.Open "post", myurl, False
 xmlhttp.setRequestHeader "authorization", "myEncryptedUsernameAndPassword" 'i need to set this as my variable
 xmlhttp.setRequestHeader "content-type", "application/x-www-form-urlencoded"
 xmlhttp.send "name=jack&company=google"

 MsgBox (xmlhttp.responseText)

 End Sub

标签： excelvba