<TD class=buttons rowSpan=2><INPUT

質問

<TD class=buttons rowSpan=2><INPUT class="button carryOut section" tabIndex=3 onclick=gotoPageFromAA011(); value=ログイン type=button>
IEで以上のようなボタンを押すVBSを教えてください。

回答No.2

1050 円（@1050YEN） · ベストアンサー

gotoPageFromAA011
という関数は、JavaScriptの関数です。

書き方や呼び出し方云々の問題ではなく、直接実行はVBScriptで行える場所にはありません。

Call gotoPageFromAA011()
↑よってこの部分は不要です。

要は、ログインボタンエレメントを取得して、クリックさせてあげると、中で勝手にJavaScriptが実行します。

gotoPageFromAA011をコメントアウトし、以下のコードを追加してください。

'Call gotoPageFromAA011()　←　コメントアウト

'↓以下追加
Call SubmitFunctionCall(objIE.Document)

Sub SubmitFunctionCall(p_doc)
Dim l_divLogin
Set l_divLogin = p_doc.getElementById("loginForms")

Dim l_divSec
Set l_divSec = l_divLogin.ChildNodes(0)

Dim l_htmTbl
Set l_htmTbl = l_divSec.ChildNodes(0)

Dim l_htmTblRow
Set l_htmTblRow = l_htmTbl.Rows(0)

Dim l_htmTblCell
Set l_htmTblCell = l_htmTblRow.Cells(1)

Dim l_htmBtn
Set l_htmBtn = l_htmTblCell.ChildNodes(0)
Call l_htmBtn.Click()
End Sub

ってかこの手の質問は、「ASPカテゴリ」ではなく、「JavaScriptカテゴリ」か「VBカテゴリ」に質問した方が素早い回答を得られますよ。

回答No.1

noname#116115

onclick=gotoPageFromAA011();
↓
onclick="gotoPageFromAA011()"

呼び出す方法の例
gotoPageFromAA011
Call gotoPageFromAA011()

補足

Option Explicit
Dim objIE
Dim strBody
Set objIE = CreateObject("InternetExplorer.Application")

objIE.Width = 1050
objIE.Height = 1000
objIE.Left = 0
objIE.Top = 0

objIE.Visible = True
objIE.Navigate "https://entry11.bk.mufg.jp/ibg/dfw/APLIN/loginib/login?_TRANID=AA000_001"

Do Until objIE.Busy = False
WScript.sleep(250)
Loop'
Do While objIE.document.readyState <> "complete"
Loop

'※ ID P/W は架空のものです。
objIE.Document.MainForm.KEIYAKU_NO.value ="1234567890"
objIE.Document.MainForm.PASSWORD.value ="abcdefgh"
Call gotoPageFromAA011()

早速回答していただきありがとうございました。

上記を実行すると最後の行で以下のエラーが出ました。
「エラー：オブジェクトでサポートされていないプロパティー、メソッドです。」
初心者なので良くわかりませんが、UF＠銀行のログイン用のVBScriptなので、セキュリティーかなにかが効いているのでしょうか？
ID P/W はうまく入力できます。