vba - 在 VBA 中获取 Json 令牌

Question

我在运行此代码时遇到了困难

Dim req As New XMLHTTP60
Dim req As New XMLHTTP60
DIM Sxml as string
Sxml = "<LogIn><UserName>[e-mail]</UserName>
<Password>P@ssw0rd</Password></LogIn>"

Dim req As New XMLHTTP60    
Dim resp As New DOMDocument60    
Sxml = "<LogIn><UserName>[e-mail]</UserName><Password>P@ssw0rd</Password></LogIn>"  

似乎 Sxml 是一种 xml 格式

req.Open "POST", "http://api.fzo.org.mk/api/Auth/GetToken/?" & Sxml, False  
req.send  
resp.LoadXML req.responseText  
resp.Save ("c:/apteka/token.txt")
   
   

标签： vbams-access-2013