获取标题打开窗口,并closures具体的标题?

我怎样才能closuresWindows XP基地使用VBScript的特定标题的窗口?

还是有另一种方法来解决这个问题?

您可以使用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"