解決済み

VB2005でWebBrowserでログイン

  • すぐに回答を!
  • 質問No.3308910
  • 閲覧数199
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 34% (114/329)

今まで、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

ベストアンサー率 54% (1660/3060)

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

'だと思うけど、何故か手元ではナビゲーションがキャンセルされました、と出るんだよなあ・・・
感謝経済
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


感謝指数をマイページで確認!

ピックアップ

ページ先頭へ