1. まとめトップ

会員用Webページに「自動ログイン」するVBS例!全スクリプトを公開!修正方法も記載あり!ご参考に!

会員用Webページに「自動ログイン」するVBS例!全スクリプトを公開!修正方法も記載あり!ご参考に!

更新日: 2020年06月01日

1 お気に入り 230 view
お気に入り追加

この記事は私がまとめました

chinpei3さん

※カード会社JCBの会員用ページ「MyJCB」に会員IDとパスワードで自動ログインするスクリプト見本です。

※↓↓●マークにID(アカウント)、▲マークにパスワードを設定し、VBSスクリプトを拡張子を「〇〇〇.vbs」として保存し、このファイルをダブルクリックして実行させます。

※↓↓下のスクリプト内の「objIE.Navigate2 " ここに、自分がログインしたいアクセス先ページのURLを入力します"」

ーーーーーーーーーーーーーーーーーーーーーーーーー

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor",100000,"REG_DWORD"


Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.FullScreen = False
objIE.Top = 0
objIE.Left = 0
objIE.Width = 1280
objIE.Height = 964

objIE.Toolbar = True
objIE.MenuBar = True
objIE.AddressBar = True
objIE.StatusBar = True

objIE.Navigate2 "https://my.jcb.co.jp/Login"
         ↑ーーー>会員ID/パスワードを入力するページのアドレス(URL)を入力
Do Until objIE.Busy = False
WScript.sleep(250)
Loop

objIE.Document.loginForm.userId.value = "●●●●●●●●"
        ❶~~~~~❷会員IDのname
objIE.Document.loginForm.password.value = "▲▲▲▲▲▲"
        ❶~~~~~❸パスワードのname
objIE.Document.loginForm.Submit
        ❶~~~~~
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.AppActivate "Explorer"

ーーーーーーーーーーーーーーーーーーーーーーーーー

-------↓↓下は、上のVBSの修正部分の見つけ方を図示したものです

※JCBの会員ログインページにアクセスした後↓↓

※↓↓下の操作で判明した、会員IDやパスワードを入力するフォーム名を上のVBSの❶~~~~のように反映させ修正します

ー・-・-・-・-・-・-・-・-・-・-・-・-

<form name="loginForm" method="POST" action="/iss-pc/member/user_manage/Login"
~~~~~~~~~~~~~
onsubmit="if(isSubmitted_form1()){return false}setSubmitted_form1(true);getDevicePrint();">
<h3 class="hdg-3 hdg-blue">MyJCBに登録済の方</h3>
<div class="primary-inner">
<div class="login-form">
<dl>
<dt>
<label for="userId">MyJCB ID</label>
        ~~~~~~~~
</dt>
<dd>
<div id="userIdclass" class="login-input">
<input type="text" id="userId" name="userId" maxlength="30"
                ~~~~~~~~~
onblur="validateMyJId(event,0);" onkeyup="validateMyJId(event,0);" onmouseover="mouseOverForm(event);"/>
</div>
<p class="error-message-form" id='myjIdErrMsg'></p>
</dd>
</dl>

<dl>
<dt class="password-txt">
<label for="password">MyJCB パスワード</label>
           ~~~~~~~~~~
</dt>
<dd>
<div id="passwordclass" class="password-input">
<input type="password" id="password" name="password"
                    ~~~~~~~~~~
maxlength="30" onblur="validatePassword(event);" onkeyup="validatePassword(event);" onmouseover="mouseOverForm(event);" style="font-family:'Times New Roman','Tahoma'"/>
</div>
<p class="error-message-form" id='passwordErrMsg'></p>

ー・-・-・-・-・-・-・-・-・-・-・-・-

※上のVBSの各スクリプト毎の意味は↓↓一番下の記事をご参考に

ーーーーーーーーーーーー

※さくらインターネット会員メニューログインページへの自動ログインVBS見本

※↓↓下のスクリプト内の「objIE.Navigate2 " ここに、自分がログインしたいアクセス先ページのURLを入力します"」

※↓↓VBS

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom\ZoomFactor",100000,"REG_DWORD"


Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.FullScreen = False
objIE.Top = 0
objIE.Left = 0
objIE.Width = 1280
objIE.Height = 964

objIE.Toolbar = True
objIE.MenuBar = True
objIE.AddressBar = True
objIE.StatusBar = True

objIE.Navigate2 "https://secure.sakura.ad.jp/auth/login?url=https%3A%2F%2Fsecure.sakura.ad.jp%2Fmenu%2Ftop%2Findex.php"

Do Until objIE.Busy = False
WScript.sleep(300)
Loop

objIE.Document.frm.memberLogin_membercd.value = "●●●●●●●●"
objIE.Document.frm.memberLogin_password.value = "▲▲▲▲▲▲▲"
objIE.Document.frm.Submit

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.AppActivate "Explorer"

ーーーーー

※↓↓「さくらインターネットの会員メニューログイン」ページのHTMLソースの 会員番号・パスワード 入力該当部分

<form id="form" class="main-form form-horizontal" method="post" action="/auth/login"
~~~~~~~~
autocomplete="off" name='frm'>
          ~~~~~~ 

<input type="hidden" value="" id="memberLogin_sidSub" name="memberLogin[sidSub]">
<section id="input-login">
<div class="shelf">
<table class="rack light">
<tbody>
<tr>
<th>
<label class="label-large">会員ID</label>
             ~~~~~

</th>
<td>
<input type="text" class="form-control validate[required,custom[membercd]]" value="" id="memberLogin_membercd"
name="memberLogin[membercd]" maxlength="8" autocomplete="off" placeholder="例:
~~~~~~~~~~~~~~~~~
nnn12345">
</td>
</tr>
<tr>
<th>
<label class="label-large">パスワード</label>
             ~~~~~~
</th>
<td>
<input type="password" id="memberLogin_password"
name="memberLogin[password]" class="form-control validate[required]"
~~~~~~~~~~~~~~~~~
maxlength="32" autocomplete="off">
</td>
</tr>
</tbody>
</table>
<div class="row button_row">
<div class="text-center">
<div class="form-group">
<button type="button" class="btn btn-hg btn-info" id="btn-login">ログイン(認証)</button>
</div>

ー・-・-・-・-・-・-・-

※↓↓ブラウザに備わっている「開発ツール」で「要素」を調べる方法などが解説されています

1 2