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

【问题标题】：Get title opening windows and close with specific title?获取标题打开窗口并以特定标题关闭？
【发布时间】：2016-05-20 12:16:56
【问题描述】：

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

或者有没有其他方法可以解决这个问题？

【问题讨论】：

标签： windows vbscript

【解决方案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 网站和资源页面的链接，希望它们会有所帮助：

学习

Scripting: Your First Steps
Sesame Script (CHM download)
VBScript Tutorial 在 W3Schools 上（注意：本教程面向浏览器脚本，而不是桌面脚本）

参考文献

VBScript User's Guide & Reference 在 MSDN (CHM donwload)

其他资源

TechNet Script Center (CHM download)
TechNet Script Repository (CHM download)
Hey, Scripting Guy! blog (CHM arvhive)
Rob van der Woude's Scripting Pages
另外，请在 Stack Overflow 上查看VBScript questions

至于俄语的 VBScript 资源，请查看 script-coding.info 和 Серый форум — 有很多有用且有趣的示例。另外，请查看this thread，其中包含许多 VBScript 资源的链接，包括俄语资源。

【讨论】：

很好用！！！谢谢!!!你能告诉文学对vbscript或英语或俄语有用吗;）
有人质疑它在 Windows 7 上的表现如何？ Set oShell = CreateObject("WScript.Shell") If oShell.AppActivate("Untitled - Notepad") Then WScript.Sleep 500 oShell.SendKeys "%{F4}" End If this not work on windows 7 ((((跨度>

【解决方案2】：

为在创建 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"

【讨论】：