使用VBS創(chuàng)建快捷方式的代碼
發(fā)布日期：2021-12-23 08:13 | 文章來(lái)源：CSDN
在網(wǎng)吧維護(hù)過(guò)程中經(jīng)常要發(fā)送桌面快捷方式，有什么批處理的方式能便捷發(fā)送桌面快捷方式呢，就拿我這邊網(wǎng)吧steam下發(fā)為例給大家一個(gè)參考，如果要使用直接復(fù)制下面代碼改下具體參數(shù)就行了。代碼如下：
@echo off
::設(shè)置程序或文件的路徑（必選）
set Program=D:\Program Files\Microvirt\MEmu\MEmu.exe
::設(shè)置啟動(dòng)參數(shù)（可選）
set Arguments=
::設(shè)置快捷方式名稱（必選）
set LnkName=test
::設(shè)置程序的工作路徑，一般為程序主目錄，此項(xiàng)若留空，腳本將自行分析路徑
set WorkDir=
::設(shè)置快捷方式顯示的說(shuō)明（可選）
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 桌面快捷方式創(chuàng)建成功！
makelnk.vbs
del /f /q makelnk.vbs
exit
goto :eof
:GetWorkDir
set WorkDir=%~dp1
set WorkDir=%WorkDir:~,-1%
goto :eof
VBS:
第1個(gè)是桌面上創(chuàng)建快捷方式的應(yīng)用范例
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夾“桌面”
set oShellLink = WshShell.CreateShortcut(strDesktop & "\計(jì)算器.lnk")
oShellLink.TargetPath = "C:\Windows\System32\Calc.exe" : '目標(biāo)
oShellLink.WindowStyle = 3 :'參數(shù)1默認(rèn)窗口激活，參數(shù)3最大化激活，參數(shù)7最小化
oShellLink.Hotkey = "Ctrl+Alt+C" : '快捷鍵
oShellLink.IconLocation = "C:\Windows\System32\Calc.exe" : '圖標(biāo)
oShellLink.Description = "系統(tǒng)默認(rèn)計(jì)算器" : '備注
oShellLink.WorkingDirectory = strDesktop : '起始位置
oShellLink.Save : '創(chuàng)建保存快捷方式
第2個(gè)是自定義目錄位置上創(chuàng)建快捷方式的應(yīng)用范例
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\Documents and Settings\Administrator\計(jì)算器調(diào)試.lnk")
oShellLink.IconLocation = "C:\Documents and Settings\Administrator\Calc.exe" : '圖標(biāo)
oShellLink.TargetPath = "C:\Documents and Settings\Administrator\Calc.exe" : '目標(biāo)
oShellLink.WorkingDirectory = "C:\Documents and Settings\Administrator\" : '起始位置
oShellLink.Hotkey = "Ctrl+Alt+C" : '快捷鍵
oShellLink.WindowStyle = 3 :'運(yùn)行方式，參數(shù)1默認(rèn)窗口激活，參數(shù)3最大化激活，參數(shù)7最小化
oShellLink.Description = "系統(tǒng)默認(rèn)計(jì)算器" : '備注
oShellLink.Save : '創(chuàng)建保存快捷方式
以下內(nèi)容另存為 XXX.js
也是bat中經(jīng)常調(diào)用的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();
可以增加可判斷系統(tǒng)板本的：
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\xxx系統(tǒng).lnk")
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.folderExists("C:\\Program Files (x86)") Then '通過(guò)目錄來(lái)判斷是32位還是64位操作系統(tǒng)
oShellLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" '目標(biāo)
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/" '運(yùn)行參數(shù)
oShellLink.WindowStyle = 1 '參數(shù)1默認(rèn)窗口激活，參數(shù)3最大化激活，參數(shù)7最小化
oShellLink.Hotkey = "" '快捷鍵
oShellLink.IconLocation = "C:\Program Files\ChromeStandaloneSetup\favicon.ico" '圖標(biāo)
oShellLink.Description = ""
oShellLink.Save '創(chuàng)建保存快捷方式
支持帶參數(shù)的
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") '獲取桌面路徑
set oShellLink = WshShell.CreateShortcut(strDesktop & "\騰訊QQ.lnk")'快捷方式將要保存到的完全路徑
oShellLink.TargetPath = "http://www.hao123.com/" '快捷方式里的“目標(biāo)”
oShellLink.Arguments = "/參數(shù)1 /參數(shù)2" '“目標(biāo)”的運(yùn)行參數(shù),無(wú)參數(shù)時(shí)，直接=""
oShellLink.WindowStyle = 1'快捷方式里的“運(yùn)行方式”
oShellLink.Hotkey = "Ctrl+Alt+e"'快捷方式里的“快捷鍵”
oShellLink.IconLocation = "C:\Program Files\Tencent\qq.exe, 0"'快捷方式的圖標(biāo)
oShellLink.Description = "騰訊QQ"'快捷方式里的“備注”
oShellLink.WorkingDirectory = "C:\Program Files\Tencent"'快捷方式里的“起始位置”
oShellLink.Save '使用以上的設(shè)置創(chuàng)建快捷方式
下面是其他網(wǎng)友的補(bǔ)充
利用VBS創(chuàng)建快捷方式詳細(xì)說(shuō)明
以下內(nèi)容另存為 XXX.VBS
第1個(gè)是桌面上創(chuàng)建快捷方式的應(yīng)用范例
Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop") :'特殊文件夾“桌面”
set oShellLink = WshShell.CreateShortcut(strDesktop & "\計(jì)算器.lnk")
oShellLink.TargetPath = "C:\Windows\System32\Calc.exe" : '目標(biāo)
oShellLink.WindowStyle = 3 :'參數(shù)1默認(rèn)窗口激活，參數(shù)3最大化激活，參數(shù)7最小化
oShellLink.Hotkey = "Ctrl+Alt+C" : '快捷鍵
oShellLink.IconLocation = "C:\Windows\System32\Calc.exe" : '圖標(biāo)
oShellLink.Description = "系統(tǒng)默認(rèn)計(jì)算器" : '備注
oShellLink.WorkingDirectory = strDesktop : '起始位置
oShellLink.Save : '創(chuàng)建保存快捷方式
第2個(gè)是自定義目錄位置上創(chuàng)建快捷方式的應(yīng)用范例
Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("C:\Documents and Settings\Administrator\計(jì)算器調(diào)試.lnk")
oShellLink.IconLocation = "C:\Documents and Settings\Administrator\Calc.exe" : '圖標(biāo)
oShellLink.TargetPath = "C:\Documents and Settings\Administrator\Calc.exe" : '目標(biāo)
oShellLink.WorkingDirectory = "C:\Documents and Settings\Administrator\" : '起始位置
oShellLink.Hotkey = "Ctrl+Alt+C" : '快捷鍵
oShellLink.WindowStyle = 3 :'運(yùn)行方式，參數(shù)1默認(rèn)窗口激活，參數(shù)3最大化激活，參數(shù)7最小化
oShellLink.Description = "系統(tǒng)默認(rèn)計(jì)算器" : '備注
oShellLink.Save : '創(chuàng)建保存快捷方式
以下內(nèi)容另存為 XXX.js
第3個(gè)是自定義目錄位置上以JS類創(chuàng)建快捷方式的應(yīng)用范例
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腳本對(duì)比我們可以發(fā)現(xiàn)有共同點(diǎn)之處,此類腳本開(kāi)始都要聲明以下內(nèi)容以什么程序來(lái)解析運(yùn)行,聲明好了,接下去才是具體的步驟.
看如何在bat中調(diào)用vbs
@echo off
title 本站 桌面快捷方式創(chuàng)建工具！
>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")
到此這篇關(guān)于使用VBS創(chuàng)建快捷方式的代碼的文章就介紹到這了,更多相關(guān)VBS創(chuàng)建快捷方式內(nèi)容請(qǐng)搜索本站以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持本站！
版權(quán)聲明：本站文章來(lái)源標(biāo)注為YINGSOO的內(nèi)容版權(quán)均為本站所有，歡迎引用、轉(zhuǎn)載，請(qǐng)保持原文完整并注明來(lái)源及原文鏈接。禁止復(fù)制或仿造本網(wǎng)站，禁止在非maisonbaluchon.cn所屬的服務(wù)器上建立鏡像，否則將依法追究法律責(zé)任。本站部分內(nèi)容來(lái)源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來(lái)，僅供學(xué)習(xí)參考，不代表本站立場(chǎng)，如有內(nèi)容涉嫌侵權(quán)，請(qǐng)聯(lián)系alex-e#qq.com處理。
相關(guān)文章
關(guān)注官方微信