set WshShell = WScript.CreateObject("WScript.Shell") '设置CreateObject 方法
strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路径
set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk") '设置快捷方式将要保存到的路径和快捷方式名,你也可以指定一个真实存在的路径，这个范例是创建到桌面
oShellLink.TargetPath = "d:\qq\QQ木马清除.vbs" '快捷方式里的“目标”
oShellLink.WindowStyle = 1 '快捷方式里的“运行方式”
oShellLink.Hotkey = "Ctrl+Alt+e" '快捷方式里的“快捷键”
oShellLink.IconLocation = "d:\qq\qq.exe, 0" '快捷方式的图标
oShellLink.Description = "腾讯QQ" '快捷方式里的“备注”
oShellLink.WorkingDirectory = "d:\qq" '快捷方式里的“起始位置”
oShellLink.Save '建立快捷方式

如果你是创建程序的快捷方式，以下代码即可：
set WshShell = WScript.CreateObject("WScript.Shell") '设置CreateObject 方法
strDesktop = WshShell.SpecialFolders("Desktop") '取得“桌面”的路径
set oShellLink = WshShell.CreateShortcut(strDesktop & "\腾讯QQ.lnk") '设置快捷方式将要保存到的路径和快捷方式名,你也可以指定一个真实存在的路径，这个范例是创建到桌面
oShellLink.TargetPath = "d:\qq\QQ木马清除.vbs" '快捷方式里的“目标”
oShellLink.WorkingDirectory = "d:\qq" '快捷方式里的“起始位置”
oShellLink.Save '建立快捷方式

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com 关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩