Question

vbs如何检测当前是否有标题为“XXXXX”的窗口

如果没有检测到符合的窗口，则循环检测，直到这个窗口出现为止

Answer 1

on error resume next
title="Form1" '窗口标题
Set ws = CreateObject("wscript.shell")
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
do
Set colTasks = objWord.Tasks
if colTasks.exists("Form1") then
msgbox "窗口存在"
ws.run "tskill winword",0 '或者 objword.quit
wscript.quit
end if
wscript.sleep 1000
loop

追问

不管这个窗口【Form1】是否存在，它都是提示“窗口存在”啊？
还是不行啊、

追答

on error resume next

title="Form1" '这里随便写个窗口标题

Set ws = CreateObject("wscript.shell")
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
do
Set colTasks = objWord.Tasks
if colTasks.exists(title) then '
msgbox "窗口存在"
ws.run "tskill winword",0 wscript.quit
end if
wscript.sleep 1000
loop

追问

还是一样，不管这个窗口是否存在，它都是提示“窗口存在”

追答

测试了几次没有问题，你把 title变量 后面的标题改改

追问

我改的就是Form1，能留下你的QQ吗

追答

Hi

Answer 2

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

在TIMER里面用这个函数监视就是了

追问

这和VBS有什么关系呢

Answer 3

VB只能够检测到一部分窗口类型，win7下的窗口vb是检测不到的。

追问

我说的是VBS

追答

VB与VBS类似。