その他　-　自動ログイン用 VBSサンプル集　-　Windows ＆ IT

自動ログイン用　VBSサンプル集その他

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

au お客様サポート

2012.9.8

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://cs.kddi.com/support/login.html"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Document.auLogin.UserID.value = "サポートID"
objIE.Document.auLogin.Password.value = "パスワード"
objIE.Document.auLogin.Submit

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

ページTOP

EZナビ

2013.7.20

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://eznavi.auone.jp/?ctl=0010"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Document.f1.login.Click
Do Until objIE.Busy = False
WScript.sleep(250)
Loop

objIE.Document.f1.loginAliasId.value = "au ID"
objIE.Document.f1.loginAuonePwd.value = "パスワード"
objIE.Document.f1.btn_login.Click

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

ページTOP

toto

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://store.toto-dream.com/dcs/M/MPA/MPA01.do?op=init"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Document.Forms("MPA01Form").elements("idOrNicknam").value = "会員ID"
objIE.Document.Forms("MPA01Form").elements("passwd").value = "パスワード"
For Each objLINK In objIE.Document.Links
If objLINK.InnerText = "ログイン" Then
objLINK.Click
Exit For
End If
Next

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

ページTOP

ジョブコネクト

2014.2.17

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.tccjob.net/Client/Form/Login.aspx"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Document.aspnetForm.Item(2).value = "ログインID"
objIE.Document.aspnetForm.Item(3).value = "パスワード"

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

ページTOP

賢索くん

2014.1.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://www.pca-k.com/"
Do Until objIE.Busy = False
WScript.sleep(250)
Loop
objIE.Document.Forms(0).user_login_id.value = "ユーザID"
objIE.Document.Forms(0).user_password.value = "パスワード"
objIE.Document.Forms(0).Submit

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

ページTOP

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

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


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

自動ログイン用 VBSサンプル集 その他

自動ログイン用 VBSサンプル集 その他

au お客様サポート

EZナビ

toto

ジョブコネクト

賢索くん

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

コンテンツ一覧

自動ログイン用　VBSサンプル集その他

自動ログイン用　VBSサンプル集その他

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