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

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


自動ログイン用 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
ホーム > IT > VBS > その他
   

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

コンテンツ一覧

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