我什至不确定从哪里开始我的问题，我尝试了一百种东西并在谷歌上搜索了几个小时，但没有找到任何有用的东西。 (我对每一个卑鄙的把戏都持开放态度。)

这是我的问题:

我有一个带有列表框的 .hta 文件，如下所示:

它列出了我的 SAP Gui 运行的所有 session /模式。

        Set SapGuiAuto  = GetObject("SAPGUI")
        Set application = SapGuiAuto.GetScriptingEngine

        If application.Connections.Count > 0 Then
            Set connection  = application.Children(0)

            If connection.Sessions.Count > 0 Then
                Set session = connection.Children(0)
            End If
        End If


        If IsObject(WScript) Then
            WScript.ConnectObject session,     "on"
            WScript.ConnectObject application, "on"
        End If

Set optGroup = Document.createElement("OPTGROUP")
    optGroup.label = "Server"


    'count all connected servers 
    ConnectionCount = application.Connections.Count




        If ConnectionCount > 0 Then
            Sessionlist.appendChild(optGroup)

            Else 
            optGroup.label = "No connection here."


        End If
        'count all sessions per server


        If ConnectionCount > 0 Then
            For Each conn in application.Connections

                'Text output connections and sessions

                SessionCount = conn.Sessions.Count
                whatIsIt  = conn.Description
                ConnectionFeld.innerhtml = ConnectionFeld.innerhtml & " <br> " & SessionCount & " Sessions auf " & whatIsIt

                'fill listbox with all connections

                Set objOption = nothing
                Set optGroup = Document.createElement("OPTGROUP")
                optGroup.label = conn.Description
                Sessionlist.appendChild(optGroup)

                i = 0

                    'fill listbox with all sessions
                    For Each sess In conn.Sessions

                        i = i + 1
                        Set objOption = Document.createElement("OPTION")

                            objOption.Text = "Session " & i & ": " & sess.ID
                            objOption.Value = sess.ID
                            SessionList.options.add(objOption)

                    Next
            Next

        Else 

        Exit Sub

        End If

我的目标:当我双击该列表中的一个条目时，我的 SAP Gui 的选定实例应该出现在前台/被激活。

不幸的是，我的任务管理器只列出了一项任务，即“SAP 登录”。我打开的窗口之一也有名称“SAP Logon”，所有其他窗口都有相同的名称:“SAP Easy Access”。

我可以查看连接 ID(服务器名)和 session ID 的唯一方法是使用 vbscript 提取它们。 (见上文)

有什么办法吗？在尝试了一千种解决方案后，我能想到的唯一解决方法是这两个:

极其丑陋的解决方法:

If sessionID = sess.ID Then

Set objShell = CreateObject("shell.application")
objShell.MinimizeAll

sess.findById("wnd[0]").maximize

End If

它最小化所有窗口，然后最大化选定的 SAP 窗口。不幸的是，我的 HTA-GUI 也被最小化了，这有点糟糕。

第二个想法:

以某种方式通过快捷方式访问这些可点击的东西，并将其放入我的脚本或其他一些丑陋的方式。

您必须手动执行此操作:

单击那个小箭头，右键单击图标，然后左键单击名称。

有什么方法可以自动化吗？这让我发疯。

希望有人能帮助我，我将不胜感激。

PS:我坐在一台权限受限的机器上，所以我可能无法使用类似 Windows API 的解决方案来解决这个问题。

关于评论的编辑:

这是不可能的:

• 更改注册表项
• 创建 COM 对象
• 使用 VBScript 以外的任何东西

最佳答案

同样，它也适用于以下命令:

session.findById("wnd[0]").iconify
session.findById("wnd[0]").maximize

关于windows - 使用 vbscript 激活(置于前台)特定窗口，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/35205587/