2023年11月25日发(作者：)

巧⽤快捷⽅式实现⾃定义Win+R命令（VBS版）.

另⼀篇⽂章 介绍了如何⼿动创建⾃定义Win+R命令.

这篇⽂章将介绍如何使⽤脚本⾃动创建并管理⾃定义Win+R命令.

为什么要使⽤这个脚本?

⼤家都知道⽤Win+R能输⼊很多windows内置命令,⽐如:

cmd 可以打开控制台窗⼝;

regedit 可以打开注册表编辑器;

为什么要⽤脚本,⽽不是程序?

1. 因为脚本简单,免去了使⽤开发环境的⿇烦.

2. 因为脚本是开源的,不⽤担⼼有病毒.

这个脚本实现了什么功能?

这个脚本⾸先会进⾏安装:

1. 将⾃⾝复制到"D:L⾃定义Win+R命令.vbs"(如果⽬录不存在则⾃动创建)

2. 将"D:L"加到系统的"Path"路径中.

3. 在"D:L"中创建⼀个它⾃⾝的快捷⽅式(名称为"L").

4. 在"SendTo"(也就是发送到)⽬录创建脚本的快捷⽅式.

(路径是"C:Users⽤户名AppDataRoamingMicrosoftWindowsSendTo")

' 2019.06.03 v1.2 增加了安装时⾃动提权的代码;

' 2018.12.29 v1.1 新增加了对系统变量PATHEXT的注册,效果是⾃定义命令可以在命令⾏中使⽤(不⽤加扩展名".LNK");

' 2018.06.18 v1.0 初始版本,实现了基本功能

Option Explicit

Dim fso

set fso = createobject("stemobject")

Dim shell

set shell = createobject("")

Dim winr_mgr

Set winr_mgr = New winr_manager

winr_

Class WinR_Manager

Public InstallPath

Public Property Get DefaultInstallPath()

defaultinstallpath = "D:L⾃定义Win+R命令.vbs"

End Property

Public Property Get InstallDir()

installdir = entfoldername(installpath)

End Property

Public Property Get InstallDirName()

installdirname = der(installdir).name

End Property

Public Property Get InstallBase()

installbase = ename(installpath)

End Property

Public Sub Run()

If = 0 Then

Dim sh

Set sh = createobject("ation")

xecute me,"""" & fullname & """ -install",,"runas"

Else

If nts(0) = "-install" Then

installpath = defaultinstallpath

Dim strInput

strinput = inputbox("请输⼊安装路径:",installbase,installdir)

If strinput = "" Then

Else

Sub PromptToAddLnk()

Dim i

For i = 0 To - 1

Dim targetpath

targetpath = nts(i)

Dim lnkname

lnkname = ename(targetpath)

Dim lnkpath

do

lnkname = inputbox("请输⼊'" & ename(targetpath) & "'的快捷⽅式名称(⽤于运⾏命令):",,lnkname)

lnkpath = ath(entfoldername(fullname),lnkname & ".lnk")

If Not ists(lnkpath) Or lnkname = "" Then

Exit Do

End Sub

Sub CreateSendToLnk()

2.双击这个vbs脚,并执⾏安装操作.

2. 在弹出的对话框中输⼊想要使⽤的命令名称,⽐如"qq",并点击确定.

这是我的列表:

(Win10)在浏览器的"查看"选项卡中,选中"⽂件扩展名"复选框,然后再修改⽂件名即可.