|
|
- Set Word = CreateObject("Word.Application")
- Set Tasks = Word.Tasks
- For Each Task in Tasks
- If Task.Visible Then response.Write Task.Name &"<br>"
- Next
- Word.Quit
- Set word=nothing
- set tasks=nothing
如图：
另附powershell版:
- gps | ? {$_.mainwindowhandle -ne 0} | select name, mainwindowtitle
|
|
IP卡
狗仔卡
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡