From 306d457e9dd65444b343e9606ee6444c13b7ff36 Mon Sep 17 00:00:00 2001
From: caoqianming <caoqianming@foxmail.com>
Date: Thu, 16 Nov 2023 11:36:05 +0800
Subject: [PATCH] =?UTF-8?q?fix:=20=E7=94=9F=E6=88=90=E5=BF=AB=E6=8D=B7?=
 =?UTF-8?q?=E6=96=B9=E5=BC=8F=E7=9A=84vbs?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 生成快捷方式.vbs | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 生成快捷方式.vbs

diff --git a/生成快捷方式.vbs b/生成快捷方式.vbs
new file mode 100644
index 0000000..240458b
--- /dev/null
+++ b/生成快捷方式.vbs
@@ -0,0 +1,27 @@
+
+' 创建Shell对象
+Set objShell = CreateObject("WScript.Shell")
+
+' 获取脚本所在文件夹路径
+strScriptFolder = objShell.CurrentDirectory
+
+' 获取桌面路径
+strDesktop = objShell.SpecialFolders("Desktop")
+
+' 创建快捷方式对象
+Set objShortcut = objShell.CreateShortcut(strDesktop & "\CBMA.lnk")
+
+' 设置快捷方式的目标路径为脚本本身
+objShortcut.TargetPath = strScriptFolder & "\start.vbs"
+
+' 设置快捷方式的图标路径为脚本所在文件夹下的favicon.ico
+objShortcut.IconLocation = strScriptFolder & "\favicon.ico"
+
+objShortcut.WorkingDirectory = strScriptFolder
+
+' 保存快捷方式
+objShortcut.Save
+
+' 释放对象
+Set objShortcut = Nothing
+Set objShell = Nothing