「楽天RMS」に自動ログインするVBScript

Internet Explorerで「楽天RMS」に自動ログインするVBScript

ファイル名を「RMS_Login.vbs」とかで保存してダブルクリック!


R_id="あなたのR-Login ID"
R_pw="あなたのR-Loginパスワード"
U_id="あなたの楽天会員のユーザID"
U_pw="あなたの楽天会員のユーザパスワード"

は、ご自身のモノに書き換えてください。


ここから- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
use_ie

Sub use_ie()
Dim ie

'設定 - ここから
R_id="あなたのR-Login ID"
R_pw="あなたのR-Loginパスワード"
U_id="あなたの楽天会員のユーザID"
U_pw="あなたの楽天会員のユーザパスワード"
'設定 - ここまで

'ログインURL
url="https://mainmenu.rms.rakuten.co.jp/rms"

On Error Resume Next
Set SO = CreateObject("Shell.Application")
Set ShWins = SO.Windows()
For Each W In ShWins
if Left(W.LocationURL,4)="http" then
Set ie=W
Exit For
end if
Next

If ie Is Nothing Then
Set ie = CreateObject("InternetExplorer.Application")
End If
ie.Visible = True

ie.Navigate2 "https://mainmenu.rms.rakuten.co.jp/rms"
     waitIE ie ' IEがビジー状態の間待ちます

'STEP(1) - R-Login IDの認証
ie.document.getElementsByName( "login_id" )(0).Value=R_id
ie.document.getElementsByName( "passwd" )(0).Value=R_pw
ie.document.getElementsByName("submit")(0).click()

     waitIE ie ' IEがビジー状態の間待ちます

'STEP(2) - 楽天会員の認証
ie.document.getElementsByName( "user_id" )(0).Value=U_id
ie.document.getElementsByName( "user_passwd" )(0).Value=U_pw
ie.document.getElementsByName("submit")(0).click()
 

    ' 制御を破棄
    'ie.Quit
    Set ie = Nothing
End Sub


' IEがビジー状態の間待ちます
Sub waitIE(ie)
    On Error Resume Next
for i=0 to 12
        WScript.Sleep 500
    if ie.Busy <> True Or ie.readystate = 4 then
i=12
end if
next
    WScript.Sleep 1000
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ここまで