WSH 関連

Internet Explorer の自動化

はてなブックマークの登録処理の自動化

  • はてなブックマークの登録処理の自動化
    ' AddBookmark.vbs
    ' Usage : CScript AddBookmark.vbs
    ' <処理概要>
    ' 1. お気に入りフォルダの取得
    ' 2. お気に入りの URL を取得
    ' 3. お気に入りの URL を Internet Explorer で表示
    ' 4. 表示された URL を「はてなブックマーク」に登録
    ' 5. Internet Explorer を閉じる
    ' 6. 2〜5 の繰り返し
    ' 
    
    Option Explicit
    
    Main
    
    Sub Main
        Dim nResult
        nResult = MsgBox( "はてなブックマークへの一括登録処理を行います。", vbOKCancel, "確認" )
        If nResult <> vbOK Then
            ' OK 以外の場合、処理を抜けます。
            Exit Sub
        End If
        
        ' お気に入りのブックマークの一括登録処理
        ' ↓ 処理を有効にする場合、以下のコメントを外してください。
        ' AddBookmarkFromFavorites
        
        ' 指定した URL のリストの一括登録処理
        ' ↓ 処理を有効にする場合、以下のコメントを外してください。
        ' AddBookmarkFromList
        
        ' 処理の終了
        MsgBox "はてなブックマークへの登録処理を完了しました。", vbOKOnly, "終了"
    End Sub
    
    Sub AddBookmarkFromList
        Dim dic
        Set dic = CreateObject("Scripting.Dictionary")
        
        ' ↓登録したい URL をここに記述
        dic.Add "http://www.hatena.ne.jp/1108104573", ""
        dic.Add "http://www.hatena.ne.jp/1108213360", ""
        dic.Add "http://www.hatena.ne.jp/1108215897", ""
        dic.Add "http://www.hatena.ne.jp/1108438733", ""
        
        ' リストの内容をブックマークとして登録
        AddBookmarks dic
    End Sub
    
    Sub AddBookmarkFromFavorites
        Dim dic
        Set dic = CreateObject("Scripting.Dictionary")
        
        ' お気に入りの情報を取得
        RetrieveFavorites dic
    
        ' リストの内容をブックマークとして登録
        AddBookmarks dic
    End Sub
    
    Function RetrieveFavorites( dic )
        Dim shell
        Set shell = CreateObject("Shell.Application")
        
        Dim folder
        Set folder = shell.NameSpace(6) ' お気に入りフォルダ
        
        FavoritesToDictionary folder, dic
    End Function
    
    Function FavoritesToDictionary( folder, dic )
        Dim wsh
        Set wsh = CreateObject("WScript.Shell")
        
        ' サブディレクトリも対象とする
        Dim item
        For Each item In folder.Items
            If item.IsFolder Then
                FavoritesToDictionary item.GetFolder, dic
            ElseIf item.IsLink Then
                Dim link
                Set link = wsh.CreateShortcut( item.Path )
                ' お気に入りの URL の登録情報を取得
                dic.Add link.TargetPath, item.Name
            End If
        Next
    End Function
    
    Function AddBookmarks( dicURL )
        Dim strURL
        ' データ件数分ループ
        For Each strURL In dicURL
            AddBookmark strURL
        Next
    End Function
    
    Function AddBookmark( strURL )
        Dim objIE
        Set objIE = CreateObject("InternetExplorer.Application")
        
        ' IE の画面を表示させたくない場合は False をセットしてください
        objIE.Visible = True
        
        ' ページロード&タイトル取得
        objIE.Navigate strURL ' ページの読み込み
        While ( objIE.Busy ) : WScript.Sleep 100 : Wend
        Dim strTitle
        strTitle = objIE.Document.Title
        
        ' はてなブックマークの登録処理
        Dim strCGI
    '    strCGI = "http://b.hatena.ne.jp/add?mode=confirm&url=" & Escape(strURL)
        strCGI = "http://b.hatena.ne.jp/add?mode=confirm&title=" & Escape(strTitle) & "&url=" & Escape(strURL)
        objIE.Navigate strCGI ' 登録画面の呼び出し
        While ( objIE.Busy ) : WScript.Sleep 100 : Wend
        objIE.Document.Forms(0).commit.Click ' 追加するボタンをクリック
        While ( objIE.Busy ) : WScript.Sleep 100 : Wend
    
        objIE.Quit
        Set objIE = Nothing
        
        ' 念のためウェイトを入れておく
        WScript.Sleep 1000
    End Function
  • 動作保証は致しかねます。実行は自己責任でお願いします。

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2010-02-27 (土) 14:19:09 (4249d)