タイトル : WebBrpwser内で自動ログインを 投稿日 : 2012/08/18(Sat) 18:13 投稿者 : Arms
今回は、WebBrowser内だけで自動ログインが出来るようにしたいと考えています。 VB歴は、1ヶ月以内 環境は、WindowsXP VB2010Express IE8 を使っています。 今自分なりに作ったコードは下記となります。 ivate Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted '読み込み待ちのコード↓ WebBrowser1.Url = New Uri("ttp://○○○") Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete System.Windows.Forms.Application.DoEvents() Loop ’ログインを行うコード↓ With WebBrowser1 .Document.GetElementById("textfield").SetAttribute("Value", "自Id") .Document.GetElementById("textfield2").SetAttribute("Value", "自Passwd") .Document.GetElementsByTagName("Submit")(0).InvokeMember("click") End with End Sub End Class このコードでデバッグは通るのですが、うまくログインされません。 エラーなども何も出ませんでした。 URLの読み込み待ちをし、読み込み完了後ログインをするコードとして 何か変なところありますでしょうか? 基礎の部分でも間違ってる部分があるかもしれませんが、ご教授をお願いします。 |