QTP 浏览器最大化、最小化，适用于IE6\7\8

最新推荐文章于 2022-01-20 17:14:29 发布

hyholine

最新推荐文章于 2022-01-20 17:14:29 发布

阅读量2.2k

点赞数

分类专栏： QTP VBS 文章标签：浏览器 ie microsoft function internet

QTP 同时被 2 个专栏收录

13 篇文章

订阅专栏

VBS

5 篇文章

订阅专栏

本文介绍了一段VBScript脚本，用于获取安装的Internet Explorer版本并实现对其窗口状态的控制，如最大化、最小化和还原。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Function
GetIEVersion() 
        KeyPath =
"HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Version"
        Set
objShell = CreateObject("WScript.Shell")
        GetIEVersion = Split(objShell.RegRead(KeyPath),".")(0)
        Set
objShell = Nothing
End 
Function

'longhwnd： 浏览器的hwnd值
'intOperate： 操作标记，1代表最大化，2代表最小化，3代表还原大小
Function
BrowserOperates(longhwnd,intOperate) 
        If
GetIEVersion = 6 Then
                Select
Case intOperate 
                        Case
1 
                                Window("hwnd:="
& longhwnd).Maximize 
                        Case
2 
                                Window("hwnd:="
& longhwnd).Minimize 
                        Case
3 
                                Window("hwnd:="
& longhwnd).Restore 
                End
Select
        Else
                Set
BrowserDesc_1= Description.Create() 
                Set
BrowserDesc_2= Description.Create() 
                BrowserDesc_1("micClass").Value =
"Browser"
                BrowserDesc_2("NativeClass").Value =
"IEFrame"
                Set
BrowserList_1= Desktop.ChildObjects(BrowserDesc_1) 
                Set
BrowserList_2 = Desktop.ChildObjects(BrowserDesc_2) 
                For
i = 0 To 
BrowserList_1.count - 1 
                        If
BrowserList_1(i).GetROProperty("hwnd") = longhwnd
Then
                                Select
Case intOperate 
                                        Case
1 
                                                BrowserList_2(i).Maximize
                                        Case
2 
                                                BrowserList_2(i).Minimize
                                        Case
3 
                                                BrowserList_2(i).Restore
                                End
Select
                                Exit
Function
                        End
If
                Next
        End
if 
End 
Function