今回は 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を自動操作しよう – 主に言語とシステム開発に関して
ダウンロード
※動作しないとき（何も起こらないとき）は「旧形式のスクリプトとして実行する」をチェックしてください
コメント