iT邦幫忙

0

VBA 網路登入請教

目的:登入網銀
結果:試過以下方式,都無法成功,程式如下:

Sub firstb()

Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate ("https://ebank.firstbank.com.tw/PTLB2C/index.xhtml")
'ShowWindow ie.hwnd, SW_SHOWMAXIMIZED
Do While ie.Busy = True Or ie.ReadyState <> 4
DoEvents
Loop

Set a = ie.Document.getElementById("form:custId")
Set b = ie.Document.getElementsByTagName("input")
Set c = ie.Document.getElementsByName("form:custId")(0)
Set d= ie.Document.getElementByclassname("ui-inputfield ui-inputtext ui-widget ui-state-default ui-corner-all inputCheck ui-state-focus")(0)

a.value ="XXXX"
or
b.value="XXXX"
c.value="XXXX"
d.value="XXXX"

End Sub

dragonH iT邦大師 1 級 ‧ 2019-11-11 23:36:25 檢舉
登入網銀?
喵仔 iT邦新手 5 級 ‧ 2019-11-11 23:55:07 檢舉
因工作需求,需要登入網路銀行,但抓不到登入一銀的網頁~~

1 個回答

0
giulian
iT邦新手 4 級 ‧ 2019-11-13 01:42:22

你要選的目標是在Iframe裡面,要先選到iframe後才能再選
如下
document.getElementById("iFrameID").contentWindow.document.getElementById("form:custId")

喵仔 iT邦新手 5 級 ‧ 2019-11-14 01:03:13 檢舉

可以了耶,謝謝你的幫忙,需要花時間好好研究。

我要發表回答

立即登入回答