VB6.0中调用接口API

原创

于 2019-12-10 11:57:03 发布 · 2.1k 阅读

CC 4.0 BY-SA版权

该博客详细介绍了如何在VB6.0中调用接口API，并特别指出在XP环境下对接口HTTPS调用会遇到'接收格式异常'的问题。文中提供了一个名为GetResponse的函数，用于处理GET和POST请求，根据系统环境选择不同的对象（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, "?", "")
      &nbs