用VB在指定目录下创建快捷方式
发布网友
发布时间：2024-12-29 07:21
共1个回答
热心网友
时间：2025-01-22 00:18
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 '建立快捷方式
