文章摘要
这篇文章介绍了如何使用VBS脚本创建桌面快捷方式，提供了直接复制代码修改快捷方式的范例。内容涵盖以下几点：
1. **基本方法**：通过直接复制代码修改快捷方式的路径信息、快捷方式名称和工作路径等参数，生成快捷方式。
2. **自定义位置**：展示了如何根据目标路径和工作路径自定义快捷方式的位置，包括直接在“桌面”创建快捷方式以及在特定目录下创建。
3. **脚本示例**：提供了多种脚本示例，包括使用VBS和JavaScript创建快捷方式，以及如何在.bat文件中调用VBS脚本。
4. **对比分析**：对比了VBS和JavaScript脚本的共同点和差异，强调了脚本的通用性和灵活性。
总结：文章通过详细示例展示了在不同场景下如何利用VBS脚本快速创建快捷方式，适合需要自动化操作的用户参考。
在网吧维护过程中经常要发送桌面快捷方式，有什么批处理的方式能便捷发送桌面快捷方式呢，就拿我这边网吧steam下发为例给大家一个参考，如果要使用直接复制下面代码改下具体参数就行了。代码如下：
@echo off
::设置程序或文件的路径（必选）
set Program=D:\Program Files\Microvirt\MEmu\MEmu.exe
::设置启动参数（可选）
set Arguments=::设置快捷方式名称（必选）
set LnkName=test
::设置程序的工作路径，一般为程序主目录，此项若留空，脚本将自行分析路径
set WorkDir=::设置快捷方式显示的说明（可选）
set Desc=if not defined WorkDir call:GetWorkDir “%Program%”
(echo Set WshShell=CreateObject(“WScript.Shell”^)
echo strDesKtop=WshShell.SpecialFolders(“DesKtop”^)
echo Set oShellLink=WshShell.CreateShortcut(strDesKtop^&”\%LnkName%.lnk”^)
echo oShellLink.TargetPath=”%Program%”
echo oShellLink.Arguments=”%Arguments%”
echo oShellLink.WorkingDirectory=”%WorkDir%”
echo oShellLink.WindowStyle=1
echo oShellLink.Description=”%Desc%”
echo oShellLink.Save)>makelnk.vbs
echo 桌面快捷方式创建成功！
makelnk.vbs
del /f /q makelnk.vbs
exit
goto :eof
:GetWorkDir
set WorkDir=%~dp1
set WorkDir=%WorkDir:~,-1%
goto :eof
VBS:
第1个是桌面上创建快捷方式的应用范例
Set WshShell=WScript.CreateObject(“WScript.Shell”)
strDesktop=WshShell.SpecialFolders(“Desktop”) :’特殊文件夹“桌面”
set oShellLink=WshShell.CreateShortcut(strDesktop & “\计算器.lnk”)
oShellLink.TargetPath=”C:\Windows\System32\Calc.exe” : ‘目标
oShellLink.WindowStyle=3 :’参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey=”Ctrl+Alt+C” : ‘快捷键
oShellLink.IconLocation=”C:\Windows\System32\Calc.exe” : ‘图标
oShellLink.Description=”系统默认计算器” : ‘备注
oShellLink.WorkingDirectory=strDesktop : ‘起始位置
oShellLink.Save : ‘创建保存快捷方式
第2个是自定义目录位置上创建快捷方式的应用范例
Set WshShell=WScript.CreateObject(“WScript.Shell”)
set oShellLink=WshShell.CreateShortcut(“C:\Documents and Settings\Administrator\计算器调试.lnk”)
oShellLink.IconLocation=”C:\Documents and Settings\Administrator\Calc.exe” : ‘图标
oShellLink.TargetPath=”C:\Documents and Settings\Administrator\Calc.exe” : ‘目标
oShellLink.WorkingDirectory=”C:\Documents and Settings\Administrator” : ‘起始位置
oShellLink.Hotkey=”Ctrl+Alt+C” : ‘快捷键
oShellLink.WindowStyle=3 :’运行方式，参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Description=”系统默认计算器” : ‘备注
oShellLink.Save : ‘创建保存快捷方式
以下内容另存为 XXX.js
也是bat中经常调用的vbs
var fso=new ActiveXObject(“Scripting.FileSystemObject”);
var shl=WScript.CreateObject(“WScript.Shell”);
var oUrl=shl.CreateShortcut(“C:\Documents and Settings\Administrator\Favorites\\游戏菜单.lnk”);
oUrl.TargetPath=”E:\\nbmsclient\\BarClientView.exe”;
oUrl.IconLocation=”E:\\nbmsclient\\BarClientView.exe”;
oUrl.WorkingDirectory=”E:\\nbmsclient”;
oUrl.Save();
可以增加可判断系统板本的：
Set WshShell=WScript.CreateObject(“WScript.Shell”)
strDesktop=WshShell.SpecialFolders(“Desktop”)
set oShellLink=WshShell.CreateShortcut(strDesktop & “\xxx系统.lnk”)
Dim fso
Set fso=CreateObject(“Scripting.FileSystemObject”)
If fso.folderExists(“C:\\Program Files (x86)”) Then ‘通过目录来判断是32位还是64位操作系统
oShellLink.TargetPath=”C:\Program Files (x86)\Google\Chrome\Application\chrome.exe” ‘目标
oShellLink.WorkingDirectory=”C:\Program Files (x86)\Google\Chrome\Application” ‘起始位置
Else
oShellLink.TargetPath=”C:\Program Files\Google\Chrome\Application\chrome.exe”
oShellLink.WorkingDirectory=”C:\Program Files\Google\Chrome\Application”
End If
oShellLink.Arguments=”http://192.168.0.1:8080/xxx/” ‘运行参数
oShellLink.WindowStyle=1 ‘参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey=”” ‘快捷键
oShellLink.IconLocation=”C:\Program Files\ChromeStandaloneSetup\favicon.ico” ‘图标
oShellLink.Description=””
oShellLink.Save ‘创建保存快捷方式
支持带参数的
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 ‘使用以上的设置创建快捷方式
下面是其他网友的补充
以下内容另存为 XXX.VBS
第1个是桌面上创建快捷方式的应用范例
Set WshShell=WScript.CreateObject(“WScript.Shell”)
strDesktop=WshShell.SpecialFolders(“Desktop”) :’特殊文件夹“桌面”
set oShellLink=WshShell.CreateShortcut(strDesktop & “\计算器.lnk”)
oShellLink.TargetPath=”C:\Windows\System32\Calc.exe” : ‘目标
oShellLink.WindowStyle=3 :’参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Hotkey=”Ctrl+Alt+C” : ‘快捷键
oShellLink.IconLocation=”C:\Windows\System32\Calc.exe” : ‘图标
oShellLink.Description=”系统默认计算器” : ‘备注
oShellLink.WorkingDirectory=strDesktop : ‘起始位置
oShellLink.Save : ‘创建保存快捷方式
第2个是自定义目录位置上创建快捷方式的应用范例
Set WshShell=WScript.CreateObject(“WScript.Shell”)
set oShellLink=WshShell.CreateShortcut(“C:\Documents and Settings\Administrator\计算器调试.lnk”)
oShellLink.IconLocation=”C:\Documents and Settings\Administrator\Calc.exe” : ‘图标
oShellLink.TargetPath=”C:\Documents and Settings\Administrator\Calc.exe” : ‘目标
oShellLink.WorkingDirectory=”C:\Documents and Settings\Administrator” : ‘起始位置
oShellLink.Hotkey=”Ctrl+Alt+C” : ‘快捷键
oShellLink.WindowStyle=3 :’运行方式，参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.Description=”系统默认计算器” : ‘备注
oShellLink.Save : ‘创建保存快捷方式
以下内容另存为 XXX.js
第3个是自定义目录位置上以JS类创建快捷方式的应用范例
var fso=new ActiveXObject(“Scripting.FileSystemObject”);
var shl=WScript.CreateObject(“WScript.Shell”);
var oUrl=shl.CreateShortcut(“C:\Documents and Settings\Administrator\Favorites\\游戏菜单.lnk”);
oUrl.TargetPath=”E:\\nbmsclient\\BarClientView.exe”;
oUrl.IconLocation=”E:\\nbmsclient\\BarClientView.exe”;
oUrl.WorkingDirectory=”E:\\nbmsclient”;
oUrl.Save();
从以上VBS和JS脚本对比我们可以发现有共同点之处,此类脚本开始都要声明以下内容以什么程序来解析运行,声明好了,接下去才是具体的步骤.
看如何在bat中调用vbs
@echo off
title 脚本之家 桌面快捷方式创建工具！
>nul 2>&1 REG.exe query “HKU\S-1-5-19” || (
ECHO SET UAC=CreateObject^(“Shell.Application”^) > “%TEMP%\Getadmin.vbs”
ECHO UAC.ShellExecute “%~f0”, “%1”, “”, “runas”, 1 >> “%TEMP%\Getadmin.vbs”
“%TEMP%\Getadmin.vbs”
DEL /f /q “%TEMP%\Getadmin.vbs” 2>nul
Exit /b
)
set jb51name=Ditto3.lnk
set jb51path=%~dp0
set jb51exec=%~dp0Ditto.exe
mshta VBScript:Execute(“Set a=CreateObject(“”WScript.Shell””):Set b=a.CreateShortcut(a.SpecialFolders(“”Desktop””) & “”\%jb51name%””):b.TargetPath=””%jb51exec%””:b.WorkingDirectory=””%jb51path%””:b.Save:close”)
到此这篇关于使用VBS创建快捷方式的代码的文章就介绍到这了,更多相关VBS创建快捷方式内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！
您可能感兴趣的文章:通过vbs修改目录名称与快捷方式名称的实现代码右键发送(sendto)，创建快捷方式到自定义的位置 的vbs批量替换快捷方式目的路径的VBS脚本批处理BAT创建快捷方式bat脚本实例实现只允许运行一个实例(安装程序、创建快捷方式脚本)用bat实现打开快捷方式指向的目录批处理cmd之桌面快捷方式创建工具