home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / webpage_Do1840111152005.psc / cBrowser < prev    next >
Text File  |  2005-01-15  |  4KB  |  119 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cBrowser"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16.  
  17. Enum enElemType
  18.   elemLinks = 1
  19.   elemTables = 2
  20.   elemImages = 3
  21.   elemInput = 4
  22. End Enum
  23.  
  24.  
  25.  
  26. Private WithEvents oWB   As WebBrowser
  27. Attribute oWB.VB_VarHelpID = -1
  28. Private WithEvents oDOC  As HTMLDocument
  29. Attribute oDOC.VB_VarHelpID = -1
  30.  
  31.  
  32. Event LinkElementReturned(linkCount As Long, oLINK As HTMLAnchorElement)
  33. Event TableElementReturned(tableCount As Long, oTABLE As HTMLTable)
  34. Event ImageElementReturned(imageCount As Long, oIMAGE As HTMLImg)
  35. Event InputElementReturned(inputCount As Long, oINPUT As HTMLInputElement)
  36.  
  37.  
  38.  
  39. Function StripdownBrowser(yourBrowser As WebBrowser, _
  40.                    Optional BrowserCanBeDropTarget As Boolean = False) As Long
  41. On Error GoTo local_error:
  42.  
  43.                 StripdownBrowser = 1
  44.                 
  45.                 With yourBrowser
  46.                   .AddressBar = False
  47.                   .FullScreen = False
  48.                   .MenuBar = False
  49.                   .RegisterAsBrowser = False
  50.                   .RegisterAsDropTarget = BrowserCanBeDropTarget
  51.                   .Silent = True
  52.                   .StatusBar = False
  53.                   .TheaterMode = False
  54.                 End With
  55. local_error:
  56.    If Err.Number <> 0 Then
  57.        StripdownBrowser = 0
  58.        Debug.Print "cBrowser.StripdownBrowser: " & Err.Number & "." & Err.Description
  59.        Err.Clear
  60.        Resume Next
  61.    End If
  62. End Function
  63.  
  64.  
  65. Function ExtractAllOfElements(yourBrowserDoc As HTMLDocument, _
  66.                                    ElementType As enElemType)
  67. On Error GoTo local_error:
  68. Dim upper   As Long
  69. Dim lcnt    As Long
  70. Dim DOC     As HTMLDocument
  71. Dim oA      As HTMLAnchorElement
  72. Dim oIMG    As HTMLImg
  73. Dim oTABLE  As HTMLTable
  74. Dim oINP    As HTMLInputElement
  75. Dim tagType As String
  76.                   
  77.                 Set DOC = yourBrowserDoc
  78.                 tagType = Choose(ElementType, "A" _
  79.                                             , "TABLE" _
  80.                                             , "IMG" _
  81.                                             , "INPUT")
  82.                 With yourBrowserDoc
  83.                    upper = (DOC.getElementsByTagName(tagType).length - 1)
  84.                    
  85.                    For lcnt = 0 To upper
  86.                       If ElementType = elemLinks Then 'LINKS
  87.                          Set oA = DOC.getElementsByTagName(tagType)(lcnt)
  88.                          RaiseEvent LinkElementReturned(upper + 1, oA)
  89.                       ElseIf ElementType = elemImages Then 'IMAGES
  90.                          Set oIMG = DOC.getElementsByTagName(tagType)(lcnt)
  91.                          RaiseEvent ImageElementReturned(upper + 1, oIMG)
  92.                       ElseIf ElementType = elemTables Then 'TABLES
  93.                          Set oTABLE = DOC.getElementsByTagName(tagType)(lcnt)
  94.                          RaiseEvent TableElementReturned(upper + 1, oTABLE)
  95.                       ElseIf ElementType = elemInput Then 'INPUTS
  96.                          Set oINP = DOC.getElementsByTagName(tagType)(lcnt)
  97.                          RaiseEvent InputElementReturned(upper + 1, oINP)
  98.                       End If
  99.                    Next lcnt
  100.                    
  101.                    Set oA = Nothing
  102.                    Set oIMG = Nothing
  103.                    Set oTABLE = Nothing
  104.                    Set oINP = Nothing
  105.                 End With
  106. local_error:
  107.    If Err.Number <> 0 Then
  108.        Debug.Print "cBrowser.ExtractAllOfElement: " & Err.Number & "." & Err.Description
  109.        Err.Clear
  110.        Resume Next
  111.    End If
  112. End Function
  113.  
  114. Private Sub Class_Terminate()
  115.            
  116.            Set oWB = Nothing
  117.            Set oDOC = Nothing
  118. End Sub
  119.