カード編　-　自動ログイン用 VBSサンプル集　-　Windows ＆ IT

自動ログイン用　VBSサンプル集カード編

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

JCB

2011.6.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 "https://my.jcb.co.jp/Login"

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

objIE.Document.loginForm.userId.value = "MyJCB ID"
objIE.Document.loginForm.password.value = "パスワード"
objIE.Document.loginForm.Submit

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

ページTOP

Oki Doki ランド

2013.12.23

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.okidokiland.com/odl/login/index"

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

objIE.Document.Forms(1).Item(2).value = "MyJCB ID"
objIE.Document.Forms(1).Item(3).value = "パスワード"
objIE.Document.Forms(1).Submit

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

ページTOP

楽天カード

2014.4.22

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://e-navi.rakuten-card.co.jp/login/show"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Document.Forms(0).u.value = "ユーザID"
objIE.Document.Forms(0).p.value = "パスワード"
objIE.Document.Forms(0).Submit

objIE.Navigate2 "https://point.rakuten.co.jp/", &H800

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

ページTOP

ジャックスインターコムクラブ

2017.2.2

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.jaccs.co.jp/Service?_TRANID=JALG00001_00M"

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

objIE.Document.Forms(0).IUSERID.value = "ユーザID"
objIE.Document.Forms(0).IPASSWORD.value = "ログインパスワード"

set btn = objIE.document.getElementsByTagName("input")
for each i in btn
if (lcase(i.type) = "image") and (i.alt = "ログイン") then
i.onclick()
exit for
end if
next

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

ページTOP

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

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


目次　｜　元のページ	前のページ　｜　次のページ	サイトマップ　｜　ページTOP

自動ログイン用 VBSサンプル集 カード編

自動ログイン用 VBSサンプル集 カード編

JCB

Oki Doki ランド

楽天カード

ジャックス インターコムクラブ

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

コンテンツ一覧

自動ログイン用　VBSサンプル集カード編

自動ログイン用　VBSサンプル集カード編

ジャックスインターコムクラブ

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