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）以外的所有字符，并將它們回顯到屏幕上。 至此您已實現了您的目的：一個可返回在運行對話框所鍵入的最近使用的命令的腳本。我們仍不知道神秘的樓梯到底通向哪里，但我們需要先做重要的事情。
