仮想キーボードを使ってWebページに:エクセルVBA自動化へのログインは、私はVBAでこのWebページにログインしようとしている
Sub scraping()
Dim IE As Object
Dim UserName As String
Dim Password As String
Dim LogonForm As HTMLFormElement
Dim SubmitInput As HTMLInputElement
UserName = "XXXXXXXXx"
Password = "XXXXXXXXX"
With Session
Set IE = New InternetExplorer
With IE
.Navigate "https://www.unicajabanco.es/PortalServlet?pag=1110902071492&menu0=particulares"
.Visible = True
Do Until (.READYSTATE = 4 And Not .Busy)
DoEvents
Loop
Set LogonForm = .document.datos
With LogonForm
.user.Value = UserName
.clave.Focus
.clave.Value = Password
For Each SubmitInput In .getElementsByTagName("INPUT")
If InStr(SubmitInput.getAttribute("alt"), "de Banca") Then
SubmitInput.Click
Exit For
End If
Next
End With
End With
End With
End Sub
しかしid="clave"
と入力、パスワードを入力するために接続された仮想キーボードを持っています。
私はを使用してclave
の入力を書き込もうとしましたが、ENTRAR
ボタンをクリックするとパスワードが認識されません。 clave
入力に値なしのENTRAR
ボタンをクリックした場合です。
私もこのコードを試してみたが、それは動作しません:
For Each SubmitInput In .getElementsByClassName("tecla")
If InStr(SubmitInput.getAttribute("onclick"), "W") Then
SubmitInput.Click
Exit For
End If
Next
そして
For Each SubmitInput In .getElementsByTagName("div")
If InStr(SubmitInput.getAttribute("onclick"), "W") Then
SubmitInput.Click
Exit For
End If
Next
を私はいくつかの助けがパスワードを入力し、フォームを送信しますができればそれは理解されるであろう。
ご意見ありがとうございます。私はバーチャルキーでパスワードを入力します – Victor