- 日時: 2012/01/28 13:46
- 名前: VBレスキュー(花ちゃん)
- ***********************************************************************************
* カテゴリー:[インターネット][][] * * キーワード:ログイン,自動的に,検索,メール,IE,ボタンをクリック,テキスト入力 * *********************************************************************************** ----------------------------------------------------------------------------------- 題 名 : Yahoo メールサイトへの自動ログイン 記事No : 4629 過去のログ(No.1) 投稿日 : 2003/07/04(Fri) 18:59 の投稿を 2009/05/09 全面修正して再投稿 投稿者 : VBレスキュー(花ちゃん) 'プロジェクト→参照設定→で Microsoft Internet Controls にチェックを '入れておいて下さい。 ----------------------------------------------------------------------------------- ※ サイトが改変されると下記の設定では取得出来ない場合があります。その場合は要素を 調べ直して下さい。
Option Explicit
Private WithEvents IE As SHDocVw.InternetExplorer Private myURL As String
Private Sub Command1_Click() myURL = "https://login.yahoo.co.jp/config/login_verify2?.src=ym" '起動中のIEを閉じる場合 If Not IE Is Nothing Then IE.Quit Set IE = Nothing End If Set IE = New SHDocVw.InternetExplorer '指定のURLを表示 IE.Navigate2 myURL IE.Visible = True 'IE を表示 End Sub
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant) If CStr(URL) <> myURL Then Exit Sub End If With IE .Document.Forms(0).Elements("login").Value = "ログイン用IDを記入" .Document.Forms(0).Elements("passwd").Value = "パスワードを記入" 'IDとパスワードを記憶用のチェックボックスにチェックを入れる If .Document.Forms(0).Elements(".persistent").Checked = False Then .Document.Forms(0).Elements(".persistent").Click End If 'ログインボタンをクリック .Document.Forms(0).submit End With End Sub
|