☰

通过键盘快捷键运行 VisualBasicScript

tag-icon • tag-icon windows-10 keyboard-shortcuts python vbscript
通过键盘快捷键运行 VisualBasicScript

我编写了一个 bat 文件来执行一个 python 脚本，为了避免弹出 cmd，我通过 vbs 脚本调用它。现在我需要通过 vbs 脚本但使用键盘快捷键来执行 python 脚本。我在网上搜索过，但没有找到令人信服的答案。找到了很多第三方软件，但不想使用它们。我该怎么做？

答案1

下面是创建记事本应用程序的快捷方式并设置热键的 vbscript 示例Ctrl+Alt+E

Option Explicit
Dim Application_Path
Application_Path = "C:\windows\notepad.exe"
Call Shortcut(Application_Path ,"")
'-----------------------------------------------------------------------------------------
Sub Shortcut(Application_Path,ShortcutName)
    Dim objShell,fso,DesktopPath,objShortCut,MyTab,strCurDir
    Set objShell = CreateObject("WScript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    strCurDir = fso.GetParentFolderName(WScript.ScriptFullName)
    MyTab = Split(Application_Path,"\")
    If ShortcutName = "" Then
        ShortcutName = MyTab(UBound(MyTab))
    End if
    DesktopPath = objShell.SpecialFolders("Desktop")
    Set objShortCut = objShell.CreateShortcut(DesktopPath & "\" & ShortcutName & ".lnk")
    objShortCut.TargetPath = Dblquote(Application_Path)
    ObjShortCut.WindowStyle = 1
    ObjShortCut.Hotkey = "Ctrl+Alt+e"
    ObjShortCut.IconLocation = "notepad.exe, 0"
    objShortCut.Save
End Sub
'-----------------------------------------------------------------------------------------
Function Dblquote(str)
    Dblquote = chr(34) & str & chr(34)
End Function
'-----------------------------------------------------------------------------------------

答案2

我假设您实际上希望执行一些带有参数的程序，无论该程序是cscript用于 VBS 还是 python。

最简单的解决方法是右键单击桌面，选择新建 > 快捷方式，输入整个命令行并单击下一步并为其指定一个好名字。

这将在桌面上创建一个具有给定名称的图标。右键单击它并选择属性。在打开的对话框中捷径 标签，单击内部快捷键：，按下所需的快捷键，然后单击“确定”。

现在可以通过此快捷键调用创建的图标。

相关内容