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