vba 如何使用findwindow和sendmessage控制edge

可以使用 VBA 中的 Win32 API 函数 `FindWindow` 和 `SendMessage` 来控制 Edge 浏览器。

首先，你需要知道 Edge 浏览器的窗口类名和窗口标题。可以使用 Spy++ 工具获取这些信息。假设 Edge 浏览器的窗口类名为 "MicrosoftEdgeWindowClass"，窗口标题为 "Microsoft Edge"。

接下来，按照以下步骤来使用 VBA 控制 Edge 浏览器：

1. 在 VBA 代码中声明 Win32 API 函数：

Private Declare PtrSafe Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As LongPtr

Private Declare PtrSafe Function SendMessage Lib "user32" _
    Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, _
    ByVal wParam As LongPtr, lParam As Any) As LongPtr

2. 使用 `FindWindow` 函数查找 Edge 浏览器的窗口句柄：

Dim hwndEdge As LongPtr
hwndEdge = FindWindow("MicrosoftEdgeWindowClass", "Microsoft Edge")
If hwndEdge = 0 Then
    MsgBox "Edge browser is not running!"
    Exit Sub
End If

3. 使用 `SendMessage` 函数发送消息给 Edge 浏览器窗口：

Const WM_KEYDOWN As Long = &H100
Const WM_KEYUP As Long = &H101

Dim key As Long
key = Asc("A") ' 发送 A 键

SendMessage hwndEdge, WM_KEYDOWN, key, ByVal 0&
SendMessage hwndEdge, WM_KEYUP, key, ByVal 0&

这个例子中，我们发送了一个 "A" 键给 Edge 浏览器。你可以通过修改 `key` 变量的值来发送不同的按键。注意，`SendMessage` 函数在发送消息时需要指定不同的消息码，如 `WM_KEYDOWN` 和 `WM_KEYUP`。

希望能对你有所帮助！