サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 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
 |
