<JOB>
<COMMENT>
************************************************************
■デスクトップにChrome で ドキュメント( HTML )の
ショートカットを作成する
■著作権その他
このプログラムはフリーです。どうぞ自由に御使用ください。
著作権は作者である私(lightbox)が保有しています。
また、本ソフトを運用した結果については、作者は一切責任を
負えせんのでご了承ください。
************************************************************
</COMMENT>
<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<OBJECT id="Shell" progid="Shell.Application" />
<COMMENT>
************************************************************
* lightbox WEB WSH コアライブラリ
************************************************************
</COMMENT>
<SCRIPT language="VBScript" src="http://homepage2.nifty.com/lightbox/laylaClass.vbs"></SCRIPT>
<COMMENT>
************************************************************
* スクリプト開始
************************************************************
</COMMENT>
<SCRIPT language=VBScript>
' OpenFileName3 を実行する為のライブラリ設定
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )
Const SHORTCUT_WindowStyle_Default = 1
Const SHORTCUT_WindowStyle_Maximized = 3
Const SHORTCUT_WindowStyle_Minimized = 7
' ***********************************************************
' 処理開始
' ***********************************************************
' GUI
if vbCancel = MsgBox( "処理を開始しますか? ", vbOKCancel , _
"Desktop to Chrome Shortcut for Flex3 document" ) then
Wscript.Echo "キャンセルされました"
Wscript.Quit
end if
' スクリプトが存在するディレクトリ
strCurPath = WScript.ScriptFullName
Set obj = Fso.GetFile( strCurPath )
Set obj = obj.ParentFolder
strCurPath = obj.Path
' Chrome の場所
strKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall\Google Chrome"
strTarget = WshShell.RegRead(strKey & "\DisplayIcon")
' デスクトップのパス
strDesktop = WshShell.SpecialFolders("Desktop")
' 対象 HTML の選択
TargetHTML = OpenFileName3()
if TargetHTML(0) <> "" then
' ショートカットのパス
strWorkPath = TargetHTML(0)
Set obj = Fso.GetFile( strWorkPath )
Set obj = obj.ParentFolder
' 対象ファイルの一つ上のディレクトリ名を使用する
set obj = WshShell.CreateShortcut( strDesktop & "\" & obj.Name & ".lnk")
obj.TargetPath = strTarget
obj.Arguments = "--allow-file-access-from-files """ & TargetHTML(0) & """"
obj.WindowStyle = SHORTCUT_WindowStyle_Default
obj.Hotkey = "CTRL+SHIFT+G"
obj.IconLocation = strTarget & ", 2"
obj.Description = "Flex3のドキュメントのショートカット"
obj.WorkingDirectory = strCurPath & "\langref"
obj.Save
Wscript.Echo "処理が終了しました"
else
Wscript.Echo "HTML を選択しませんでした"
end if
</SCRIPT>
</JOB>