用vbs检索在运行对话框中键入的一系列命令的代码

2019-10-26 17:58:59

字体：大中小

来源：转载

供稿：网友

问：
您好，脚本专家！有时，我在运行对话框中键入了多个命令，随后想要对其进行检索。我知道我最近使用过的命令缓存在某个地方，因为当我开始在运行对话框中键入时，它们便会显示出来。如何使用脚本检索这些命令？
-- KJ
答：
您好，KJ。您知道，一看到您的问题，我们首先想到的是：为什么我们没有想过这个问题？不用说，脚本专家使用运行对话框已经有好多年了，并且我们也非常清楚地知道，最近使用的命令（如果您统计过的话，是最近使用过的 26 个）缓存在计算机上的某个地方。然而，我们从未编写过可检索此列表的脚本。我们怎么能忽略如此明显的事情呢？
注意：事实上，令人吃惊的绝不仅限于我们已忽略了如此明显的事情。例如，到目前为止，脚本专家已在其当前所在的大厦中呆了大约一年的时间了，然而就在几个星期前，编写本专栏的脚本专家才发现有从其办公室通往楼下大厅的楼梯。
稍加摸索后，我们发现该信息存储在注册表中；更确切地说，它作为单个注册表值存储在注册表项 HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/RunMRU 中。这样不是很好吗？当然很好；毕竟，这使得我们能够编写以下脚本：
复制代码代码如下:

Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objRegistry = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
strKeyPath = "Software/Microsoft/Windows/CurrentVersion/Explorer/RunMRU"
objRegistry.EnumValues HKEY_CURRENT_USER, strKeyPath, arrValueNames, arrValueTypes
For Each strValue in arrValueNames
    If Len(strValue) = 1 Then
        objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand
        intLength = Len(strRunCommand)
        strRunCommand = Left(strRunCommand, intLength - 2)
        Wscript.Echo strRunCommand
    End If
Next

该脚本连接到 RunMRU 项，然后枚举在此处找到的所有值的值。（是的，我们知道：值的值？这便是注册表术语的有趣之处。）要实现该功能，该脚本首先定义一个名为 HKEY_CURRENT_USER 的常量，并将该值设置为 &H80000001；稍后将使用该常量来告知脚本要处理的注册表配置单元。然后，我们连接到本地计算机上的 WMI 服务，务必绑定到 root/default 命名空间，即 WMI 注册表提供程序的主目录。

上一篇：用vbs读取远程计算机上的文本文件的代码

下一篇：用vbs实现重新启动 Internet Explorer

学习交流

电脑开不了机的原因和解决办法

电脑开不了机的原因和解决办法...

热门图片

猜你喜欢的新闻

猜你喜欢的关注