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

Question

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

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

更新：

基于 cmets，我尝试执行以下操作：

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/StatusSimulator.zip

Answer 1

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

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

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

Answer 2

文本抓取由可访问性界面完成。对于托管代码，您可以使用 System.Windows.Automation 命名空间中的类。如果你已经有一个窗口句柄，那么提取文本很简单：

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

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

Answer 3

GetWindowText 的 P/Invoke 定义不正确。使用 P/Invoke String 类型只会编组，而不是编组，这就是为什么您没有收到任何文本的原因。如果您将 lpString 参数更改为 StringBuffer，它将起作用。

请注意，您还需要将 StringBuffer 的容量设置为 1000，然后再将其传递给 GetWindowText，因为它需要将分配的缓冲区传递给它 - 它不会调整 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