Dim web = Forms("编辑窗口").controls("webbrowser1").basecontrol Dim elems As object = web.Document.GetElementsByTagName("div") Dim str As String = "" For Each elem As object In elems If elem.getattribute("className") = "abc" Then msgbox(elem.InnerText) str &= elem.InnerText End If Next Forms("朗读").open() Forms("朗读").Controls("txtContent").Text = str
加好友 
发短信
Post By：2018/7/23 17:24:00 [只看该作者]
