从 Windows 应用程序中的文本框中抓取文本

Question

是否可以从单独的可执行文件中包含的文本框中抓取文本？我有一个带有调试窗口的应用程序。调试窗口生成详细日志。但是，日志永远不会保存在任何地方，只能在应用程序内查看。如果应用程序生成异常，我想给自己发送电子邮件，知道已生成异常，以便我可以跳进去检查。还有一个复制文本框的按钮，所以我正在考虑使用 Spy++ 来获取命令信息。但是，我不知道从那里去哪里。非常感谢任何指点。

我更喜欢在 .NET 中使用 C#，但如果我需要使用 C++，我会的。

更新：

根据评论，我尝试执行以下操作：

Private Declare Function GETWINDOWTEXT Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindow As String) As IntPtr
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Ansi Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
Private Const WM_GETTEXT As Short = &HDS
Private Const WM_GETTEXTLENGTH As Short = &HES

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim hwnd As Integer = FindWindowEx(0, 0, "MyAppForm", "Hello World")

    If Not hwnd = 0 Then
        SetForegroundWindow(hwnd)

        'Dim LabelEx As Integer = FindWindowEx()
        Dim TextBoxEx As Integer = FindWindowEx(hwnd, 0, "MyAppTextBox", vbNullString)
        Dim txtLength As Long = SendMessage(TextBoxEx, WM_GETTEXTLENGTH, CInt(0), CInt(0)) + 1
        Dim txtBuff As String = Space(txtLength)
        Dim txtValue As Long = SendMessage(TextBoxEx, WM_GETTEXT, txtLength, txtBuff)

        MsgBox(txtBuff)
    End If
End Sub

但是，我似乎找不到文本框控件的句柄。当我枚举所有窗口时，我只看到一个 TextBox 对象，但在整个枚举过程中我多次看到父窗口。如何获取窗口内控件的指针？

更新 2：

我上传了一个示例 Windows 应用程序来显示我尝试访问的应用程序类型。除了文本框之外，我还试图获取两个标签的值。文本框是最重要的。示例 Win 应用程序位于： http://www.mediafire.com/file/172r2xapj7p4f2f/状态模拟器.zip

Answer 1

文本抓取是通过辅助功能接口完成的。对于托管代码，您可以使用 System.Windows.Automation 命名空间中的类。如果您已经有一个窗口句柄，那么提取文本很简单：（

AutomationElement.FromHandle(hwnd)
                 .GetCurrentPropertyValue(ValuePattern.ValueProperty) as string;

有点困惑，因为问题被标记为 C# 并且您要求 C# 解决方案，但您的代码示例是用 VB 编写的。）

Answer 2

当您使用 WM_GETTEXT 消息时，您提供了一个指向接收文本的缓冲区的指针。如果您将此消息发送到另一个进程中的窗口，那么您提供的指针将位于您的进程地址空间中，而不是其他进程中。

我做过类似的事情（在另一个进程中抓取窗口），我所做的有效方法是使用 DLL 注入。基本上，您使用 SetWindowsHook 并在 DLL 内提供回调。然后，操作系统将 DLL 加载到其他进程中，您可以确定何时加载到所需的目标进程中。此时您的代码位于另一个进程中，您可以获取窗口文本。

然后就是将其返回到您的应用程序的问题。我自己用共享内存块来做。也许有一种更简单的方法可以完成这一切，但这在过去对我有用。

Answer 3

您对 GetWindowText 的 P/Invoke 定义不正确。使用 P/Invoke String 类型仅编组入，而不编组出，这就是您无法返回任何文本的原因。如果将 lpString 参数更改为 StringBuffer ，它将起作用。

请注意，在将 StringBuffer 传递给 GetWindowText 之前，您还需要将其容量设置为 1000，因为它需要将已分配的缓冲区传递给它 - 它不会调整 StringBuffer 本身的大小。

请参阅定义和示例以及 pinvoke.net。

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function GetWindowText(ByVal hwnd As IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer
End Function

Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Integer) 

As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindow As String) As IntPtr
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
Private Declare Ansi Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
Private Const WM_GETTEXT As Short = &HDS
Private Const WM_GETTEXTLENGTH As Short = &HES

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim hwnd As Integer = FindWindowEx(0, 0, "MyAppForm", "Hello World")

    If Not hwnd = 0 Then
        SetForegroundWindow(hwnd)

        'Dim LabelEx As Integer = FindWindowEx()
        Dim TextBoxEx As Integer = FindWindowEx(hwnd, 0, "MyAppTextBox", vbNullString)
        Dim txtLength As Long = SendMessage(TextBoxEx, WM_GETTEXTLENGTH, CInt(0), CInt(0)) + 1
        Dim txtBuff As New System.Text.StringBuilder(txtLength + 1)
        GetWindowText(hWnd, txtBuff , txtBuff .Capacity)
        Dim txtValue As Long = SendMessage(TextBoxEx, WM_GETTEXT, txtLength, txtBuff)
        MsgBox(txtBuff.ToString())
    End If
End Sub