VBS 不等待 .Run 命令完成

Question

我有一个代码会自动打开个性化窗口，将主题更改为 Windows 7 Basic，然后关闭窗口。问题是，运行命令完成后窗口没有关闭。我使用的代码是这样的：

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:""C:\Windows\Resources\Ease of Access Themes\basic.theme""",1,true

WshShell.AppActivate("Desktop Properties") 
WshShell.Sendkeys "%FC"
WshShell.Sendkeys "{F4}"

现在，在最后加上“true”语句，是不是应该基本上等待这个命令完成，然后它会继续前进？因为如果我删除“true”语句以及最后的“1”，而是添加一个计时器，例如：

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:""C:\Windows\Resources\Ease of Access Themes\basic.theme"""


Wscript.Sleep 5000
WshShell.AppActivate("Desktop Properties") 
WshShell.Sendkeys "%FC"
WshShell.Sendkeys "{F4}"

只有在这里它会等待任务完成，然后关闭窗口。我究竟做错了什么！另外，有人可以准确解释“%FC”和“{F4}”的作用吗？我知道其中一个关闭了窗口，但我很难找到它们的确切含义。提前谢谢你！

Answer 1

我希望我知道它的真正原因，但似乎脚本是按设计工作的。 RunDll32.exe 必须将处理传递给另一个进程，这就是脚本似乎无需等待即可继续执行的原因。我更新了脚本以证明发生了什么

Set WshShell = WScript.CreateObject("WScript.Shell")

msgbox (IsProcessRunning("rundll32.exe"))
WshShell.Run "rundll32.exe %SystemRoot%\system32\shell32.dll,Control_RunDLL %SystemRoot%\system32\desk.cpl desk,@Themes /Action:OpenTheme /file:""C:\Windows\Resources\Ease of Access Themes\basic.theme""",1,true
msgbox (IsProcessRunning("rundll32.exe"))
WshShell.AppActivate("Desktop Properties") 
WshShell.Sendkeys "%FC"
WshShell.Sendkeys "{F4}"

Function IsProcessRunning(pProcessName)
    ' Function will do a WMI query to determine if a the process pProcessName is currently
    ' running on the local computer. Returns True if detected. 
    Dim objWMIService
    Dim strWMIQuery

    strWMIQuery = "Select * From Win32_Process Where name Like '" & pProcessName & "'"
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") 

    ' Run The query against the WMI for the local machine
    If (objWMIService.ExecQuery(strWMIQuery).Count > 0) Then
        IsProcessRunning = True
    Else
        IsProcessRunning = False
    End If
End Function

我添加了一个检查进程是否正在运行的函数。在您的命令之前一次，以证明它尚未运行。在rundll32.exe调用之后也证明它仍然没有运行。虽然在主题更改处理完成之前显示第二个 False 消息框似乎是多余的。

来自旧的 MS 知识库文章的片段：http://support.microsoft.com/kb/164787

Rundll 的工作原理

Rundll 执行以下步骤： 1.它解析命令行。 2. 它通过LoadLibrary() 加载指定的DLL。 3. 通过GetProcAddress()获取函数的地址。 4. 它调用函数，传递命令行尾部，即 . 5.函数返回时，Rundll.exe卸载DLL并退出。

希望有人可以修饰一下。