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 结果