推 Koibito:Good 09/28 17:20
這是前幾天我在MozTW上挖的寶...
原始版本出處
http://gemal.dk/blog/2004/11/05/firefox_thunderbird_and_sunbird_desktop_shortcuts/
相關討論
http://forum.moztw.org/viewtopic.php?t=5999
cola99 寫到:
這個WScript是參考這裡,然後改成中文顯示. 這個WScript會在桌面產生Firefox 的圖示,
然後它可以像IE圖示一樣擁有 右鍵選單 和 無捷徑小箭頭. 希望對那些有需要方便進入
Profile 管理員 的人有所幫助.
使用方法
1.新增一個純文字文件，副檔名改為vbs
2.用記事本編輯檔案，輸入以下內容：
Set WShell = WScript.CreateObject("WScript.Shell")
' Product Setup
PROD_NAME = "Mozilla Firefox"
PROD_PREF = "chrome://browser/content/pref/pref.xul"
TOOL_TIP = PROD_NAME & " - Rediscover the web"
' Misc Setup
PROD_GUID = "{EC8030F7-C20A-464F-9B0E-13A3A9E97384}"
PROD_CLSID = "HKCR\CLSID\" & PROD_GUID & "\"
' Get Current Path
PROD_VER = WShell.RegRead("HKLM\SOFTWARE\Mozilla\" & PROD_NAME & "\CurrentVersion")
PROD_EXE = Chr(34) & WShell.RegRead("HKLM\SOFTWARE\Mozilla\" & PROD_NAME & "\" & PROD_VER & "\Main\PathToExe") & Chr(34)
' Setup NameSpace Icon
WShell.RegWrite PROD_CLSID, PROD_NAME, "REG_SZ"
WShell.RegWrite PROD_CLSID & "InfoTip", TOOL_TIP, "REG_EXPAND_SZ"
WShell.RegWrite PROD_CLSID & "ShellFolder\HideOnDesktopPerUser", "", "REG_SZ"
WShell.RegWrite PROD_CLSID & "DefaultIcon\", PROD_EXE & ",0", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\", "Open", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\Open", "開啟", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\Open\command\", PROD_EXE, "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\open (safe-mode)\", "安全模式", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\open (safe-mode)\Command\", PROD_EXE & " -safe-mode", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\options\", "選項", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\options\Command\", PROD_EXE & " -chrome " & PROD_PREF, "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\profilemanager\", "Profile 管理員", "REG_SZ"
WShell.RegWrite PROD_CLSID & "Shell\profilemanager\Command\", PROD_EXE & " -ProfileManager", "REG_SZ"
WShell.RegWrite PROD_CLSID & "ShellFolder\Attributes", &H01000030, "REG_BINARY"
' Show Icons
WShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\" & PROD_GUID, "0", "REG_DWORD"
WShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\" & PROD_GUID, 0, "REG_DWORD"
' Create NameSpace Icon
WShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\" & PROD_GUID & "\", PROD_NAME, "REG_SZ"
注意！有一些行超出顯示範圍，按下'<','>'來調整！
3.儲存檔案後，執行這個檔案。
4.在桌面按下F5，或是右鍵→重新整理
5.Mozilla Firefox的小圖示就跑出來了!!
--
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▁ ▄-▄▄
██◤ ◥█◤ ██◣ ██◣ ██◤ ◢██ ▅▆◤ -▅▃
█ █ █ █ █▄▄ █ █ █ ◣ ◢ /▁ -
█ ◤ █ ██◢█ ▄▄▌█◢ █ █ ◤ ◥ ◤ ◢
█ ◢█◣ █ ◣ ██◤ █ ██◤ ◢▍
▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃▃ ▊ Mozilla Firefox
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.77.160