使用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/！

                        友情連線：

創業專案排行榜前十名

美文集

茂名一技

手遊排行前十名

VBS指令碼程式設計（6）——物件的建立與呼叫
2021-06-24
指令碼程式設計物件
win10怎麼建立快捷方式_windows10建立桌面快捷方式的方法
2020-07-27
Win10Windows
一些有趣的VBS指令碼
2023-03-07
指令碼
ubuntu22.04建立idea快捷方式
2024-04-07
UbuntuIdea
win10怎麼建立桌面快捷方式_win10新增程式快捷方式到桌面的步驟
2020-07-03
Win10
如何使用ABAP程式碼建立SAP Product Category
2020-09-23
Go
教你用vbs指令碼獲取網路卡MAC,CPUID,硬碟序列號的實現程式碼
2022-06-15
指令碼MacUI硬碟
使用ABAP程式碼建立S/4HANA裡的Sales Order
2018-11-04
linux技巧---為各應用建立快捷方式
2018-05-17
Linux
Mac｜技巧：Mac電腦如何建立快捷方式？
2021-01-22
Mac
網頁快捷方式怎麼設定_win10如何建立網頁桌面快捷方式
2020-01-25
網頁Win10
如何使用 JavaScript 程式碼建立虛擬滑鼠點選事件
2024-02-15
JavaScript事件
使用ABAP程式碼給SAP CRM Business object建立附件Attachment
2020-07-07
Object
Robot Framework-Ride建立桌面快捷方式（最簡單！）
2020-09-28
FrameworkIDE
JavaFx 建立快捷方式及設定開機啟動
2021-06-11
Java
無法找到指令碼檔案adsutil.vbs的解決方法
2019-05-22
指令碼
利用vbs指令碼將word文件轉換為pdf
2024-07-06
指令碼
指令碼之美│VBS 入門互動實戰
2022-06-23
指令碼
qt程式建立及模板程式碼分析
2020-11-29
QT
動態連結串列的建立（程式碼）
2018-04-13
[譯]純程式碼建立 UIView
2019-03-03
UIView
如何使用程式碼建立和讀取 SAP CRM 訂單的 Text 資料
2021-07-29
使用Java程式碼在SAP Marketing Cloud上建立Contact資料
2020-04-25
JavaCloud
CVE-2016-0189 vbs指令碼引擎損壞漏洞分析
2018-06-19
指令碼
vbs指令碼獲取Am註冊路徑資訊
2020-05-20
指令碼
黑客整人程式碼，vbS整人程式碼大全(強制自動關機、開啟無數計算器、無限迴圈等)
2021-02-06
黑客
VBS遍歷Excel工作表的方法
2021-06-11
Excel
使用nodejs程式碼在SAP C4C裡建立Individual customer
2019-01-15
NodeJS
使用腳手架建立Vue程式
2024-05-28
Vue
win10系統怎麼建立時間線快捷方式
2019-03-02
Win10
程式碼管理 | 建立並管理自己的公有Cocopods庫
2018-08-09
安卓應用安全指南4.1.1建立/使用活動示例程式碼
2018-03-16
安卓
WPF中如何使用後臺程式碼動態建立資料模板(DataTemplate)
2024-08-22
低程式碼平臺建立數字應用程式的高效方式
2023-04-03
一行程式碼建立cell
2018-08-20
行程
gitee建立倉庫如何提交程式碼
2024-09-05
Gitee
Buffer的建立及使用原始碼分析——ByteBuffer為例
2020-07-06
原始碼
SQL server資料庫建立程式碼 filegroup檔案組修改的示例程式碼
2019-09-03
SQLServer資料庫