vb webbrowser获取源码并保存

最新推荐文章于 2021-06-18 22:36:59 发布

ajfpnro2631

最新推荐文章于 2021-06-18 22:36:59 发布

阅读量327

点赞数

原文链接：http://www.cnblogs.com/luyichuan/archive/2012/03/06/2382283.html

版权

rivate Sub Command1_Click()
Dim YDM
YDM = WebBrowser1.Document.body.createtextrange().htmltext
Open "D:\WEB.html" For Output As #1
Print #1, YDM
Close #1
End Sub

=================

工程里引用：Microsoft HTML object Library

工程里部件：Microsoft Internet controls

Microsoft rich textbox controls 6.0 (SP6)

在窗体中放置一个WEBbrowser控件，放置一个richtextbox控件

代码：

Private Sub Form_Load()
WebBrowser1.Navigate "http://www.sohu.com"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1.Text = WebBrowser1.Document.documentElement.outerHTML
End Sub

如需修改网页内容，增加以下代码：

Private Sub Command1_Click()
Dim wdoc As HTMLDocument
Set wdoc = WebBrowser1.Document
wdoc.body.innerHTML = "<font size=10>dfkdjfkdfjdkfjdkfjdk</font>" ‘网页内容
'WebBrowser1.Document.body.innerHTML = "<font size=10>dfkdjfkdfjdkfjdkfjdk</font>" 与上句二选一
End Sub

转载于:https://www.cnblogs.com/luyichuan/archive/2012/03/06/2382283.html