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

タイトル ： Re: WebBrpwser内で自動ログインを
投稿日： 2012/08/19(Sun) 09:10
投稿者： VBレスキュー(花ちゃん)
> 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

DocumentCompleted イベントがどのようなイベントなのか理解していれば上記はおかしいでしょう。
ここのサンプル投稿用掲示板のサンプルも参考にして下さい。

Yahoo!メールへログイン するサンプルです。
エラー処理は別途必要により実施して下さい。

Public Class Form1

Private myUrl As Uri
Private SNo As Integer

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   SNo = 1
   myUrl = New System.Uri("https://login.yahoo.co.jp/config/login_verify2?.src=ym ")
   WebBrowser1.Url = myUrl
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
   '下記の部分は省略しても OK(但し、何をしているかは理解して下さい)
   If Not TypeName(sender) = "WebBrowser" Or e.Url <> myUrl Then
      Exit Sub
   End If

   With WebBrowser1
      '必要により下記のように作業の種類を分岐
      If SNo = 1 Then
         'ID の入力
         .Document.GetElementById("login").SetAttribute("Value", "myId")
         'パスワードの入力
         .Document.GetElementById("passwd").SetAttribute("Value", "myPasswd")
         'ログインボタンをクリック
         .Document.Forms(0).InvokeMember("Submit")
      End If
   End With
End Sub

End Class

※ 無暗にハンドルネームを変更しないようにして下さい。前後の質問内容等も参考にしながら
　 回答しておりますので。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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