tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 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
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。