tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
Yahooメールサイトへの自動ログインを行う(VB6.0) ( No.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



 [スレッド一覧へ] [親スレッドへ]