VB.NET WatiNを使って楽天RMSの自動ログインをするプログラミング方法

【VB.NET】WatiNを使って、楽天RMSの自動ログインをする

VB.NETでWeb操作をする人は他の言語に比べて圧倒的に少ないため
技術的な情報が非常に少ないのが現状です。
ましてやC#はまだマシですがVBはホントに寂しい限り。
そんなマニアックなコーディングをやってます！


VB.netでWEB操作をするには多くの方法があります。

　・WebBrowserコントロール
　
　・InternetExplorerオブジェクト

　・WatiNやSeleniumなどのフレームワーク


今回はよりマニアックなWatiNを使ったコーディングです。
いろいろやった中でWatiNフレームワークがWEB操作をする上で
一番簡単にコーディングが出来るのでオススメです。

*** WatiNを使った楽天RMSの自動ログイン ***

①WatiNを入手（これはぐぐってください！）

②WatiNを参照登録

③コーディング

Imports WatiN
Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim loginId As String = "ログインID"
        Dim loginPw As String = "ログインパスワード"
        Dim userId As String = "ユーザーID"
        Dim userPw As String = "ユーザーパスワード"
        Dim ie As New WatiN.Core.IE("https://glogin.rms.rakuten.co.jp/?sp_id=1")
        Try
            ie.TextField(WatiN.Core.Find.ByName("login_id")).Value = loginId
            ie.TextField(WatiN.Core.Find.ByName("passwd")).Value = loginPw
            ie.Button(WatiN.Core.Find.ByName("submit")).Click()
            ie.TextField(WatiN.Core.Find.ById("rlogin-username-2-ja")).Value = userId
            ie.TextField(WatiN.Core.Find.ById("rlogin-password-2-ja")).Value = userPw
            ie.Button(WatiN.Core.Find.ByName("submit")).Click()
        Catch ex As Exception
            MsgBox(ex.Message,MsgBoxStyle.OkOnly)
        Finally
            ie.AutoClose = False
            If ie.NativeBrowser IsNot Nothing Then
                ie.Dispose()
            End If
            ie = Nothing
        End Try
    End Sub
End Class

取り敢えず使いたい人はVSの新規プロジェクトを作成して
フォームにボタンを配置
ソースをコピーしてもらえればそのままで使えます。
非常に簡単なのでEC関連で自動ログイン使いたい人はやってみてください。
VS Expressが無料なので誰でも使えます。