vb6 winhttp 用法操作

Dim WithEvents oreq As WinHttpRequest

Private Sub Command1_Click()
    ' Create a WinHttpRequest object.
    Set oreq = New WinHttpRequest
    ' Open an HTTP connection.
    oreq.Open "GET", "http://ServerName/ASPPage.asp", True
    ' Set the receive timeout to 3 seconds.
    oreq.SetTimeouts 60000, 60000, 60000, 3000
    ' Send an HTTP request to the server.
    oreq.Send
End Sub

Private Sub oreq_OnError(ByVal ErrorNumber As Long, ByVal ErrorDescription As String)
    ' Display the description of the error.
    MsgBox ErrorDescription
End Sub

Private Sub oreq_OnResponseFinished()
    ' Display the response from the server.
    MsgBox oreq.ResponseText
End Sub

上一篇: ServerXMLHTTP及XMLHTTP的差别
下一篇: Javascript实现透明度渐变效果
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb
相关日志: