使用vbs创建快捷方式

代码：

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") '获取桌面路径
set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk")   '快捷方式将要保存到的完全路径
oShellLink.TargetPath = "http://www.hao123.com/" '快捷方式里的“目标”
oShellLink.Arguments = "/参数1 /参数2"    '“目标”的运行参数,无参数时，直接=""
oShellLink.WindowStyle = 1   '快捷方式里的“运行方式”
oShellLink.Hotkey = "Ctrl+Alt+e"   '快捷方式里的“快捷键”
oShellLink.IconLocation = "C:\Program Files\Tencent\qq.exe, 0"   '快捷方式的图标
oShellLink.Description = "腾讯QQ"   '快捷方式里的“备注”
oShellLink.WorkingDirectory = "C:\Program Files\Tencent"   '快捷方式里的“起始位置”
oShellLink.Save '使用以上的设置创建快捷方式

运行完毕后，在桌面上即可生成名为“腾讯QQ”的快捷方式，属性见下图：

 

 

运行环境：WIN7 64位。

参考链接：http://blog.sina.com.cn/s/blog_4b77b6dd010082ds.html