广告

扫码关注官方微信

扫码下载APP
返回顶部
首页 > 资讯 > 后端开发 > 其他教程 >使用VBS创建快捷方式的代码
  • 620

0
分享到

使用VBS创建快捷方式的代码

2024-04-02 19:04:59 620人浏览 独家记忆
摘要

在网吧维护过程中经常要发送桌面快捷方式，有什么批处理的方式能便捷发送桌面快捷方式呢，就拿我这边网吧steam下发为例给大家一个参考，如果要使用直接复制下面代码改下具体参数就行了。代码

在网吧维护过程中经常要发送桌面快捷方式，有什么批处理的方式能便捷发送桌面快捷方式呢，就拿我这边网吧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 '使用以上的设置创建快捷方式

下面是其他网友的补充

利用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 编程网 桌面快捷方式创建工具！

>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创建快捷方式内容请搜索编程网以前的文章或继续浏览下面的相关文章希望大家以后多多支持编程网！

点击免费下载>>软考高级考试备考技巧/历年真题/备考精华资料

--结束END--

本文标题: 使用VBS创建快捷方式的代码

本文链接: https://www.lsjlt.com/news/137340.html(转载时请注明来源链接)

有问题或投稿请发送至: 邮箱/279061341@qq.com    QQ/279061341

本篇文章演示代码以及资料文档资料下载

下载Word文档到电脑，方便收藏和打印～

下载Word文档
去做题
猜你喜欢
  • 使用VBS创建快捷方式的代码
    在网吧维护过程中经常要发送桌面快捷方式，有什么批处理的方式能便捷发送桌面快捷方式呢，就拿我这边网吧steam下发为例给大家一个参考，如果要使用直接复制下面代码改下具体参数就行了。代码...
    99+
    2022-11-12
  • Android应用创建桌面快捷方式代码
    android的快捷方式比较简单，就是发一个系统的广播，然后为快捷方式设置Intent--- package com.xikang.android.slimcoach.uti...
    99+
    2022-06-06
    Android
  • Android中创建快捷方式代码实例
    1、添加权限（必须） 代码如下: <uses-permission android:name="com.android.launcher.permission.INST...
    99+
    2022-06-06
    Android
  • Android应用创建多个快捷方式
    有时候如果想让我们的应用在桌面上创建多个快捷方式，我们可以在Manifest.xml文件中对相应的activity进行声明。 <application androi...
    99+
    2022-06-06
    Android
  • 怎么创建关机快捷键？Win7在桌面创建关机快捷方式的方法
    现在我们都在讲究效率，有些朋友就希望将系统关机在桌面创建一个快捷方式，这样我们需要关机的时候点击一下桌面快捷方式就可以了，是不是很有个性呢？小编这里介绍一下怎么在Win7桌面创建关机快捷方式，希望可以帮助到喜欢玩电脑的朋...
    99+
    2023-06-12
    Win7关机怎 关机快捷方式 Win7 桌面 关机 快捷方式 方法
  • 如何使用vbs右键发送sendto以及创建快捷方式到自定义的位置
    这篇文章主要介绍了如何使用vbs右键发送sendto以及创建快捷方式到自定义的位置，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。在SendTo文件夹里加上一文件夹的快捷方式后...
    99+
    2023-06-08
  • 怎么创建云服务器的快捷方式
    创建云服务器的快捷方式需要按照以下步骤: 打开 Microsoft Azure。 登录到服务器。 进入“系统选项”。 点击“高级选项”。 在“高级选项”页面中,选择“启动和故障恢复”选项,并将其设置为“启用”,然后点击“确定”按钮。 在...
    99+
    2023-10-26
    快捷方式 服务器
  • Android通过应用程序创建快捷方式的方法
    本文实例讲述了Android通过应用程序创建快捷方式的方法。分享给大家供大家参考。具体如下： Android 快捷方式是桌面最基本的组件。它用于直接启动某一应用程序的某个组件。...
    99+
    2022-06-06
    程序 方法 应用程序 Android
  • Ubuntu中如何使用脚本创建桌面快捷方式
    Ubuntu中如何使用脚本创建桌面快捷方式，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。代码如下:#先打开终端ctrl+alt+tcd 桌面touch &nbs...
    99+
    2023-06-13
  • 怎么创建云服务器的快捷方式呢
    创建云服务器的快捷方式的步骤如下: 打开 Microsoft Edge 网站,找到“工具”菜单下的“Microsoft Shell”。 单击“开始”选项卡下的“创建一个新的 Microsoft Shell”。 在“创建一个新的 Micr...
    99+
    2023-10-26
    快捷方式 服务器
  • PHP 输出URL的快捷方式示例代码
    复制代码 代码如下: <php $shortcut = '[InternetShortcut] URL=http://onens.com/ IDList= [{000214A...
    99+
    2022-11-15
    PHP URL快捷方式
  • 怎么创建云服务器的快捷方式图标
    创建云服务器的快捷方式图标可能是最简单的步骤之一,但是它也是最重要的步骤之一。要创建一个成功的快捷方式图标,需要考虑以下几点: 选择一个可用的快捷方式图标:您需要选择一个在您的云服务器上可用的图标。您可以在搜索引擎中搜索“创建云服务器的...
    99+
    2023-10-26
    快捷方式 图标 服务器
  • 如何创建快捷方式到自定义的位置
    本篇内容介绍了“如何创建快捷方式到自定义的位置”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！　　把如下代码内容保存为shortcut.vbs...
    99+
    2023-06-08
  • android编程实现为程序创建快捷方式的方法
    本文实例讲述了android编程实现为程序创建快捷方式的方法。分享给大家供大家参考，具体如下： private void addShortcut(){ Intent sho...
    99+
    2022-06-06
    程序 方法 Android
  • Win8如何在桌面创建快捷方式(3种简单的方式)
    　　很多网友在问Win8如何在桌面创建快捷方式，本次介绍3种简单的方式。下面小编就以联想的“联想远程软件服务”应用程序为例。告诉大家如何在在桌面创建快捷方式。 　　1. 找到安装应用...
    99+
    2022-06-04
    快捷方式 桌面 简单
  • 怎么创建云服务器的快捷方式呢手机
    创建云服务器的快捷方式通常使用.NETFramework类库中的openurl方法和openfile方法。以下是创建云服务器快捷方式的步骤: 打开终端。 在终端中执行以下命令: openurl("example.com") 然后...
    99+
    2023-10-27
    快捷方式 服务器 手机
  • 怎么创建云服务器的快捷方式呢苹果
    创建云服务器的快捷方式的方法是通过“云服务器”或“服务器管理器”的快捷方式按钮来启动云服务。以下是创建云服务器的快捷方式的步骤: 在“开始”选项卡上,单击“所有程序”选项,然后选择“附加到此应用程序”。 在“附加到此应用程序”对话框中,...
    99+
    2023-10-27
    快捷方式 苹果 服务器
  • 怎么创建云服务器的快捷方式图标呢
    创建云服务器的快捷方式图标是一件非常简单的事情,以下是一些步骤: 打开控制面板,打开“程序”菜单。 在“程序”菜单中,找到“添加删除程序”选项。 在添加删除程序列表中,选中“云服务器”,然后单击下拉菜单中的“创建快捷方式”按钮。 从弹出...
    99+
    2023-10-27
    快捷方式 图标 服务器
  • Linux系统简单创建eclipse的快捷方式是什么
    本篇文章给大家分享的是有关Linux系统简单创建eclipse的快捷方式是什么，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。eclipse简介：eclipse是Java开发者最...
    99+
    2023-06-28
  • 如何在Windows8的桌面模式下创建软件快捷方式方法
    在Windows 8的桌面模式下，可以使用以下方法创建软件快捷方式：1. 找到想要创建快捷方式的软件程序的可执行文件（通常为一个 ....
    99+
    2023-09-12
    Windows
软考高级职称资格查询
软考职称历年真题下载
软考职称资料下载
热门wiki
近期文章
推荐阅读
热门问答
热门标签
编程网，编程工程师的家园，是目前国内优秀的开源技术社区之一，形成了由开源软件库、代码分享、资讯、协作翻译、讨论区和博客等几大频道内容，为IT开发者提供了一个发现、使用、并交流开源技术的平台。

  • 官方手机版

  • 微信公众号

  • 商务合作