两天打鱼三天晒网

摘要： 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 阅读全文