Memo/2005-02-16 のバックアップ差分(No.9)

追加された行はこの色です。
削除された行はこの色です。
#contents

*WSH 関連 [#u8fac02d]
**Internet Explorer の自動化 [#rdcae1ce]
***はてなブックマークの登録処理の自動化 [#u960ab11]
-はてなブックマークの登録処理の自動化
 ' 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

--動作保証は致しかねます。実行は自己責任でお願いします。

-参考情報
--ShellFolder / Folderオブジェクト、FolderItemsコレクション、FolderItemオブジェクト、Linkオブジェクト
---http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/shellfol.htm
--ShellSpecialFolderConstants Enumerated Type 
---http://msdn.microsoft.com/library/en-us/shellcc/platform/shell/reference/objects/shell/shellspecialfolderconstants.asp
 Const ssfFAVORITES = 6
--WshShellオブジェクトの詳細 / ショートカットの作成
---http://www.atmarkit.co.jp/fwin2k/operation/wsh06/wsh06_03.html
--WshUrlShortcutオブジェクト
---http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/urlshortcut.htm
--Internet Explorerオブジェクト (InternetExplorer.Application)
---http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/ie.htm

-はてな
--http://www.hatena.ne.jp/1108438733
--http://www.hatena.ne.jp/1108104573
-Hi! Good site respect! Visit <a href="http://preteen-models.chlara.com/index.html">preteen models</a> and <a href="http://preteen-lolita.chlara.com/index.html">preteen lolita</a> and <a href= http://freeones.chlara.com/index.html >freeones</a> Thanks! -- [[Julia]] &new{2007-07-08 (日) 05:27:59};
-Hi! Good site respect! Visit <a href="http://welivetogether-com.chlara.com/index.html">welivetogether.com</a> and <a href= http://addictinggames-com.chlara.com/index.html >addictinggames.com</a> Thanks! -- [[David]] &new{2007-07-08 (日) 05:51:38};
-Hi! Good site respect! Visit <a href="http://tiny-tits.victs.info/index.html">tiny tits</a> and <a href="http://nude.victs.info/index.html">nude</a> and <a href= http://tiny-tits.victs.info/index.html >tiny tits</a> and <a href= http://nude.victs.info/index.html >nude</a> Thanks! -- [[David]] &new{2007-08-05 (日) 06:42:00};
-Hi! Good site respect! <a href="http://tropical-flowers.deevan.info/index.html">tropical flowers</a> Visit <a href= http://tropical-flowers.deevan.info/index.html >tropical flowers</a> Thanks! -- [[Mark]] &new{2007-08-07 (火) 07:24:29};
-Hi! Good site respect! Visit <a href="http://anime-lesbian.dohoe.com/index.html">anime lesbian</a> and <a href="http://anal-sex-film.dohoe.com/index.html">anal sex film</a> and <a href= http://anime-lesbian.dohoe.com/index.html >anime lesbian</a> and <a href= http://anal-sex-film.dohoe.com/index.html >anal sex film</a> Thanks! -- [[Erica]] &new{2007-08-21 (火) 15:58:53};
-Hi! Good site respect! <a href="http://pussy-juice.hilude.info/index.html">pussy juice</a> Visit <a href= http://pussy-juice.hilude.info/index.html >pussy juice</a> Thanks! -- [[Mark]] &new{2007-08-25 (土) 06:11:02};
-The more you know about site <a href=http://horp.freeweb7.com/map3.html > My Best Links </a>  <a href=http://ankin.boon-host.com/map3.html > Links </a>  [url=http://rper.freehyperspace.com/map1.html] my favourite links [/url]  -- [[Dion]] &new{2007-09-24 (月) 03:46:56};
-Great place to visit! <a href=http://orter.free.accuwebhosting.com/map2.html > My Best Links </a>  [url=http://ones.freeweb7.com/] My Links [/url]  -- [[Arion]] &new{2007-09-24 (月) 10:20:58};
-Really great site with alot of good information!! Keep up the good work!!!!<a href=http://remove-adware.frrt.biz> remove adware </a>[url=http://remove-adware.frrt.biz] remove adware [/url]<a href=http://remove-adware.frrt.biz/adware-free-remove.html> adware free remove </a><a href=http://remove-adware.frrt.biz/adware-free-no-obligation-remove-spyware-totally--.html> adware free no obligation remove spyware totally </a><a href=http://remove-adware.frrt.biz/adware-drive-from-hard-remove-spyware.html> adware drive from hard remove spyware </a><a href=http://remove-adware.frrt.biz/adware-download-remove.html> adware download remove </a><a href=http://remove-adware.frrt.biz/adware-casclient-remove.html> adware casclient remove </a><a href=http://remove-adware.frrt.biz/adware-remove-virus---.html> adware remove virus </a><a href=http://remove-adware.frrt.biz/remove-adware-component.html> remove adware component </a><a href=http://remove-adware.frrt.biz/adware-remove-virus--.html> adware remove virus </a>[url=http://remove-adware.frrt.biz/adware-component-remove.html] adware component remove [/url][url=http://remove-adware.frrt.biz/adware-casclient-remove.html] adware casclient remove [/url][url=http://remove-adware.frrt.biz/adware-remove.html] adware remove [/url][url=http://remove-adware.frrt.biz/adware-remove-spyware.html] adware remove spyware [/url][url=http://remove-adware.frrt.biz/adware-command-remove-service--.html] adware command remove service [/url][url=http://remove-adware.frrt.biz/adware-free-iswatspyware-remove-scan-spyware.html] adware free iswatspyware remove scan spyware [/url][url=http://remove-adware.frrt.biz/free-adware-spyware-remove.html] free adware spyware remove [/url][url=http://remove-adware.frrt.biz/adware-remove-specific-spyware-uninstall.html] adware remove specific spyware uninstall [/url][url=http://remove-adware.frrt.biz/remove-spyware-adware.html] remove spyware adware [/url] -- [[Pantelis]] &new{2007-09-24 (月) 13:02:21};
-WOW, so much stuff here, an excellent resource. Thanks guys!<a href=http://disney-channel-games.frrt.biz> disney channel games </a>[url=http://disney-channel-games.frrt.biz] disney channel games [/url]<a href=http://disney-channel-games.frrt.biz/brandy-channel-disney-game-mr-whiskers--.html> brandy channel disney game mr whiskers </a><a href=http://disney-channel-games.frrt.biz/channel-disney-from-game.html> channel disney from game </a><a href=http://disney-channel-games.frrt.biz/channel-disney-game-tv.html> channel disney game tv </a><a href=http://disney-channel-games.frrt.biz/channel-disney-game-web.html> channel disney game web </a><a href=http://disney-channel-games.frrt.biz/channel-disney-game-video.html> channel disney game video </a><a href=http://disney-channel-games.frrt.biz/channel-disney-game-index.html-liloandstitch-psc.disney.go-sandwichstacker.html> channel disney game index.html liloandstitch psc.disney.go sandwichstacker </a>[url=http://disney-channel-games.frrt.biz/channel-dc-disney-game.html] channel dc disney game [/url][url=http://disney-channel-games.frrt.biz/channel-disney-ever-first-game---.html] channel disney ever first game [/url][url=http://disney-channel-games.frrt.biz/channel-disney-game-playhouse.html] channel disney game playhouse [/url][url=http://disney-channel-games.frrt.biz/channel-dinseychannel-disney-game.html] channel dinseychannel disney game [/url][url=http://disney-channel-games.frrt.biz/2006-channel-disney-game.html] 2006 channel disney game [/url][url=http://disney-channel-games.frrt.biz/channel-disney-game-summer--.html] channel disney game summer [/url] -- [[Giorgos]] &new{2007-09-24 (月) 13:35:01};
-thanks you peopels.<a href=http://free-pron.frrt.biz> free pron </a>[url=http://free-pron.frrt.biz] free pron [/url]<a href=http://free-pron.frrt.biz/free-asian-porn.html> free asian porn </a><a href=http://free-pron.frrt.biz/free-cartoon-porn.html> free cartoon porn </a><a href=http://free-pron.frrt.biz/free-porn-story.html> free porn story </a><a href=http://free-pron.frrt.biz/free-full-length-porn-video.html> free full length porn video </a><a href=http://free-pron.frrt.biz/free-teen-porn.html> free teen porn </a><a href=http://free-pron.frrt.biz/free-full-porn-movie--.html> free full porn movie </a><a href=http://free-pron.frrt.biz/free-internet-porn.html> free internet porn </a>[url=http://free-pron.frrt.biz/free-porn-video.html] free porn video [/url][url=http://free-pron.frrt.biz/free-downloadable-porn.html] free downloadable porn [/url][url=http://free-pron.frrt.biz/free-bbw-porn--.html] free bbw porn [/url][url=http://free-pron.frrt.biz/free-teen-porn.html] free teen porn [/url][url=http://free-pron.frrt.biz/free-porn-star.html] free porn star [/url][url=http://free-pron.frrt.biz/free-black-porn-movie.html] free black porn movie [/url] -- [[Giatas]] &new{2007-09-24 (月) 16:30:05};

#comment