VB2005でWebBrowserでログイン

質問

今まで、ExcelのVBAを手探り状態で使い、IEを操作していたものです宜しくお願い致します。今回、VB2005EEをインストールしたので、Excelで行っていた作業を移行させようと思ってネットでサンプルを手にいれ使おうかと考え行き詰りました。どなたか教えてください。
formにWebBrowserコントロールを貼り付けてネットのログイン画面を
With WebBrowser1
.Navigate("http://xxxx.xxx.co.jp/xxx/mail?roginname=abcd123")
.Document.All.GetElementsByName("acctname")(0).InnerText = "abcd123"
.Document.All.GetElementsByName("passwd")(0).InnerText = "1234567"
.Document.Forms(0).InvokeMember("submit")
End With
としたところ、.Documentの行で、オブジェクト参照がオブジェクト インスタンスに設定されていません。のエラーが出てしまいます。
ヒントには、オブジェクトインスタンスの作成には、newキーワードを使用します。と、メソッドを呼び出す前に、オブジェクトがnullでよいかどうか確認してくださいとあます。
私は、いったいどうすればいいのでしょうか？基本的な部分が分かっていないだけだと思いますが、教えて頂けないでしょうか？

回答No.1

himajin100000 · ベストアンサー

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hoge As System.Windows.Forms.HtmlElementCollection

With WebBrowser1
.Navigate( "http://***.****.***/" )
Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete '読み込み終わるまで待つ

System.Windows.Forms.Application.DoEvents()

Loop
.Document.All.GetElementsByName("acctname")(0).InnerText = "abcd123"
.Document.All.GetElementsByName("passwd")(0).InnerText = "1234567"
.Document.Forms(0).InvokeMember("submit")

End With

End Sub
End Class

'だと思うけど、何故か手元ではナビゲーションがキャンセルされました、と出るんだよなあ・・・