基本クラスの準備

Public Interface IWebScreen
End Interface

Public Interface IWebScreenOpen
  Inherits IWebScreen

End Interface

Public Interface IWebScreenLogin
  Inherits IWebScreen

  Function Login() As IWebScreen
End Interface

Public Interface IWebScreenPaging
  Inherits IWebScreen

  Function GoNext() As IWebScreen
  ReadOnly Property PageNo As Integer
End Interface

Public MustInherit Class AbstructWebScreen
  Implements IWebScreen

  Protected _ie As IEWrapper
  Public ReadOnly Property IE As Util.IEWrapper
    Get
      Return _ie
    End Get
  End Property

  Protected Sub New()
  End Sub

  Protected Sub New(ByVal screen As AbstructWebScreen)
    _ie = New IEWrapper(screen._ie)
  End Sub

End Class

Public Class WebScreenException
  Inherits Exception

  Sub New(ByVal ex As Exception)
    MyBase.new(ex.ToString(), ex)
  End Sub

  Sub New(ByVal msg As String)
    MyBase.new(msg)
  End Sub
End Class