VB6.0中调用接口API

最新推荐文章于 2025-05-16 15:52:28 发布

原创

最新推荐文章于 2025-05-16 15:52:28 发布 · 6k 阅读

7 ·

CC 4.0 BY-SA版权

文章标签：

#WinHttp #XMLHTTP #API #VB

该博客介绍了在VB6.0中调用接口API的方法，特别是在XP和Win7环境下如何区分处理。在XP系统下，对接口HTTPS调用可能会遇到"接收格式异常"的问题。文章提供了一个公开函数`GetResponse`，用于根据不同的操作系统选择MSXML2.XMLHTTP或WinHttp.WinHttpRequest.5.1对象来同步发送请求，并处理了超时和错误忽略设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

注意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, "?", "")
&