VB.NET WatiNを使ってYahooストアクリエイターproの自動ログインをするプログラミング方法

【VB.NET】WatiNを使って、Yahooストアクリエイターproの自動ログインをする

楽天RMSに続いてYahooストアクリエイターproの自動ログインを。
YahooはビジネスIDでログインする方法と
Yahoo JAPAN IDでログインする方法があります。
今回はJAPAN IDでログインする方法のコーディングをします。


楽天と違って複数のログイン方法があるので
セッション情報からビジネスIDだったりJAPAN IDだったりと
同じURLでもログイン画面が安定しません。

必ずJAPAN IDからログイン出来るように処理を入れること。
また、Yahooの仕様なのかブラウザのbusy情報が取れないのか
読み込み中の判定がされないまま次の処理へ行くので
適宜waitを入れることが必要です。

*** WatiNを使ったYahooストアクリエイターproの自動ログイン ***

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

②WatiNを参照登録

③コーディング

        Dim loginId As String = "ログインID"
        Dim loginPw As String = "ログインパスワード"
        Dim ie As New WatiN.Core.IE("https://login.bizmanager.yahoo.co.jp/login")
        Try
            If ie.Link(WatiN.Core.Find.ByText("Yahoo! JAPAN IDで利用する")).Exists = True Then
                ie.Link(WatiN.Core.Find.ByText("Yahoo! JAPAN IDで利用する")).Click()
            End If
            System.Threading.Thread.Sleep(500) '0.5秒ウエイト

            If ie.Link(WatiN.Core.Find.ByText("別のYahoo! JAPAN IDでログイン")).Exists = True Then
                ie.Link(WatiN.Core.Find.ByText("別のYahoo! JAPAN IDでログイン")).Click()
            End If
            System.Threading.Thread.Sleep(500) '0.5秒ウエイト

            If ie.Link(WatiN.Core.Find.ByUrl("http://rdsig.yahoo.co.jp/login/pc/v/changeid/")).Exists = True Then
                ie.Link(WatiN.Core.Find.ByUrl("http://rdsig.yahoo.co.jp/login/pc/v/changeid/")).Click()
            End If
            System.Threading.Thread.Sleep(500) '0.5秒ウエイト

            If ie.TextField(WatiN.Core.Find.ByName("login")).Exists = True Then
                ie.TextField(WatiN.Core.Find.ByName("login")).Value = loginId
            End If
            ie.Button(WatiN.Core.Find.ByName("btnNext")).Click()
            System.Threading.Thread.Sleep(500) '0.5秒ウエイト

            ie.TextField(WatiN.Core.Find.ByName("passwd")).Value = loginPw
            ie.Button(WatiN.Core.Find.ByName("btnSubmit")).Click()
        Catch ex As Exception
            Throw ex
        Finally
            ie.AutoClose = False
            If ie.NativeBrowser IsNot Nothing Then
                ie.Dispose()
            End If
            ie = Nothing
        End Try

最近は楽天 Amazon に負けじとYahooショッピングが盛り上がってるので
需要があれば！