'名  前:表示中のページをlivedoor Readerに登録する
'作成日:2006/06/05
'修正日:2006/06/07
'作成者:Eclipse
'言  語:VBScript
'http://reader.livedoor.com/
'※変更点※
'2006/06/07 登録用ウィンドウをIEではなくSBKのフロートウィンドウに変更

Option Explicit

'■■ 定数宣言 ■■
Const SET_FEED_URI = "http://reader.livedoor.com/subscribe/"

'フローティングメニュー要素
Const FLOAT_AND_FOREGROUND = 2

'■■ メインルーチン呼び出し ■■
Call Main()


'■■ メインルーチン ■■
Private Sub Main()
  Dim strURL, objDoc, objNewDoc

  Set objDoc = ActiveDocWin

  'トップページのURIを取得して登録用URIに変換
  strURL = SET_FEED_URI & Escape(objDoc.URL)

  '新しいタブで登録用URIを開く
  Set objNewDoc = NavigateNew(strURL)

  '元のページにフォーカスを戻す
  objDoc.SetFocus

  '開いたタブをFloat＆最前面にする
  objNewDoc.FloatingMode = FLOAT_AND_FOREGROUND

End Sub