标题：如何关闭外部程序窗口

strWindowTitle="QQ2009;计算器;a.txt - 记事本" '要关闭的窗口标题多个用;分隔开
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
strWindowTitles=Split(strWindowTitle,";")
For Each strTitle In strWindowTitles
If colTasks.Exists(strTitle) Then
strAnswer=MsgBox("发现指定窗口【"&strTitle&"】是否关闭？",vbYesNo+vbQuestion,"")
If strAnswer=vbYes Then colTasks(strTitle).Close '这个时候弹出确认窗口，这种情况如何关闭窗口？
End If
Next
objWord.Quit

呵呵，已找到方法

因为是后台操作，所以 sendkeys 不起作用

用API的PostMessage

找到方法了，应该分享一下，不能只从网站索取，不奉献呀！