VB如何获取网页指定文本?
rivate Sub Command1_Click()Dim YDMYDM = WebBrowser1.Document.body.createtextrange().htmltextOpen "D:\WEB.html" For Output As #1Print #1, YDMClose #1End Sub=================工程里引用:Microsoft HTML object Library工程里部件:Microsoft Internet controlsMicrosoft rich textbox controls 6.0 (SP6)在窗体中放置一个WEBbrowser控件,放置一个richtextbox控件代码:Private Sub Form_Load()WebBrowser1.Navigate "http://www.sohu.com"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Text1.Text = WebBrowser1.Document.documentElement.outerHTMLEnd Sub如需修改网页内容,增加以下代码:Private Sub Command1_Click()Dim wdoc As HTMLDocumentSet wdoc = WebBrowser1.Documentwdoc.body.innerHTML = "dfkdjfkdfjdkfjdkfjdk" ‘网页内容'WebBrowser1.Document.body.innerHTML = "dfkdjfkdfjdkfjdkfjdk" 与上句二选一End Sub
Copyright © 广州京杭网络科技有限公司 2005-2025 版权所有 粤ICP备16019765号
广州京杭网络科技有限公司 版权所有