在 VBA 中获取 Json 令牌

问题描述

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

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")
   
   

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）