vba下，抓取模态对话框

vba下，抓取模态对话框

通过api的哪个函数可以做到？

在 VBA 中，你可以使用 Windows API 函数 "GetWindowText" 和 "GetDlgItemText" 来抓取模态对话框的文本。

下面是一个示例代码，用来抓取模态对话框标题：

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Function GetModalTitle() As String
    Dim lngLength As Long
    Dim strTitle As String
    lngLength = GetWindowTextLength(FindWindow(vbNullString, vbNullString))
    If lngLength > 0 Then
        strTitle = String$(lngLength + 1, Chr$(0))
        GetWindowText FindWindow(vbNullString, vbNullString), strTitle, lngLength + 1
        GetModalTitle = Left$(strTitle, lngLength)
    End If
End Function

同样的，你可以使用 "GetDlgItemText" 函数来抓取对话框中的文本控件的文本：

Private Declare Function GetDlgItemText Lib "user32" Alias "GetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String, ByVal nMaxCount As Long) As Long

Public Function GetDlgItemText(ByVal hDlg As Long, ByVal nIDDlgItem As Long) As String
    Dim lngLength As Long
    Dim strText As String
    lngLength = GetWindowTextLength(GetDlgItem(hDlg, nIDDlgItem))
    If lngLength > 0 Then
        strText = String$(lngLength + 1, Chr$(0))
        GetDlgItemText hDlg, nIDDlgItem, strText, lngLength + 1
        GetDlgItemText = Left$(strText, lngLength)
    End If
End 

请注意，这仅是一个简单的示例，可能需要根据您的特定需求进行调整和完善。