ｖｂａ ｉｅ操作 ログインしたい

質問

いつもお世話になっております。
前回ご回答いただいた方ありがとうございました。

またまた困ったことにログインしたいサイトがあるのですがうまくできません。

ＵＲＬはhttps://www.a-q-f.com/openpc/USB0100S01Action.do?aqf_id=S0000&send_url=https://www.a-q-f.com/&get_userInfo=&r=2941249539317530063
なのですが、ログインが二つあり、左側でログインしたいのですが、ボタンを押下できません。

****************************************************
Sub 永久不滅ドットコム()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")

objIE.Visible = True
objIE.Navigate "https://www.a-q-f.com/openpc/USB0100S01Action.do?aqf_id=S0000&send_url=https://www.a-q-f.com/&get_userInfo=&r=2941249539317530063"

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop

objIE.Document.all.ID.Value = "test"
objIE.Document.all.idPassword.Value = "test"

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop

For i = 0 To objIE.Document.Links.Length - 1
If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then '何も起こらない
objIE.Document.Links(i).Click
Exit For
End If
Next i

objIE.Document.Forms(0).Click '何も起こらない
objIE.Document.Forms(0).Submit 'エラーになる

Set objIE = Nothing
End Sub
****************************************************

をやってみましたが無理でした・・・
ご教授よろしくお願いします。

回答No.2

ki-aaa · ベストアンサー

こんにちわ

これでどうかな?

Dim myObj As Object
For Each myObj In objIE.Document.Forms(0).All
'For Each myObj In objIE.Document.Forms(0).Elements
If TypeName(myObj) = "HTMLInputElement" Then
If myObj.alt = "ログイン" Then
myObj.Click
Exit For
End If
End If
Next

'For Each myObj In objIE.Document.Forms(0).Elementsで良いと思ったけどだめだった。

お礼

回答ありがとうございました。

回答No.1

todo36

ログインボタンは、

<A>

ではなく

<INPUT TYPE=IMAGE>

である。

よって、Document.Linksコレクションから拾えない。

Document.Forms(0).Elementsで回す。

お礼

回答ありがとうございました。