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
您说对了：乍一看，它是有点可怕，不是吗？告诉您原因吧，让我们向您介绍一个该 For Each 循环的简化版本，然后我再解释为何将一些附加代码添加到此循环中。该简化循环如下： For Each strValue in arrValueNames objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand Wscript.Echo strRunCommand Next 在此我们所要做的就是建立一个循环，该循环将遍历所有注册表值。要读取其中的每个值，我们只需调用 GetStringValue 方法： objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValue,strRunCommand GetStringValue 所传递的四个参数：常量 HKEY_CURRENT_USER；变量 strKeyPath；变量 strValue（代表各个值的名称，例如 A、B 或 C）；名为 strRunCommand 的输出参数。通过使用此输出参数，我们只需指定一个变量名称，GetStringValue 方法会将注册表值的值（即，相应的“运行”命令）分配给它。调用 GetStringValue 后，我们将回显 strRunCommand，继续循环，并处理集合中的下一个值。 对于该简化的 For Each 循环已讲了不少了；而真正的 For Each 循环中的所有额外代码又怎样呢？之所以使用额外代码主要是为了可为我们提供稍好些的输出。例如，在 RunMRU 项中，有一个名为 MRUList 的注册表值。这并不代表一个实际的命令；而是代表最近使用的命令的先后出现顺序。这对我们而言并不重要（至少今天不重要），因此我们宁愿跳过该 MRUList 值。这就是下面的代码所要执行的操作： If Len(strValue) = 1 Then 在此行代码中，我们使用 Len 函数来检查值名称中的字符数。如果字符数（长度）等于 1，我们将继续进行并读取该值。如果长度不等于 1（显而易见，当 MRUList 具有 7 个字符时，就属于这种情况），则我们只需跳过该值并移至集合中的下一项即可。 我们添加的另一小段代码是： intLength = Len(strRunCommand) strRunCommand = Left(strRunCommand, intLength - 2) 如果您查看注册表，您会发现所有命令的末尾都添加了一个 /1。如果需要的话，可将其保留下来，不过很容易将其去掉。我们所要做的是确定命令的长度，然后使用 Left 函数返回字符串中的第一个 x 字符。x 等于什么？它等于字符总数减 2。这就意味着，我们要获取除最后 2 个字符（即 /1）以外的所有字符，并将它们回显到屏幕上。 至此您已实现了您的目的：一个可返回在运行对话框所键入的最近使用的命令的脚本。我们仍不知道神秘的楼梯到底通向哪里，但我们需要先做重要的事情。
