vb6 HTTP GET/POST

最新推荐文章于 2024-09-24 13:37:14 发布

有木兮丶

最新推荐文章于 2024-09-24 13:37:14 发布

阅读量1.4k

点赞数

分类专栏： vb 文章标签： http

本文链接：https://blog.csdn.net/qq_39713869/article/details/132758575

版权

vb 专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了如何在VB6中使用HTTP协议进行GET和POST请求，包括请求的设置与响应的处理，是VB6开发者进行网络通信的重要参考资料。

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

vb HTTP GET/POST

GET

Private Function HttpGet(ByVal URL As String) As String
    On Error GoTo errormsg
    Dim HTTP As MSXML2.ServerXMLHTTP
    
    Set HTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0")
    HTTP.Open "GET", URL, False
    
    HTTP.send
    
    If HTTP.Status = 200 Then
        HttpGet = HTTP.responseText
    Else
        HttpGet = "推送出错:" & HTTP.Status
    End If
errormsg:
    HttpGet = "推送出错，请重试！"
End Function

POST

Function HttpPost(Url As String, PostMsg As String) As String
    On Error GoTo er
    Dim XMLHTTP As Object
    Set XMLHTTP = CreateObject("Msxml2.XMLHTTP")
    If Not IsObject(XMLHTTP) Then
        Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
        If Not IsObject(XMLHTTP) Then Exit Function
    End If
    XMLHTTP.Open "POST", Url, False
    XMLHTTP.SetRequestHeader "CONTENT-TYPE", "application/json"
    'XMLHTTP.send PostMsg
'    XMLHTTP.send UTF8EncodeURI(PostMsg)
    XMLHTTP.send PostMsg
    
    Do While XMLHTTP.ReadyState <> 4
        DoEvents
    Loop
    
    If XMLHTTP.Status = 200 Then
        HttpPost = XMLHTTP.ResponseText
    Else
        HttpPost = "400"
    End If
    
    Exit Function
er:
'        MsgBox "POST false"
    HttpPost = "false"
End Function