如何通过SAP GUI脚本处理登录后弹出的系统消息窗口？

针对录制回放图标禁用、无法获取按钮ID的问题，给你几个可行的处理方法：

• 直接通过弹窗结构定位按钮
  这类登录后的系统消息弹窗一般是SAP的二级窗口（wnd[1]），按钮通常是工具栏中的第一个按钮，也可以通过文本匹配定位。用VBS脚本实现的示例如下：

Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
Set connection = application.Children(0)
Set session = connection.Children(0)

' 检查是否触发了系统消息弹窗
If session.ActiveWindow.Name = "wnd[1]" Then
    ' 优先点击默认确认按钮（通常是工具栏第一个按钮）
    session.FindById("wnd[1]/tbar[0]/btn[0]").Press
    
    ' 如果默认按钮匹配失败，遍历按钮找对应文本的按钮（比如"确认"）
    ' For Each btn In session.FindById("wnd[1]/tbar[0]").Children
    '     If btn.Text = "确认" Then
    '         btn.Press
    '         Exit For
    '     End If
    ' Next
End If

• 设置自动确认消息对话框
  SAP GUI脚本支持自动处理消息弹窗，只需在登录后添加配置代码，注意这个设置会影响所有消息弹窗，建议处理完目标弹窗后恢复默认：

' 设置自动确认消息对话框
session.MessageDialogMode = 1
' 执行登录后的后续操作...
' 按需恢复默认设置
session.MessageDialogMode = 0

• Windows API辅助定位（备选方案）
  如果SAP自带的脚本方法失效，可以用VBS结合Windows API定位窗口并点击按钮，需要用Spy++工具确认弹窗的类名和按钮文本：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const BM_CLICK = &HF5

' 查找系统消息窗口（类名和标题根据实际情况调整）
Dim hwndMsg As Long
hwndMsg = FindWindow("SAP_FRONTEND_SESSION", "系统消息")
If hwndMsg <> 0 Then
    ' 查找确认按钮
    Dim hwndBtn As Long
    hwndBtn = FindWindowEx(hwndMsg, 0, "Button", "确认")
    If hwndBtn <> 0 Then
        SendMessage hwndBtn, BM_CLICK, 0, 0
    End If
End If

内容的提问来源于stack exchange，提问作者Fpasquer