PR

Lunascape で閲覧中のページを Firefox で開く

今回は 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

参考文献

ダウンロード

※動作しないとき(何も起こらないとき)は「旧形式のスクリプトとして実行する」をチェックしてください

コメント