QTP 瀏覽器最大化、最小化，適用於IE6\7\8

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