9月
04
2010
Lunascape で閲覧中のページを Firefox で開く
投稿者: admin, カテゴリ: ブラウザ, tags: Firefox, Lunascape, Portable, Shell, Windows, ブラウザ投稿日: 2010.09.04 - 18:17
更新日: 2011.09.17 - 23:51
今回は Lunascape で閲覧中のページを Firefox の新しいタブとして開くスクリプトです。久しぶりのスクリプト、しかもWin32（？）なので「動いたんだからいいでしょ！？」状態です。
このスクリプトは単にFirefox を開くだけでなく、どのプログラムに渡すかを変更すれば、外部プログラムを開くことができる。例えば2chブラウザで開くとか、短縮URLサービスに転送するとか様々な使い方ができる。
スポンサードリンク
スクリプト
' Copyright 2010 www.casey.jp, GPL
Option Explicit
Dim luna
dim currentActiveIndex, dcid
dim objWshShell,FF
Sub fin
Set luna = Nothing
WScript.Quit
End sub
Set luna = CreateObject("Lunascape2.LunascapeAPI")
currentActiveIndex = luna.ActiveIndex()
dcid = luna.GetDocumentID(currentActiveIndex)
FF = "c:\\Program Files\\Mozilla Firefox\\firefox.exe" & " -new-tab " & luna.URL
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run FF
Set objWshShell = Nothing
If Err.Number <> 0 Then fin
fin
※c:\\Program Files\\Mozilla Firefox\\firefox.exe の部分を書き換えればPortable環境でも動作可能（実際筆者はそうしている）
動作さした環境
Lunascape Core Version 6.3.0.22683 / Unicode Operating System Version 5.1.2600 Internet Explorer Version 8.0.6001.18702 Gecko Plugin Version 3.5.11.22668 / Gecko 1.9.1.11 WebKit Plugin Version 1.3.7.22664 / WebKit 533.3 r56034 Memory Total,AvailPhys / 2146713600,724115456 Memory Total,AvailVirtual / 2147352576,1482878976 Processor Architecture,Type,Revision,NumberOfProcessors,OemId / 0,586,1025,4,0
参考文献
- vbsでからプログラムを、オプションを指定して起動したい。 – その他(Windows) – 教えて！goo
- スクリプト – dev.lunascape.tv
- 【ハウツー】カスタマイジング Lunascape – 表示をコントロールするスクリプトを作成してみる (3) ワンクリックで別ブラウザを呼び出す.1 | パソコン | マイコミジャーナル
- JScript / VBScript (WSH)で，IEを自動操作しよう – 主に言語とシステム開発に関して
ダウンロード
※動作しないとき（何も起こらないとき）は「旧形式のスクリプトとして実行する」をチェックしてください
関連記事
- Lunascapeスクリプト「タイトルURLコピー（アクティブ）.vbs」の出力形式をＡタグにする
- Lunascapeスクリプト「タイトルURLコピー（複数）.vbs」の出力形式をリンクリストにする
- VisualBasic コンピュータの詳細情報を得る
- Firefox 既定のブラウザに設定する、しない
- Firefox に IE タブを追加する
- 各種アフィリエイトプログラム等のメモ
- Firefox ショートカットを追加するアドオン
スポンサードリンク
エントリ (RSS)