注意XP环境与win7环境下的调用区分,XP下对接口https的调用会报错“接收格式异常”!!!
'返回接口地址返回结果字符串
Public Function GetResponse(sURL As String, Optional Method As String, Optional sBody As String) As String
Dim aHttpRequest As Object
Dim sMethod As String
Dim sResponse As String
If Method = "" Then
sMethod = "POST" '或者(GET)
Else
sMethod = Method
End If
Dim isXPSystem As Boolean
If isXPSystem = True Then
Set aHttpRequest = CreateObject("MSXML2.XMLHTTP")
If sMethod = "GET" Then
sBody = Replace(sBody, "?", "")
sURL = sURL & "?" & sBody
End If
'' 同步接收数据
aHttpRequest.Op