VB6.0中调用接口API

该博客介绍了在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, "?", "")
&

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值