作者ibmibmibm (根暗で阴湿?大きなお世话)
看板Browsers
标题[-Fx-] 让Fx从捷径变成桌面图示!!
时间Wed Sep 28 01:47:54 2005
这是前几天我在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
1F:推 Koibito:Good 09/28 17:20