获取标题打开窗口并关闭特定标题？

Question

如何使用VBscript在Windows XP基础上关闭具有特定标题的窗口？

或者有另一种方法可以解决这个问题吗？

Answer 1

您可以使用SendKeys方法将Alt + F4快捷方式发送到要关闭的窗口。 此窗口必须处于活动状态，因此您还需要在SendKeys之前调用AppActivate 。

基本上，你需要这样的东西：

Set oShell = CreateObject("WScript.Shell") 
oShell.AppActivate "Untitled - Notepad"
oShell.SendKeys "%{F4}"

您可能希望添加检查和小延迟，以使您的脚本更加万无一失：

Set oShell = CreateObject("WScript.Shell") 
If oShell.AppActivate("Untitled - Notepad") Then
   WScript.Sleep 500
   oShell.SendKeys "%{F4}"
End If

---

编辑:(您对VBScript资源的评论/问题的答案。）

我已经编译了一些指向VBScript网站和资源页面的链接，我希望它们会有所帮助：

学习

• 脚本：你的第一步
• 芝麻脚本 （ CHM下载 ）
• 关于W3Schools的VBScript教程 （注意：本教程面向浏览器脚本，而不是桌面脚本）

参考

• MSDN中的VBScript用户指南和参考 （ CHM donwload ）

其他资源

• TechNet脚本中心 （ CHM下载 ）
• TechNet脚本存储库 （ CHM下载 ）
• 嘿，脚本专家！ 博客 （ CHM arvhive ）
• Rob van der Woude的脚本页面
• 另外，请在Stack Overflow上查看VBScript问题

至于俄语中的VBScript资源，请查看script-coding.info和Серыйфорум - 这里有很多有用且有趣的例子。 另外，请查看此主题 ，其中包含许多VBScript资源的链接，包括俄语版本的资源。

Answer 2

为那些在创建WScript.Shell对象并且无法找到解决方案后仍然试图关闭WScript.Shell对象的人发布此答案。 我尝试了上面的解决方案，它导致MSWord 2016崩溃，不知道我的Vb脚本的原因：

        Dim wsh As Object
        Set wsh = CreateObject("WScript.Shell", vbNothing)
        wsh.Run "cmd.exe /C pause"
        wsh.Run "taskkill /F /IM cmd.exe"