怎样最大化一个Browser

非Tab模式:

Hwnd = Browser("X").object.HWND

Window("hwnd:=" & hwnd).Maximize

Tab模式:

Dim hwndBrw, hwndWindow

hwndBrw = Browser("Browser").GetROProperty("hwnd")

Const GA_ROOT = 2

'Declare Function GetAncestor Lib "user32.dll" (ByVal hwnd As Long, ByVal gaFlags As Long) As Long

Extern.Declare micLong, "GetMainWindow", "user32", "GetAncestor", micLong, micLong

 

'Get the main IE window handle

hwndWindow = Extern.GetMainWindow(hwndBrw, GA_ROOT)

Window("hwnd:=" & hwndWindow).Maximize

转载于:https://www.cnblogs.com/dushuai/articles/2672822.html