这是一个快速和肮脏的POC我有其他有用的堆栈职位至今:解析JSON/XML参数
Public Function WebRequest(url As String) As String
Dim http As MSXML2.xmlhttp
Set http = CreateObject("MSXML2.ServerXMLHTTP")
http.open "GET", url, False
http.send
WebRequest = http.responseText
Set http = Nothing
End Function
Private Sub Command1_Click()
Dim http As MSXML2.xmlhttp
Dim result As String
Dim url As String
Dim productId As String
productId = "2"
url = "http://localhost:1111/api/products/" & productId
result = WebRequest(url)
MsgBox result
End Sub
这需要一个简单的Web API和收益预期。响应内容如下:
{"Id":2,"Name":"Yo-yo","Category":"Toys","Price":3.75}
将参数分配给变量以在应用程序的其余部分中使用的最佳方式是什么?
为什么在这里使用'CreateObject()'而不是'New'? – Bob77
@ Bob77我很快就复制了这个答案:https://stackoverflow.com/a/27854657/7896203我从来没有使用VB6之前,所以我不能回答这个问题说实话。 – Reed