我们正在尝试创建https://netbanking.hdfcbank.com/netbanking/的自动登录, 但未能将值传递到文本框
我们尝试使用下面的代码,但如果有任何人无法登录,请指出我正在做的错误将对我有很大帮助。
Dim HTMLdoc As HTMLDocument
Dim oBrowser As InternetExplorer
Dim oHTML_Element As IHTMLElement
Dim sURL As String
sURL = "https://netbanking.hdfcbank.com/netbanking/"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.navigate sURL
oBrowser.Visible = True
Do 'Wait till the Browser is loaded...........................
Loop Until oBrowser.readyState = READYSTATE_COMPLETE
Set HTMLdoc = oBrowser.document
Sleep 2000
HTMLdoc.all("fldLoginUserId") = "45095398"
HTMLdoc.all("arcotsubmit").Click
Do 'Wait till the Browser is loaded...........................
Loop Until oBrowser.readyState = READYSTATE_COMPLETE