HTML要素とフレームを操作する

  Protected Property IE As SHDocVw.InternetExplorer
    Get
      Return _ie
    End Get
    Set(ByVal value As SHDocVw.InternetExplorer)
      _ie = value
      RootFrame()
    End Set
  End Property

  ' URL移動
  Sub GotoUrl(ByVal url As String, Optional ByVal timeout As TimeSpan = Nothing)
    IE.Navigate(url)
    WaitIE(timeout)
    RootFrame().RootDocument().RootElement()
  End Sub

  Private _currentFrame 'これだけはどうしても遅延バインディング Option Strict Onにはできない
  Protected Property CurrentFrame
    Get
      Return _currentFrame
    End Get
    Set(ByVal value)
      _currentFrame = value
      If Not _currentFrame Is Nothing And IE.Visible Then
        RootDocument()
      Else
        CurrentDoc = Nothing
      End If
    End Set
  End Property

  Private _currentDoc As MSHTML.IHTMLDocument3
  Protected Property CurrentDoc As MSHTML.IHTMLDocument3
    Get
      Return _currentDoc
    End Get
    Set(ByVal value As MSHTML.IHTMLDocument3)
      _currentDoc = value
      If Not _currentDoc Is Nothing Then
        RootElement()
      Else
        _currentElement = Nothing
      End If
    End Set
  End Property

  Protected _currentElement As MSHTML.IHTMLElement2

  Function RootFrame() As IEWrapper
    CurrentFrame = IE
    Return Me
  End Function

  Function RootDocument() As IEWrapper
    CurrentDoc = CurrentFrame.Document
    Return Me
  End Function

  Function RootElement() As IEWrapper
    _currentElement = DirectCast(_currentDoc.documentElement, MSHTML.IHTMLElement2)
    Return Me
  End Function

  ' フレーム
  Function Frame(ByVal name As String) As IEWrapper
    Dim fs = CurrentDoc.frames

    For i As Integer = 0 To fs.length - 1
      Dim f1 As Object = fs.item(DirectCast(i, Object))
      If f1.name = name Then
        CurrentFrame = f1
        Return Me
      End If
    Next i
    Throw New ArgumentException(String.Format("指定されたnameのframeは見つかりません。name={0}", name))
  End Function

  Function Element(ByVal tagName As String, ByVal indexNum As Integer) As IEWrapper
    _currentElement = DirectCast(Element(tagName)(indexNum), MSHTML.IHTMLElement2)
    Return Me
  End Function

  Function Element(ByVal tagName As String) As MSHTML.IHTMLElementCollection
    Return _currentElement.getElementsByTagName(tagName)
  End Function

  Function ParentElement() As IEWrapper
    _currentElement = DirectCast(DirectCast(_currentElement, MSHTML.IHTMLElement).parentElement, MSHTML.IHTMLElement2)
    Return Me
  End Function

  Function IsNothingElement() As Boolean
    If _currentElement Is Nothing Then
      Return True
    Else
      Return False
    End If
  End Function

  Dim ie As New IEWrapper()
  ie.NewIE("http://XXX.XXX.XXX/")
  ie.Frame("bottom").Frame("right")
  ie.Element("html", 0).Element("body", 0).Element("table", 0).Element("tr", 2).Element("td", 4)

  ie.RootElement().Element("html", 0).Element("body", 0).Element("table", 0).Element("tr", 3).Element("td", 2)

  ie.RootFrame().Frame("bottom").Frame("left")