☰

创建脚本文件以调用具有复杂目标的快捷方式并关闭结束对话框窗口

tag-icon • tag-icon windows windows-10 command-line uac
创建脚本文件以调用具有复杂目标的快捷方式并关闭结束对话框窗口

我是一名受过中等教育的新手计算机爱好者，对 vbscript 略知一二，我需要帮助。以下是事件的顺序...

我在我的电脑（运行 Windows 10 Home）上使用 Winaero Tweaker 创建了一个提升的快捷方式，指向运行解锁程序的虚拟 CD，用于我的 WD Passport Drive。

通常，我会单击驱动器上程序的快捷方式，对 UAC 说“是”，然后单击出现的结束窗口，告诉我驱动器已解锁。Winaero 提升的快捷方式运行良好，只是它让结束窗口保持打开状态。

目标如下：

C:\WINDOWS\system32\cmd.exe /c start "" schtasks.exe /run /tn "WD Drive Unlock.exe_-943894699"

所以，我想我可以尝试一个 VB 脚本来调用快捷方式，然后只需输入 {esc} 或 ~ 即可关闭窗口。很简单。不行。我无法关闭窗口，上帝保佑女王。

我尝试使用提升的快捷方式（H-IT.lnk）：

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\USERS\OWNER\DESKTOP\H-IT.lnk"  & Chr(34), 0
WScript.Sleep 1500
WshShell.AppActivate "wd drive"
WshShell.SendKeys "{esc}"
Set WshShell = Nothing

这会执行快捷方式，就像快捷方式执行快捷方式一样，但生成的标题为“WD Drive Unlocked”的程序窗口保持打开状态（就像快捷方式一样）。

所以，我想，为什么不利用快捷方式的目标并一起绕过快捷方式……对我来说，这是一场午夜噩梦。这是我令人尴尬的尝试（20 年前开始接触 VB）：

我尝试绕过捷径：

Set WshShell = WScript.CreateObject("WScript.Shell")
Command = "%WINDIR%\cmd.exe /c start ""schtasks.exe /run /tn ""WD Drive Unlock.exe_-943894699""
WshShell.Run command
WScript.Sleep 1500
WshShell.AppActivate "wd drive"
WshShell.SendKeys "{esc}"
Set WshShell = Nothing:

我并不关心编程；我只想一键解锁我的驱动器，没有 UAC，也没有对话框残留。

相关内容