遍历网页框架结构

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