使用VBS建立快捷方式的程式碼

PYTHON人马兽發表於2024-04-16

                        <p>在網咖維護過程中經常要傳送桌面快捷方式，有什麼批處理的方式能便捷傳送桌面快捷方式呢，就拿我這邊網咖steam下發為例給大家一個參考，如果要使用直接複製下面程式碼改下具體引數就行了。程式碼如下：</p>

@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^{&amp;"%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 '使用以上的設定建立快捷方式

下面是其他網友的補充

利用VBS建立快捷方式詳細說明

以下內容另存為 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 創業專案排行榜前十名http://www.piaodoo.com/ 桌面快捷方式建立工具！
>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建立快捷方式內容請搜尋創業專案排行榜前十名http://www.piaodoo.com/以前的文章或繼續瀏覽下面的相關文章希望大家以後多多支援創業專案排行榜前十名http://www.piaodoo.com/！

                        友情連線：

創業專案排行榜前十名

美文集

茂名一技

手遊排行前十名

建立程式選單和快捷方式的程式碼
2007-10-08
VBS指令碼程式設計（6）——物件的建立與呼叫
2021-06-24
指令碼程式設計物件
Iiscnfg.vbs IIS 配置指令碼的使用
2017-03-02
指令碼
win10怎麼建立快捷方式_windows10建立桌面快捷方式的方法
2020-07-27
Win10Windows
一些有趣的VBS指令碼
2023-03-07
指令碼
iOS APP建立桌面快捷方式
2017-07-07
iOSAPP
利用izpack或roxes在windows下建立快捷方式的亂碼問題
2004-02-09
Windows
win10怎麼建立桌面快捷方式_win10新增程式快捷方式到桌面的步驟
2020-07-03
Win10
用java 能建立桌面快捷方式嗎？
2010-04-27
Java
如何使用ABAP程式碼建立SAP Product Category
2020-09-23
Go
程式碼中使用DataView物件----建立DataView物件
2007-06-14
View物件
VBS VBA VB C#程式開發
2012-01-28
C#
Win10怎麼建立還原點快捷方式 Win10系統桌面建立還原點快捷方式的方法
2015-12-24
Win10
SAP Logon建立快捷方式密碼為灰色解決辦法
2011-03-08
Go密碼
Mac｜技巧：Mac電腦如何建立快捷方式？
2021-01-22
Mac
用BCB在windows桌面建立快捷方式 (轉)
2007-12-06
Windows
ubuntu22.04建立idea快捷方式
2024-04-07
UbuntuIdea
教你用vbs指令碼獲取網路卡MAC,CPUID,硬碟序列號的實現程式碼
2022-06-15
指令碼MacUI硬碟
使用ABAP程式碼建立S/4HANA裡的Sales Order
2018-11-04
Win10系統怎麼建立一鍵關閉所有程式快捷方式
2016-09-29
Win10
linux技巧---為各應用建立快捷方式
2018-05-17
Linux
網頁快捷方式怎麼設定_win10如何建立網頁桌面快捷方式
2020-01-25
網頁Win10
PowerDesigner 中將Comment(註釋)及Name(名稱)內容互相COPY的VBS程式碼
2010-08-23
VBS基本語法
2017-07-10
JavaFx 建立快捷方式及設定開機啟動
2021-06-11
Java
vbs指令碼獲取Am註冊路徑資訊
2020-05-20
指令碼
指令碼之美│VBS 入門互動實戰
2022-06-23
指令碼
PowerDesigner中通過VBS指令碼修改模型資訊
2010-11-10
指令碼模型
利用vbs指令碼將word文件轉換為pdf
2024-07-06
指令碼
如何用WinCE CabManager製作的cab檔案，建立桌面快捷方式？
2013-12-10
使用ABAP程式碼給SAP CRM Business object建立附件Attachment
2020-07-07
Object
如何使用 JavaScript 程式碼建立虛擬滑鼠點選事件
2024-02-15
JavaScript事件
VBS 的基礎性的東西
2014-08-13
PowerDesigner 中將Comment(註釋)及Name(名稱)內容互相COPY的VBS程式碼(轉)
2013-09-16
qt程式建立及模板程式碼分析
2020-11-29
QT
[譯]純程式碼建立 UIView
2019-03-03
UIView
mac 純程式碼建立tableview
2017-05-08
MacView
wcf 配置與程式碼建立
2015-10-03