用意した文章をgooﾌﾞﾛｸﾞにﾜﾝｸﾘｯｸで投稿できるﾏｸﾛを作成しています｡
しかし途中でｴﾗｰが起きて困っています｡
ﾀｲﾄﾙ入力､本文入力が失敗します｡
良い解決策は無いでしょうか｡
'----------------------------ﾌﾞﾛｸﾞgoo投稿
Sub blog11goo()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "https://login.mail.goo.ne.jp/id/authn/LoginStart"
IE_Complete IE
IE.Document.all.uname.Value = "---ﾒｰﾙｱﾄﾞﾚｽ---"
IE.Document.all.Pass.Value = "---ﾊﾟｽﾜｰﾄﾞ---"
For Each obj In IE.Document.getElementsByTagName("input")
obj.Click
Next
IE_Complete IE
Sleep 2000
IE.Navigate "http://blog.goo.ne.jp/admin/newentry/"
IE_Complete IE
Sleep 4000
Set ti = IE.Document.getElementsByName("entry/entry_title")(0)
Set ho = IE.Document.getElementsByName("entry/entry_text")(0)
ti.Value = "ﾀｲﾄﾙtest" '---ﾀｲﾄﾙ入力---
ho.Value = "本文test" '---本文入力 ---
IE_Complete IE
End Sub
Public Sub IE_Complete(ByVal IE As Object) 'IE読み込みが完了するまで待つ
Do While IE.Busy = True
DoEvents
Loop
Do While IE.Document.ReadyState <> "complete"
DoEvents
Loop
End Sub
