qtp如何关闭所有的Browser窗口

investmark

qtp如何关闭所有的Browser窗口？请指教！

zhoda02

Hi,
  It's not "out of box" work, you need add your own code in order to close all the browser. Suggestion see below:

1. check window exist
  Window("regexpwndclass:=IEFrame",.... ).Exist

2. get the hWnd
  Window("regexpwndclass:=IEFrame",.... ).getroproperty("Hwnd")

3. close window
  Window("hwnd:=....").close

Just For Your Reference

investmark

请问一下window是什么函数，我怎样找到window的用法？
a = window("title:=.*Internet.*","index:=1").Exist
        While a
        msgbox a
                window("title:=.*Internet.*","index:=1").close
                a = window("title:=.*Internet.*","index:=1").Exist
        Wend
使用上面的用法，我在一台机子上是可以使用的，但是在另一台机器上却不能运行，不知是什么 原因，请指教？

hongtang

charles_guo

多谢，这种方法我们要学学。

附带问一声：你要是想打开另外一个浏览器窗口，而你只有URL地址，要添加什么样的代码实现呢？

countrynew

SystemUtil.Run "C:\Programme\Internet Explorer\IEXPLORE.EXE","","open"

ldg135

Do While ("True")
        TrueOrFlase = Browser("index:=0").Exist
        If (TrueOrFlase="False") Then
            Exit Do
        Else
        Browser("index:=0").close
        End If
Loop

rting

sdlkfj3

dlh2002

关闭IE的窗口
      SystemUtil.CloseProcessByName("IEXPLORE.EXE")
其他的应该类似吧，楼主不妨试试

sogoc

Dim WinIe,Ie,i,m
Set WinIe=description.Create()
WinIe("regexpwndtitle").value=" Microsoft Internet Explorer"   '所有页面的regexpwndtitle属性值都是" Microsoft Internet Explorer"，也可以用其他属性
Set Ie=desktop.ChildObjects(WinIe)
m=Ie.count
For i=1 to m
        Ie(i-1).close                 ' 0为最后打开的一个,可关闭打开的几个,,循环改成for i=1 to m
Next