获取标题打开窗口，并closures具体的标题？

您可以使用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下载 ）
• 关于W3School的VBScript教程 （注意：本教程面向浏览器脚本，而不是桌面脚本）

参考

• MSDN中的VBScript用户指南与参考 （ CHM下载 ）

其他资源

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

至于在俄罗斯的VBScript资源，看看script-coding.info和Серыйфорум – 有很多有用的和有趣的例子。 另外，看看这个线程 ，其中包含许多VBScript资源的链接，包括俄语的资源。

发布这个答案的人谁仍然坚持试图关闭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"