您现在的位置：程序化交易>> 期货公式>> 金字塔等>> 其他期货软件知识>>正文内容

如何关闭外部程序窗口　[金字塔]

作者：金字塔来源：cxh99.com 发布时间：2012年06月30日点击数：　【收藏到本网的会员中心】

咨询内容： 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
用户回复：
找到方法了，应该分享一下，不能只从网站索取，不奉献呀！

【字体：小大】【打印文章】【查看评论】

没有相关内容