ホーム > IT > VBS > 銀行編
目次 | 元のページ 前のページ | 次のページ サイトマップ | ページEND

自動ログイン用 VBSサンプル集 銀行編


自動ログイン用 VBSサンプル集 銀行編


各種銀行の各Webサイトに、自動ログインするためのVBSコードのサンプルを提示しています
サンプルコードの中で使用しているサブルーチンは、各ページ共通で、ページ下に提示してあります



あおぞら銀行

2016.9.25


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://www.ib2.aozorabank.co.jp/ib/index.do?PT=BS&CCT0080=0398"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Document.Forms(0).BTX0010.value = "契約番号"
objIE.Document.Forms(0).S.checked = False
objIE.Document.Forms(0).BPW0020.value = "パスワード"
objIE.Document.Forms(0).forward_BSM2010.Click

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


ページTOP


じぶん銀行

2015.1.7


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 "http://www.jibunbank.co.jp/"
' Do Until objIE.Busy = False
' WScript.sleep(1000)
' Loop
objIE.Navigate2 "https://bk02.jibunbank.co.jp/ibretail/RetailLogin.html?2014091300"
Do Until objIE.Busy = False
WScript.sleep(1000)
Loop
objIE.Document.frmLogon.fldLoginUserCRN1.value = "お客さま番号 上5桁"
objIE.Document.frmLogon.fldLoginUserCRN2.value = "お客さま番号 下5桁"
objIE.Document.frmLogon.fldPassword.value = "ログインパスワード"
objIE.Document.frmLogon.Submit

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


ページTOP


ジャパンネット銀行

2014.3.31


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://login.japannetbank.co.jp/wctx/LoginAction.do?loginIdFlg=0"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop
objIE.Document.Forms(0).TenNo.value = "店番号"
objIE.Document.Forms(0).KozaNo.value = "口座番号"
objIE.Document.Forms(0).Pw.value = "パスワード"
objIE.Document.Forms(0).login.Click

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


ページTOP


三菱東京UFJ銀行

2014.4.4


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://entry11.bk.mufg.jp/ibg/dfw/APLIN/loginib/login?_TRANID=AA000_001"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop
objIE.Document.MainForm.KEIYAKU_NO.value = "契約番号"
objIE.Document.MainForm.PASSWORD.value = "パスワード"
For n = 0 To objIE.Document.images.Length - 1
    Set objIMG = objIE.Document.images(n)
    If InStr(objIMG.src, "https://directg.s.bk.mufg.jp/refresh/imgs/_DIRECT_IMAGE/LOGINOUT/btn_login_off.gif") > 0 Then
    objIMG.Click
Exit For
End If
Next

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


ページTOP


三菱UFJ信託銀行

2013.12.10


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://www.direct.tr.mufg.jp/ib/login/GLG01010101.do"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop
objIE.Document.GLG01010101Form.userId.value = "会員番号"
objIE.Document.GLG01010101Form.SoftKeyMode.click
objIE.Document.GLG01010101Form.password1.value = "パスワード"
objIE.Document.GLG01010101Form.Item(7).click

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


ページTOP


楽天銀行

2014.4.9


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://fes.rakuten-bank.co.jp/MS/main/RbS?CurrentPageID=START&&COMMAND=LOGIN"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop
objIE.Document.LOGIN.Item(0).value = "ユーザID"
objIE.Document.LOGIN.Item(1).value = "パスワード"
objIE.Document.LOGIN.Item(2).Click

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


ページTOP



自動ログイン用 VBSサンプル集 サブルーチン編


各処理(VBS本体)で共通的に使用される処理をサブルーチン化して抜き出してあります
各処理(VBS本体)と同じフォルダーに入れておけば、自動的に呼び出され、実行されます


目次 | 元のページ 前のページ | 次のページ サイトマップ | ページTOP
ホーム > IT > VBS > 銀行編
   

© 2014 abhp.net All Rights Reserved.
自動ログイン用 VBSサンプル集 目次
WSH VBScript とは 書き方 構文
WSH VBScript とは
WSH VBScript (VBS) 書き方 構文 作り方 前のページ
WSH VBScript (VBS) 自動ログイン用 サンプル集
銀行編 現在のページ
証券会社編 次のページ
カード編
官公庁編
ネットワーク サービス編
その他編

コンテンツ一覧

ページTOP
ページTOP
ページTOP
ページTOP