VB获取网页源代码

发布时间：2020-12-16 22:40:22 所属栏目：大数据来源：网络整理

导读：1：新建窗体 2：添加按钮Command1 3：添加Text1空间用来得到存放网页代码。代码： Private Sub Command1_Click()Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")xmlHTTP1.Open "get","http://www.qq.com",TruexmlHTTP1.sendWhile xmlHTTP1.readyState 4D

1：新建窗体

2：添加按钮Command1

3：添加Text1空间用来得到存放网页代码。

代码：

Private Sub Command1_Click()
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get","http://www.qq.com",True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
Text1.Text = xmlHTTP1.responseText
Set xmlHTTP1 = Nothing
End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!