如何在指定的对话框窗口上实现 VBS 脚本检测和选项操作

如果您使用 QTP（编程语言。

还有 VBS），有一个 WinExist（） 方法来确定窗口是否存在。但是，VBS 中没有这样的方法，只能使用 AppActivate 方法返回的布尔值。

以确定应用是否已成功激活。 如果对话框存在，它将始终返回 true，指示激活成功。 基于这个思路：

on error resume next

count = 0

set wshshell = "")

do while count < 15

ret = "test")

if ret then

按 Tab 键转到"cancel"按钮。

'点击"cancel"

exit do

count = count + 1

end if

loop

只要计算机安装了 Word，它就可以了。

set objword = createobject("")set coltasks =

for each objtask in coltasksif and "test" then

ret = "test")

if ret then

按 Tab 键转到"cancel"按钮。

'点击"cancel"

end if

end if

next

脚本如下：const strtitle ="完整窗口标题"

dim objshell

set objshell = createobject("")while true

if then

n"set objshell = nothingend if

Wend：将 ** 中的 strtitle 设置为要检测的窗口的完整标题。

如果要停止检测，请转到任务管理器并“结束”该过程。

新增：但是，这样的要求（等待窗口、控制窗口状态等）最方便用 autoit 实现。 Autoit还有很多其他强大的功能，如果房东有兴趣，可以在网上搜索“autoit”看看，它是免费的。

我写了一个，状态文件只能在XP系统中使用，设置ws="")set w=

do for each uu in w

if and "正式版" then

msgbox '在这个昏昏欲睡的上升步骤中输入你的**。

name1=""

call aa(name1)

end if

loopfunction aa(n)

set wmi=getobject("winmgmts:\oot\cimv2")

set list="select * from win32_process where name='尺子乱七八糟"& n &"

for each uu2 in list

next end function

不可以，您只能选择只安装一个OK按钮，以达到让其他人无法选择的目的。

msgbox 没有 enabled 属性。

它们是 1、2、4、8、16 ,..4096是两边，你自己试试，至于你说的区别，16是味精盒

我爱你",,16"是真的！ "

set ws=createobject(""痕迹）。"a"Monobu，其中 a 是引擎盖状态窗口的标题。