VB6对http接口的请求并获得返回内容

首先，http接口的用处自不消说。而对http接口的调用方法在网上也有很多。但大部分都是用jsp、asp、.net之内的来进行调用。但我们公司还用vb6，也是使我煞费苦心呀。
废话少说，来看代码：
首先，引用Microsoft WinHTTP Services, version 5.1；
Private aHttpRequest As WinHttp.WinHttpRequest
Private Function GetResponse(sURL As String, Optional Method As String) As String
Dim sMethod As String
Dim sBody As String

sBody = ""
If Method = "" Then
sMethod = "POST" '或者(GET)
Else
sMethod = Method
End If

''创建WinHttp.WinHttpRequest
Set aHttpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")

'' 同步接收数据
aHttpRequest.Open sMethod, sURL, False
'' 非常重要(忽略错误)
aHttpRequest.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = &H3300
'' 其它请求头设置
'aHttpRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
'aHttpRequest.setRequestHeader "Content-Length", Len(sBody)

'' 发送
aHttpRequest.Send sBody

'' 得到返回文本(或者是其它)
sResponse = aHttpRequest.ResponseText
Select Case sResponse
Case "-1"
GetResponse = "机构ID、用户名或密码错误"
Case "-2"
GetResponse = "用户已停用"
Case "-3"
GetResponse = "账户已过期"
Case "-4"
GetResponse = "余额不足"
Case "-5"
GetResponse = "非法的短信内容"
Case "-6"
GetResponse = "非法的手机号码"
Case "-7"
GetResponse = "短信包含敏感关键字"
Case "-8"
GetResponse = "批次号错误"
Case "-9"
GetResponse = "其它错误"
Case "-10"
GetResponse = "通道错误"
Case Else
GetResponse = sResponse
End Select

Set aHttpRequest = Nothing
End Function
很简单的内容，希望对你有帮助。