批处理:
@echo off
set a="c:\green\1.exe"
set b="c:\green\2.exe"
set c="c:\green\3.exe"
echo >"%userprofile%\桌面\1.url"
echo URL=%a% >>"%userprofile%\桌面\1.url"
echo IconIndex=0 >>"%userprofile%\桌面\1.url"
echo IconFile=%a% >>"%userprofile%\桌面\1.url"
echo >"%userprofile%\桌面\2.url"
echo URL=%b% >>"%userprofile%\桌面\2.url"
echo IconIndex=0 >>"%userprofile%\桌面\2.url"
echo IconFile=%b% >>"%userprofile%\桌面\2.url"
echo >"%userprofile%\桌面\3.url"
echo URL=%c% >>"%userprofile%\桌面\3.url"
echo IconIndex=0 >>"%userprofile%\桌面\3.url"
echo IconFile=%c% >>"%userprofile%\桌面\3.url"
VBS:
'在桌面上为QQ程序创建快捷方式
Set WshShell = WScript.CreateObject("Wscript.Shell")
strFolder = WshShell.SpecialFolders("Desktop") '设置快捷方式所到的目录
set oShellLink = WshShell.CreateShortcut(strFolder & "\腾讯QQ.lnk") '快捷方式绝对路径和名称
oShellLink.TargetPath = "D:\Program Files\Tencent\QQ\QQ.exe" '快捷方式指向目标程序
oShellLink.WindowStyle = 1 '指向程序的运行方式(1常规窗口、3最大化、7最小化)
oShellLink.Hotkey = "Alt+Q" '设置热键
oShellLink.IconLocation = "D:\Program Files\Tencent\QQ\QQ.exe, 0" '图标文件位置
oShellLink.Description = "" '快捷方式描述
oShellLink.WorkingDirectory = "D:\Program Files\Tencent\QQ\" '快捷方式起始位置(指向程序所在目录)
oShellLink.Save
'快捷方式所到的目录说明:
'Desktop 桌面目录
'Startmenu 开始菜单目录
'Programs 程序菜单目录
'StartUp 程序启动目录
'Favorites 收藏夹目录
'SendTo 发送到目录
Last edited by newxso on 2008-12-9 at 21:02 ]