vbs操作窗口

2009-10-23 09:46 712 0

摘要: 例1： Set Wrap = CreateObject("DynamicWrapper")Wrap.Register "user32.dll","FindWindow","i=ss","f=s", ...

关键词： strTitle colTasks 窗口 objWord strWindowTitle CreateObject WindowHandle FindWindow Wrap 记事本

例1： Set Wrap = CreateObject("DynamicWrapper")Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"WindowHandle = Wrap.FindWindow("", "无标题 - 记事本")If WindowHandle=0 thenMsgBox "发现窗口"ElseMsgBox "没发现"End If 例2： strWindowTitle="QQ2009;计算器;a.txt - 记事本" '要关闭的窗口标题多个用;分隔开Set objWord = CreateObject("Word.Application")Set colTasks = objWord.TasksstrWindowTitles=Split(strWindowTitle,";")For Each strTitle In strWindowTitlesIf colTasks.Exists(strTitle) ThenstrAnswer=MsgBox("发现指定窗口【"&strTitle&"】是否关闭？",vbYesNo+vbQuestion,"")If strAnswer=vbYes Then colTasks(strTitle).CloseEnd IfNext objWord.Quit

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除