在VB6中,可以使用MSXML2.XMLHTTP
对象来实现抓取网页内容。以下是一个示例代码:
Private Sub Command1_Click()
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.Open "GET", "http://www.example.com", False
xmlhttp.Send
MsgBox xmlhttp.responseText
Set xmlhttp = Nothing
End Sub
在代码中,CreateObject("MSXML2.XMLHTTP")
用于创建一个XMLHTTP
对象。然后使用Open
方法打开要抓取的网页,并使用Send
方法发送请求。最后,使用responseText
属性获取抓取到的网页内容,并使用MsgBox
函数在消息框中显示内容。
请注意,该示例代码中使用的是同步方式获取网页内容,即程序会等待网页响应返回后再继续执行后续代码。如果需要使用异步方式,可以使用MSXML2.XMLHTTP.6.0
对象,并使用onreadystatechange
事件来处理响应。