遍曆網頁架構結構

Private Sub Command1_Click()</p><p> Call showiframes(WebBrowser1)<br />End Sub</p><p>Private Sub showiframes(wb As WebBrowser)<br /> Dim i%, j%, intFraLen%, objFraColl As Object<br /> Dim vTag As Object<br /> Dim strNode2 As String<br /> Set objFraColl = wb.Document.frames<br /> intFraLen = objFraColl.length<br /> Text1.Text = Text1.Text & "wb.Document has " & intFraLen & " iframe" & vbCrLf<br /> On Error Resume Next</p><p> TreeView1.Nodes.Clear<br /> TreeView1.Nodes.Add , , "Webbrowser", "Webbrowser1(it has " & wb.Document.frames.length & " iframes)"</p><p> If InStr(UCase(wb.Document.body.outerhtml), "<FRAMESET") > 0 Then<br /> For i = 0 To intFraLen - 1<br /> Set vTag = wb.Document.getElementsByTagName("FRAME")(i)<br /> strNode2 = "frame" & i<br /> TreeView1.Nodes.Add "Webbrowser", tvwChild, strNode2, "Frame" & i & "(it has " & objFraColl(i).Document.frames.length & " frames)"<br /> TreeView1.Nodes.Add strNode2, tvwChild, strNode2 & "name" & i, "Parent Attribute"</p><p> TreeView1.Nodes.Add strNode2 & "name" & i, tvwChild, strNode2 & "name", "Name:" & vTag.Name<br /> TreeView1.Nodes.Add strNode2 & "name" & i, tvwChild, strNode2 & "id", "Id:" & vTag.Id<br /> TreeView1.Nodes.Add strNode2 & "name" & i, tvwChild, strNode2 & "src", "Src:" & vTag.Src<br /> Text1.Text = Text1.Text & "*" & vbTab & "name:" & vTag.Name & vbTab & vbTab & vbTab & "id:" & vTag.Id & vbTab & vbTab & "src:" & vTag.Src & vbCrLf</p><p> enumFrames objFraColl(i), 1, strNode2<br /> Next<br /> Else<br /> enumFrames wb, 1, "Webbrowser"<br /> End If<br /> For i = 1 To TreeView1.Nodes.Count<br /> TreeView1.Nodes(i).Expanded = True '“W?Š—L?“_<br /> Next i<br />End Sub</p><p>Private Sub enumFrames(objWeb As Object, ByVal intLayer%, ByVal strNode$)<br /> Dim i%, intFraLen%, objFraColl As Object<br /> Dim vTag As Object<br /> Dim strNode2 As String</p><p> Set objFraColl = objWeb.Document.frames</p><p> Text1.Text = Text1.Text & intLayer & vbTab & "has " & objFraColl.length & " iframe" & vbCrLf</p><p> For i = 0 To objFraColl.length - 1<br /> Set vTag = objWeb.Document.getElementsByTagName("iframe")(i)<br /> strNode2 = strNode & "iframe" & i<br /> TreeView1.Nodes.Add strNode, tvwChild, strNode2, "IFrame-" & i & "(it has " & objFraColl(i).Document.frames.length & " frames)"<br /> TreeView1.Nodes.Add strNode2, tvwChild, strNode2 & "name", "Name:" & vTag.Name<br /> TreeView1.Nodes.Add strNode2, tvwChild, strNode2 & "id", "Id:" & vTag.Id<br /> TreeView1.Nodes.Add strNode2, tvwChild, strNode2 & "src", "Src:" & vTag.Src<br /> Text1.Text = Text1.Text & vbTab & "name:" & vTag.Name & vbTab & vbTab & vbTab & "id:" & vTag.Id & vbTab & vbTab & "src:" & vTag.Src & vbCrLf</p><p> enumFrames objFraColl(i), intLayer + 1, strNode2<br /> Next<br />End Sub</p><p>Private Sub Form_Load()<br /> WebBrowser1.Navigate "http://community.csdn.net/"<br />End Sub</p><p>Private Sub Form_Resize()<br /> If Me.WindowState = 1 Then Exit Sub<br /> TreeView1.Height = Me.ScaleHeight - TreeView1.Top<br /> WebBrowser1.Height = Me.ScaleHeight - WebBrowser1.Top<br />End Sub