您的位置：软件测试频道－正文

在QTP中列举当前打开的所有浏览器对象的函数2008-05-12 来自：lizhe1985  [收藏到我的网摘]

来源：实用性测试（Pragmatistic Testing） - CSDNBlog

在QTP中列举当前打开的所有浏览器对象的函数：

Public Function getNumOfBrowsers()
Dim desc
Set desc = Description.Create()
desc("micclass").Value = "Browser"

Set objBrowsersColl = Desktop.ChildObjects(desc)
getNumOfBrowsers = objBrowsersColl.Count
report micDone, "Number of Open Browsers", getNumOfBrowsers
End Function

推荐人评论

在QTP中列举当前打开的所有浏览器对象的函数。

用户评论

正在载入评论列表...