ヤフーメールに自動ログイン

ヤフーメールに自動でログインする方法です。

ヤフーメールのアドレスが10個以上あるので作りました。
ログインのページを開いて、
IDとパスワードを入力して、
ログインボタンを押すだけです。

参照を二つ追加します。
[.NET] Microsoft.mshtml
[COM] Microsoft Internet Controls

        Dim objeBrowser As New SHDocVw.InternetExplorer()
        Dim iCol As mshtml.IHTMLElementCollection
        Dim iEle As mshtml.IHTMLElement
        Dim sString As String
        Dim sID As String 'Yahoo! JAPAN ID
        Dim sPass As String 'パスワード


        objeBrowser.Visible = True
        objeBrowser.Navigate("https://login.yahoo.co.jp/config/login_verify2?.src=ym", Nothing, Nothing, Nothing, Nothing)
        Do
        Loop Until Not objeBrowser.Busy
        Dim HTMLDoc As mshtml.HTMLDocument

        Do
        Loop Until Not objeBrowser.Busy

        HTMLDoc = objeBrowser.Document
        iCol = HTMLDoc.getElementsByTagName("input")
        'Yahoo! JAPAN ID============================
        For Each iEle In iCol
            If Not iEle.getAttribute("name") Is Nothing Then
                sString = iEle.getAttribute("name").ToString
                If sString = "login" Then
                    iEle.setAttribute("value", sID)
                    Exit For
                End If
            End If
        Next
        'パスワード=================================
        For Each iEle In iCol
            If Not iEle.getAttribute("name") Is Nothing Then
                sString = iEle.getAttribute("name").ToString
                If sString = "passwd" Then
                    iEle.setAttribute("value", sPass)
                    Exit For
                End If
            End If
        Next
        'ログイン====================================
        For Each iEle In iCol
            If Not iEle.getAttribute("type") Is Nothing Then
                sString = iEle.getAttribute("type").ToString
                If sString = "submit" Then
                    iEle.click()
                    Exit For
                End If
            End If
        Next
        Do
        Loop Until Not objeBrowser.Busy

ログインしていない状態で
次回からIDの入力を省略になっていない場合しか
考えていません。

posted by VB.NET+MSDE+ActiveReports at 16:19 | Comment(0) | TrackBack(0) | WEB
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

この記事へのTrackBack URL
http://blog.sakura.ne.jp/tb/4108082