VBAで教えてgooに自動ログインしたい

質問

Sub 教えてgoo()
Dim objIE As Object
Const READYSTATE_COMPLETE As Long = 4

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart?Site=oshiete.goo.ne.jp&Success=http%3A%2F%2Foshiete.goo.ne.jp%2F"

Do While objIE.Busy = True
DoEvents
Loop

Do Until objIE.ReadyState = READYSTATE_COMPLETE
Loop

objIE.document.all.all("uname").Value = "gooID"
objIE.document.all.all("pass").Value = "gooPW"

Do While objIE.Busy = True
DoEvents
Loop
Do Until objIE.ReadyState = READYSTATE_COMPLETE
Loop

objIE.document.all("ログイン").Click

End Sub
---------------------------------------------------------
を実行してみても、
objIE.document.all.all("uname").Value = "gooID"
objIE.document.all.all("pass").Value = "gooPW"
objIE.document.all("ログイン").Click
の部分がエラーになってしまいます。

教えてgooは、VBAでログインできないように規制されてるのでしょうか？

回答No.1

xls88 · ベストアンサー

下記で試してください。
objIE.document.all("uname").Value = "gooID"
objIE.document.all("pass").Value = "gooPW"
objIE.document.all("Submit3").Click

お礼

ありがとうございます。