タイトル : Re^6: WebBrpwser内で自動ログインを 投稿日 : 2012/08/22(Wed) 00:23 投稿者 : VBレスキュー(花ちゃん)
かんじんの URL が間違っています。 http://www. → https://www. それと .Document.Forms(0).InvokeMember("Submit") の部分も メールアドレス と パスワードを変更して下記コードを変更せずそのまま試して見て下さい。 先に投稿されたコードにメールアドレスとパスワードが明記されていますが大丈夫ですか? (取り敢えず、伏せておきますが、変更等の処置を取られますように) Public Class Form1 Private myUrl As Uri Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True myUrl = New System.Uri("https://www.sonomanma.co.jp/login.php") WebBrowser1.Url = myUrl End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _ Handles WebBrowser1.DocumentCompleted If Not TypeName(sender) = "WebBrowser" Or e.Url <> myUrl Then Exit Sub End If With WebBrowser1 .Document.GetElementById("textfield").SetAttribute("Value", "******@******") .Document.GetElementById("textfield2").SetAttribute("Value", "*******") .Document.Forms(0).InvokeMember("Submit") End With End Sub End Class |