如何關閉外部程序窗口 [金字塔]
- 咨詢內容：
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
- 用戶回復：
找到方法了，應該分享一下，不能只從網站索取，不奉獻呀！
- 上一篇：海龜系統不完整
- 下一篇：建議:希望ARRAY對象可以支持字符串
相關文章
-
沒有相關內容
會員登錄/注冊