Visual Basic

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

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

在 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 函数需要一定的编程基础和相关经验，在编写程序时应谨慎操作，并将注意力放在性能、稳定性等方面。

获取控件句柄：
可以使用FindWindowEx函数或SendMessage函数来查找或获取控件句柄。使用FindWindowEx函数时，需要指定控件的窗口类名和控件名，使用SendMessage函数则需要指定控件的消息类型和参数。
例如，以下代码使用FindWindowEx函数获取VB应用程序中的Button控件句柄：

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 WM_COMMAND As Long = &H111
Private Const BN_CLICKED As Long = 0
Private ButtonHandle As Long
ButtonHandle = FindWindowEx(VBHandle, 0, "Button", "Button标签名")

或者使用SendMessage函数实现：

Private ButtonHandle As Long
ButtonHandle = FindWindowEx(VBHandle, 0, "Button", "Button标签名")
Call SendMessage(ButtonHandle, WM_COMMAND, BN_CLICKED, 0&)