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

タイトル ： Re^8: WebBrpwser内で自動ログインを
投稿日： 2012/08/22(Wed) 12:06
投稿者： VBレスキュー(花ちゃん)
下記に変更して試して見て下さい。

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   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
      If .Document.Body.InnerText.IndexOf("ログインに失敗しました。") >= 0 Then
         Exit Sub
      End If
      .Document.GetElementById("textfield").SetAttribute("Value", "******@******")
      .Document.GetElementById("textfield2").SetAttribute("Value", "*******")
     ' .Document.Forms(1).InvokeMember("Submit")
      .Document.GetElementsByTagName("input").Item(7).InvokeMember("Click")
　'又は、 .Document.All.GetElementsByName("Submit").Item(0).InvokeMember("click")
　' "Submit" は、大文字・小文字が区別されますので注意
   End With
End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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