こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

-広告-

解決済みの質問

vbaでdcmxにログインしたいのですが、

https://cfg.smt.docomo.ne.jp/auth/cgi/anidlogin?rl=https%3A%2F%2Fi.mydocomo.com%2Foid%2Flg%2Flogin%3Fmode%3Dlogin%26return_to%3Dhttps%253A%252F%252Fwww1.dcmx.jp%252Fsdys%252Fsp%252Fopenid%252Fopenid_entry_input.do%26user_check%3D54cad3f373419a99d7830f9af7d22273c953e635c3a362c39338ab841078b1134f2dcd5104b0c9233fd98caf2ece0ca70000000000000000&si=0001&authif=1
のページなのですが

*******************************************************
Dim myObj As Object
Dim objIE As InternetExplorer

Sub DCMX()
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True

objIE.navigate "https://cfg.smt.docomo.ne.jp/auth/cgi/anidlogin?rl=https%3A%2F%2Fi.mydocomo.com%2Foid%2Flg%2Flogin%3Fmode%3Dlogin%26return_to%3Dhttps%253A%252F%252Fwww1.dcmx.jp%252Fsdys%252Fsp%252Fopenid%252Fopenid_entry_input.do%26user_check%3D77016eccfd48449791dc76443259e46c30e0f39f25bc31902f48550e56b1176f73ec037e4b531368a8587aa1b5208c7d0000000000000000&si=0001&authif=1"

Call IE_wait

For Each myObj In objIE.document.all.tags("input")
If myObj.Name = "authid" Then
myObj.Value = "あああ@yahoo.co.jp"
Exit For
End If
Next

For Each myObj In objIE.document.all.tags("input")
If myObj.Name = "authpass" Then
myObj.Value = "あああ"
Exit For
End If
Next

For Each myObj In objIE.document.all.tags("input")
If myObj.Name = "subForm" Then
myObj.Click
Exit For
End If
Next

End Sub
Sub IE_wait()
Const READYSTATE_COMPLETE As Long = 4

Do Until objIE.readyState = READYSTATE_COMPLETE
Loop

Do While objIE.Busy = True
DoEvents
Loop

End Sub
*******************************************************

でログインボタンを押下でき、VBAではエラーにはならないのですが、
次のページで

*******************************************************
エラー
大変申し訳ございません。
お探しのページまたはファイルが見つかりませんでした。(IN-E-1001)
*******************************************************
となってしまいます。

DCMXではなく、
objIE.navigate "https://id.smt.docomo.ne.jp/cgi7/id/menu"
のdアカウントなら問題なく次のページも表示されます。

なぜDCMXはエラーになってしまうのでしょうか?

投稿日時 - 2015-12-27 18:03:51

QNo.9102208

暇なときに回答ください

質問者が選んだベストアンサー

https://www2.dcmx.jp/dcmx_pc/aas?processCode=90Top

objIE.Document.getElementsByClassName("memlogBtnDid memlogBtnMain memlogFcfff")(0).Click
で、(アカウントが無いので確認出来ませんが)トップページから遷移させてみるとか。

以降は、
Call IE_wait
With objIE.document.forms("DiForm")
.Item("authid").Value = "あああ@yahoo.co.jp"
.Item("authpass").Value = "あああ"
.Item("subForm").Click
End With
こんな感じで。

投稿日時 - 2015-12-30 06:33:17

お礼

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

投稿日時 - 2016-01-02 23:38:11

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-

あなたにオススメの質問

オススメのQ&Aはありません。
-広告-
-広告-