VB如何获取网页指定文本 – CSS – 前端，animate.css动画效果

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