HTTPClientTask新增Listen函数(响应事件可操作UI)

HTTPClientTask新增Listen函数(响应事件可操作UI)

Listen函数

监听事件

参数
hWnd 窗口句柄

示例

Dim WithEvents WebNet As HTTPClientTask

Private Sub cmdDoGetW_Click()
Set WebNet = New HTTPClientTask
With ClientTask
.Get "https://www.baidu.com/"
.Listen Me.hWnd
End With
End Sub

Private Sub WebNet_OnTaskFinished(ResponseHeaders As String, ResponseBody As String)
WebBrowser1.Document.body.innerText = ResponseBody
Set WebNet = Nothing
End Sub

结果