楽天証券サーバへの自動ログイン

<startup useLegacyV2RuntimeActivationPolicy="true">
    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>

Public Class RakutenRssWrapper

  Private Shared ReadOnly log As log4net.ILog = log4net.LogManager.GetLogger(System.Reflection.MethodBase.GetCurrentMethod().DeclaringType)

  Private Shared ReadOnly RSS_VER As String = "1020"

  Private Shared ReadOnly USER_ID As String = "username"
  Private Shared ReadOnly PASS_WD As String = "password"

  Private _rssif As New Mkspif.Client()
  Public ReadOnly Property client As Mkspif.Client
    Get
      Return _rssif
    End Get
  End Property

  Private Shared ReadOnly _instance As New RakutenRssWrapper
  Public Shared ReadOnly Property Instance As RakutenRssWrapper
    Get
      Return _instance
    End Get
  End Property

  Private Sub New()
    Connect()
  End Sub

  Function Connect() As Boolean
    Return ConnectInner()
  End Function

  Private Function ConnectInner() As Boolean

    If _rssif.IsConnected = False Then
      _rssif.ControlRss = True
      _rssif.Version = RSS_VER
      _rssif.Connect(USER_ID, PASS_WD)
    End If

    log.WarnFormat("RSSログイン状態={0}  RSS起動状態={1}", _rssif.IsConnected, _rssif.IsRssRunning)
    Return (_rssif.IsConnected And _rssif.IsRssRunning)
  End Function

End Class

Dim rssWrapper As RakutenRssWrapper = RakutenRssWrapper.Instance
Dim isSuccess As Boolean = rssWrapper.Connect()