首先我们用QTP中的object spy来看一下这个窗口的属性,找到我们可以利用的属性
这边我想利用的就是这个窗口的名称属性及值,利用这个名称属性来告诉QTP该关闭哪个窗口属性.
代码如下:
Dim loginwin
Set loginwin=descrīption.Create() '创建对象名为loginwin的对象
loginwin( "regexpwndtitle").value="Login" ,对象属性及值
Set child=desktop.ChildObjects (loginwin)
For i=1 to child.count
child(i-1).close '循环寻找这个对象,一次关闭
Next
需要更改的地方,我用蓝色表示了,大家也可以自己试试.不过有一点要注意就是,要执行关闭窗口的关系,这个也完全依照windows的特性来做.最上面的处在激活状态的先关,然后依次关闭其他的窗口.否则脚本会无法执行.可以把这段脚本放在脚本的最前面,实现测试环境的初始化
此文源于51testing博客,转载请注明出处
原始链接:http://blog.51testing.com/?26649/action_viewspace_itemid_1587.html