标题: [讨论]一段批处理生成的快捷方式 [打印本页]

---

作者: Standley     时间: 2007-9-19 22:58    标题: [讨论]一段批处理生成的快捷方式

SET link=%UserProfile%\桌面\catos\manage\war3.url
ECHO [InternetShortcut]>"%link%"
ECHO URL=File:///F:/war3/Warcraft III/Warcraft III/Frozen Throne.exe>>"%link%"
ECHO WorkingDirectory=F:/war3/Warcraft III/Warcraft III>>"%link%"
ECHO ShowCommand=7>>"%link%"
ECHO IconFile=F:\war3\Warcraft III\Warcraft III\Frozen Throne.exe>>"%link%"
ECHO IconIndex=^0>>"%link%"
ECHO HotKey=1601>>"%link%"

---------------------------------------------------------------------------------------
以上代码是在网上找回来的,但是他这里生成的快捷方式是INTERNET快捷方式,不用INTERNET方式那应该怎么修改呢?

---

作者: HAT     时间: 2007-9-20 05:20
批处理创建快捷方式
http://www.cn-dos.net/forum/view ... BC%8F%2B&page=1

---

作者: Standley     时间: 2007-9-20 23:13
cd.>tmp.vbs
for /f "usebackq skip=4 tokens=*" %%a in (%0) do @echo %%a>>tmp.vbs
tmp.vbs&del tmp.vbs /q
goto :eof

Rem 以下为VbScript脚本
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'
特殊文件夹“桌面”
Rem 在桌面创建一个记事本快捷方式
set oShellLink = WshShell.CreateShortcut( strDesktop &
"\CATOS\Berth Planning.lnk")
oShellLink.TargetPath = "C:\Program Files\CATOS\Berth Planning.exe"
: '目标
oShellLink.WindowStyle = 1 :'参数1默认窗口激活，参数3最大化激活，参
数7最小化
oShellLink.IconLocation = "C:\Program Files\CATOS\Berth
Planning.exe, 0" : '图标
oShellLink.WorkingDirectory = "C:\Program Files\CATOS" : '起始位置
oShellLink.Save : '创建保存快捷方式
--------------------------------------------------------------------------------------------
我想把快捷方式放到allusersprofile里面中的"桌面/CATOS"文件夹下,但按照上面的代码只能把快捷方式COPY到当前的用户文件夹中,那这个allusersprofile应放去哪里呢?

---

作者: Standley     时间: 2007-9-20 23:57
结题咯，终于知道怎么搞，YEAH~