1,502
社区成员
发帖
与我相关
我的任务
分享
<li class=1>ok1</li>
<li class=2>ok2</li>
<li class=3>ok3</li>
<li class=4>ok4</li>
<li class=3>ok33</li>
<li class=5>ok5</li>
<li class=6>ok6</li>
<li class=6>ok66</li>
<li class=7>ok7</li>
<li class="8">ok8</li>
<li class="9">ok9</li>
<li class="c1">okc1</li>
<li class="c2">okc2</li>
<li class="c3">okc3</li>
<li class=3>ok3</li>
<li class=3>ok33</li>
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.0515.la/1.html"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim tag As Object
For Each tag In WebBrowser1.Document.All.tags("li")
If tag.className = "3" Then
Debug.Print tag.childNodes(0).Data
End If
Next
End Sub