有没有人知道如何从用JSON回复的RESTful web服务中获取或发布消息?
例如,我想调用这个url: www.web1.service.com/?apikey=111-222-333¶m1=Adam¶m2=Smith
这个RESTful web服务将使用JSON进行回复。
谢谢。
声发射
发布于 2015-09-17 15:24:50
我找到了答案:(您需要添加对Microsoft,v4.0的引用)从Project-> reference .
Private Function urlLaunch(ByVal URL As String) As String
Dim Ans As String
Dim oHTTP As MSXML2.XMLHTTP, sBuffer As String
Set oHTTP = CreateObject("MSXML2.ServerXMLHTTP")
oHTTP.Open "GET", URL, False
oHTTP.Send
sBuffer = oHTTP.responseText
Set oHTTP = Nothing
urlLaunch = sBuffer
End Functionhttps://stackoverflow.com/questions/32612818
复制相似问题