扫码关注官方微信

扫码下载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://lsjlt.com/news/137340.html(转载时请注明来源链接)

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

猜你喜欢
  • 使用VBS创建快捷方式的代码
    在网吧维护过程中经常要发送桌面快捷方式，有什么批处理的方式能便捷发送桌面快捷方式呢，就拿我这边网吧steam下发为例给大家一个参考，如果要使用直接复制下面代码改下具体参数就行了。代码...
    99+
    2024-04-02
  • 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
  • Ubuntu创建桌面快捷方式
    前言 本文介绍如何在Ubuntu系统中创建桌面快捷方式。 操作系统：Ubuntu 22.04 LTS 正文 之前用习惯了Windows操作系统，Windows下创建快捷方式相对容易，右键点击一个文件—...
    99+
    2023-09-07
    ubuntu linux python
  • win11如何创建快捷方式
    这篇“win11如何创建快捷方式”文章的知识点大部分人都不太理解，所以小编给大家总结了以下内容，内容详细，步骤清晰，具有一定的借鉴价值，希望大家阅读完这篇文章能有所收获，下面我们一起来看看这篇“win11如何创建快捷方式”文章吧。右键点击桌...
    99+
    2023-07-01
  • Android应用创建多个快捷方式
    有时候如果想让我们的应用在桌面上创建多个快捷方式，我们可以在Manifest.xml文件中对相应的activity进行声明。 <application androi...
    99+
    2022-06-06
    Android
  • Android中创建快捷方式及删除快捷方式实现方法
    public static void createShortcut(Context activity ,Bitmap map ,String appName ,Strin...
    99+
    2022-06-06
    方法 Android
  • 怎么创建关机快捷键？Win7在桌面创建关机快捷方式的方法
    现在我们都在讲究效率，有些朋友就希望将系统关机在桌面创建一个快捷方式，这样我们需要关机的时候点击一下桌面快捷方式就可以了，是不是很有个性呢？小编这里介绍一下怎么在Win7桌面创建关机快捷方式，希望可以帮助到喜欢玩电脑的朋...
    99+
    2023-06-12
    Win7关机怎 关机快捷方式 Win7 桌面 关机 快捷方式 方法
  • 如何使用vbs右键发送sendto以及创建快捷方式到自定义的位置
    这篇文章主要介绍了如何使用vbs右键发送sendto以及创建快捷方式到自定义的位置，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。在SendTo文件夹里加上一文件夹的快捷方式后...
    99+
    2023-06-08
  • Android如何创建桌面快捷方式
    Android创建桌面的快捷方式 概述 ：创建桌面快捷方式相当与创建一个程序的入口，就像我们程序在安装完毕后会自动创建一个图标到桌面。其实创建桌面快捷方式跟创建一个程序入口差...
    99+
    2022-06-06
    Android
  • Linux下如何创建pycharm快捷方式
    这篇文章将为大家详细讲解有关Linux下如何创建pycharm快捷方式，小编觉得挺实用的，因此分享给大家做个参考，希望大家阅读完这篇文章后可以有所收获。第一种（小白的操作）首先进入到“/”目录用vim打开这个文件 vim ...
    99+
    2023-06-28
  • win11如何创建桌面快捷方式
    本文小编为大家详细介绍“win11如何创建桌面快捷方式”，内容详细，步骤清晰，细节处理妥当，希望这篇“win11如何创建桌面快捷方式”文章能帮助大家解决疑惑，下面跟着小编的思路慢慢深入，一起来学习新知识吧。首先在桌面空白处右击并选择“新建”...
    99+
    2023-07-01
  • Ubuntu中如何使用脚本创建桌面快捷方式
    Ubuntu中如何使用脚本创建桌面快捷方式，很多新手对此不是很清楚，为了帮助大家解决这个难题，下面小编将为大家详细讲解，有这方面需求的人可以来学习下，希望你能有所收获。代码如下:#先打开终端ctrl+alt+tcd 桌面touch &nbs...
    99+
    2023-06-13
  • Android通过应用程序创建快捷方式的方法
    本文实例讲述了Android通过应用程序创建快捷方式的方法。分享给大家供大家参考。具体如下： Android 快捷方式是桌面最基本的组件。它用于直接启动某一应用程序的某个组件。...
    99+
    2022-06-06
    程序 方法 应用程序 Android
  • 怎么创建云服务器的快捷方式
    创建云服务器的快捷方式需要按照以下步骤: 打开 Microsoft Azure。 登录到服务器。 进入“系统选项”。 点击“高级选项”。 在“高级选项”页面中,选择“启动和故障恢复”选项,并将其设置为“启用”,然后点击“确定”按钮。 在...
    99+
    2023-10-26
    快捷方式 服务器
  • 为Office程序创建桌面快捷方式
    要为Office程序创建桌面快捷方式，请按照以下步骤操作：1. 打开开始菜单，找到你想为其创建快捷方式的Office程序。例如，Mi...
    99+
    2023-09-13
    Office
  • windows office365怎么创建桌面快捷方式
    本篇内容介绍了“windows office365怎么创建桌面快捷方式”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！office365创建桌...
    99+
    2023-06-30
  • 怎么创建云服务器的快捷方式呢
    创建云服务器的快捷方式的步骤如下: 打开 Microsoft Edge 网站,找到“工具”菜单下的“Microsoft Shell”。 单击“开始”选项卡下的“创建一个新的 Microsoft Shell”。 在“创建一个新的 Micr...
    99+
    2023-10-26
    快捷方式 服务器
  • win8系统下快捷方式创建方法[图文]
    今天小编给大家介绍3种win8快捷方式创建方法，非常的简单，有图为证！1、找到安装应用程序的安装路径，然后直接将应用程序的图标右击选择发送桌面快捷方式。2、桌面空白右击新建“快捷方式&rdquo...
    99+
    2022-06-04
    快捷方式 图文 方法
  • mysql创建桌面快捷的方法
    小编给大家分享一下mysql创建桌面快捷的方法，希望大家阅读完这篇文章后大所收获，下面让我们一起去探讨吧！mysql创建桌面快捷的方法：首先打开dos命令窗口输入【netstartmysql】；然后输入【m...
    99+
    2024-04-02
软考高级职称资格查询
热门wiki
近期文章
推荐阅读
热门问答
热门标签
编程网，编程工程师的家园，是目前国内优秀的开源技术社区之一，形成了由开源软件库、代码分享、资讯、协作翻译、讨论区和博客等几大频道内容，为IT开发者提供了一个发现、使用、并交流开源技术的平台。

  • 官方手机版

  • 微信公众号

  • 商务合作