如何使用webbrowser获取网页的源代码

2025-02-02 16:44:46

推荐回答（3个）

回答1：

我用vb6，c++我不熟
输入网址后回车就可以显示源代码
Private Sub Command1_Click()
WebBrowser1.Navigate Editbox1.Text
End Sub

Private Sub Editbox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", Editbox.Text, True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
Editbox2.Text = xmlHTTP1.responseText
Set xmlHTTP1 = Nothing
End If
End Sub

回答2：

editebox1.Text = Text1.Text = WebBrowser1.Document.documentelement.outerhtml

回答3：

获取网页源代码可以不用任何控件的
我教你