如何从 VBScript 最大化屏幕？

Question

显示数据库信息的 Web 应用程序在全屏模式下比小 window 更具可读性。问题是，我无法让 window 从 UFT/QTP.

最大化

我已经尝试运行来自 Wscript.Shell 的浏览器对象，但是应用程序 returns 到 UFT 并最大化 window 而不是新创建的浏览器 window.

siteA = "https://google.com"
Const max_window = 3
Set browobj = CreateObject("Wscript.Shell")
Set oShell = CreateObject("WScript.Shell")
'browobj.Run "chrome -k -incognito -url "&siteA
browobj.Run "chrome -incognito -url "&siteA, max_window
oShell.SendKeys "% x"
browobj.sendkeys "{F9}"
browobj.sendkeys "(% )X"
browobj.SendKeys "% x"

Set browobj = Nothing

使用新浏览器的焦点对象最大化 window 的任何解决方案？

编辑：

即使在下方也不会最大化取自此 List of Controls 不起作用。

SystemUtil.Run "chrome.exe" , siteA ,,,3 
chrome.exe  --incognito --start-maximized

如果您关闭 chrome 的所有实例，这些控件可以正常工作，但如果您在 chrome 中有一个活动的 window，它将采用这些属性。

Answer 1

我们在浏览器登录过程中定义了一个函数，该函数获取 window 并将其最大化，以便我们的 UFT 使用（几乎）全屏浏览器处理运行 - 我们不需要隐藏菜单栏等。这是我们正在使用的功能：

Public Function MISC_MaximiseBrowser(ByVal oBrowser, ByRef ErrorMsg)
    LOG_Write vbNewLine & "MISC_MaximiseBrowser"
    LOG_Write "oBrowser: " & oBrowser.GetROProperty("TestObjectName")

    Dim Hwnd
    dim bIsMax, bIsMaxable

    MISC_MaximiseBrowser = True

    Hwnd = oBrowser.Object.HWND

    If Window("hwnd:=" & Hwnd).GetROProperty("maximized") Then
        bIsMax = True
    Else
        bIsMax = False
    End If

    If Window("hwnd:=" & Hwnd).GetROProperty("maximizable") Then
      bIsMaxable = True
    Else
      bIsMaxable = False
    End If

    If Not bIsMax And bIsMaxable Then
        Window("hwnd:=" & Hwnd).Maximize
    End If

End Function

它的作用是接受您正在使用的 Browser UFT 对象并获取它的句柄。如果浏览器尚未最大化并且可以最大化它，它会这样做。

您可以忽略函数开头的 LOG_Write 语句 - 这些用于我们的内部日志记录步骤

如何从 VBScript 最大化屏幕？

How to Maximize Screen from VBScript?

vbscript

qtp

maximize-window

hp-uft

wscript.shell