vbscript - 简单的 VBScript 不能可靠地执行

Question

因此，自从我与 VBS 合作以来，这是一个热门的时刻，但我从来没有遇到过像这样简单的事情的这个问题。下面是我的脚本的当前状态，它通过文件资源管理器导航到特定文件，打开它，并替换其中的一个值（最后一点仍在工作中。）我的问题是脚本执行不一致。有时它只打开文件资源管理器窗口，然后似乎什么也不做，但有时它工作得很好。如果没有，我检查任务管理器以查看脚本是否仍在执行，它应该是，但它没有显示在进程中。有任何想法吗？

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "explorer"
WScript.Sleep 700
WshShell.AppActivate "File Explorer"
WScript.Sleep 500
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100

WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{RIGHT}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("{DOWN}")
WScript.Sleep 100
WshShell.SendKeys("~")
WScript.Sleep 100
WshShell.SendKeys("{TAB}")
WScript.Sleep 100
WshShell.SendKeys("T")
WScript.Sleep 100
WshShell.SendKeys("E")
WScript.Sleep 100
WshShell.SendKeys("S")
WScript.Sleep 100
WshShell.SendKeys("S")
WScript.Sleep 100
WshShell.SendKeys("~")
WScript.Sleep 100
WshShell.SendKeys("T")
WScript.Sleep 100
WshShell.SendKeys("~")
WScript.Sleep 100
WshShell.SendKeys("^{H}")

标签： vbscript