Visual Basic

Question

可以用工具获取到窗口的句柄，但怎么调用API函数操作窗口里的控件呢？谢谢！

补充一下：用SPY工具找不到窗口下子控件的句柄，用FindWindowEx行不通。以Python为例：是通过ClassName或Name属性来定位各个控件的。想知道VB该如何操作呢？

Answer 1

在 Visual Basic 中，可以使用 API 函数来操作窗口中的控件。具体步骤如下:

1. 首先需要通过 FindWindow 或 FindWindowEx 函数定位目标窗口的句柄（handle）。

2. 找到窗口的句柄之后，需要通过 SendMessage 或 PostMessage 函数向窗口发送消息（message），从而实现对窗口中控件的操作。在参考资料中给出了一些常用的消息及其含义。

3. 发送消息时需要指定消息的类型、参数以及目标控件的标识符。通常情况下，控件标识符可以通过 GetDlgItem 函数获取。如果控件没有标识符，则需要使用其类名或者窗口文本进行定位。

4. 最后，记得释放句柄和其他资源，避免内存泄露。

以下是一个示例程序，演示了如何通过 API 函数关闭 Windows 记事本中的“保存”提示窗口：

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 hWndParent As Long, ByVal hWndChildAfter As Long, _
    ByVal lpClassName As String, ByVal lpWindowName 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

Private Const BM_CLICK = &HF5&
Private Const WM_COMMAND = &H111&

Sub CloseNotepadSaveDialog()
    ' Step 1: 找到记事本窗口的句柄
    Dim hWndNotepad As Long
    hWndNotepad = FindWindow("Notepad", vbNullString)
    
    If hWndNotepad = 0 Then
        MsgBox "未找到记事本窗口！", vbExclamation, "错误"
        Exit Sub
    End If
    
    ' Step 2: 找到保存提示窗口的句柄
    Dim hWndSaveDialog As Long
    hWndSaveDialog = FindWindowEx(hWndNotepad, 0, "#32770", "记事本")
    
    If hWndSaveDialog = 0 Then
        MsgBox "未找到保存提示窗口！", vbExclamation, "错误"
        Exit Sub
    End If
    
    ' Step 3: 点击“否”按钮关闭保存提示窗口
    Dim hWndNoButton As Long
    hWndNoButton = FindWindowEx(hWndSaveDialog, 0, "Button", "否(&N)")
    
    If hWndNoButton = 0 Then
        MsgBox "未找到【否】按钮！", vbExclamation, "错误"
        Exit Sub
    End If
    
    SendMessage hWndNoButton, BM_CLICK, 0, ByVal 0&
End Sub

请注意，由于 API 函数对操作系统资源进行直接调用，因此在编写程序时需要做好异常处理，避免因为未知的原因导致程序崩溃或者数据丢失。同时，使用 API 函数需要一定的编程基础和相关经验，在编写程序时应谨慎操作，并将注意力放在性能、稳定性等方面。