以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  如何关闭外部程序窗口  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=6627)
--  作者：阿火
--  发布时间：2011/5/23 22:04:44
--  如何关闭外部程序窗口
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
--  作者：阿火
--  发布时间：2011/5/24 8:20:47
--  

呵呵，已找到方法

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

用API的PostMessage
--  作者：guotx2010
--  发布时间：2011/6/21 12:30:49
--  

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