タイトル : Re^2: WebBrpwser内で自動ログインを 投稿日 : 2012/08/20(Mon) 12:44 投稿者 : Arms
> ※ 無暗にハンドルネームを変更しないようにして下さい。前後の質問内容等も参考にしながら > 回答しておりますので。 すみません。以後変更はしませんので、大丈夫です。 > 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 上のサンプルはyahooログインページ読み込み完了後、ボタンを押すことによってログインを行うコードでよろしいでしょうか?自分の中ではボタンなど使用せずに自動ログインを行いたいんですが、ここから色々と改良すれば可能ですか? |