ホーム　＞　IT　＞　VBS　＞　官公庁編
目次　｜　元のページ 前のページ　｜　次のページ サイトマップ　｜　ページEND

自動ログイン用　VBSサンプル集 官公庁編

自動ログイン用　VBSサンプル集 官公庁編


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


e-Tax

 2014.3.14


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://clientweb.e-tax.nta.go.jp/UF_WEB/WP000/FCSE00001/SE00S010SCR.do"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop

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


ページTOP


確定申告

 2014.3.16


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.keisan.nta.go.jp/h25/ta_top.htm"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop

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


ページTOP


電子申請

 2014.3.18


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.e-tetsuzuki99.com/eap-jportal/MainMenu.do?lcd=112038"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop

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


ページTOP


年金

 2013.10.16


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://www3.idpass-net.nenkin.go.jp/neko/Z01/W_Z0101SCR.do"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop
objIE.Document.Forms(0).userId.value = "ユーザID"
objIE.Document.Forms(0).pswd.value = "パスワード"
objIE.Document.Forms(0).forward_Z0101.Click

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


ページTOP


ハローワーク

 2013.12.14


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.hellowork.go.jp/servicef/130020.do?action=initDisp&screenId=130020"
Do Until objIE.Busy = False
    WScript.sleep(250)
Loop
objIE.Document.Forms(0).kyushokuUmu(0).checked = True
objIE.Document.Forms(0).kyushokuNumber1.value = "求職番号上５桁"
objIE.Document.Forms(0).kyushokuNumber2.value = "求職番号下７桁"
objIE.Document.Forms(1).kyushokuUmu2(0).checked = True
objIE.Document.Forms(1).kyushokuNumber3.value = "求職番号上５桁"
objIE.Document.Forms(1).kyushokuNumber4.value = "求職番号下７桁"

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