我想在VBA中使用Windows API的Sendinput函数将按键组合发送到窗口，例如Ctrl H到Chrome。我选择sendinput（）是因为sendmessage不允许我同时发送一个组合键，窗口将分别接收它们。另一方面，VBA中的SendKeys方法被认为是不可靠的。
所以在阅读了文档和谷歌搜索后，我找到了这段代码

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

Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWnd As LongPtr, ByVal hWndChild As LongPtr, _
    ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr

Private Declare PtrSafe Function ShowWindow Lib "user32" _
    (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Boolean

Private Declare PtrSafe Function SetForegroundWindow Lib "user32" _
    (ByVal hWnd As LongPtr) As Boolean

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

Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" _
    (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr

Private Declare PtrSafe Function GetWindow Lib "user32" _
    (ByVal hWnd As LongPtr, ByVal wCmd As Long) As LongPtr

Private Declare PtrSafe Function EnumChildWindows Lib "user32" _
    (ByVal hWnd As LongPtr, ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long

Private Declare PtrSafe Function GetWindowText Lib "user32" Alias _
    "GetWindowTextA" (ByVal hWnd As LongPtr, ByVal lpWindowText As String, ByVal nMaxCount As LongPtr) As Long

Private Declare PtrSafe Function GetForegroundWindow Lib "user32" () As LongPtr

Private Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias _
    "GetWindowTextLengthA" (ByVal hWnd As LongPtr) As Long

Public Declare PtrSafe Sub Sleep Lib "kernel32" _
    (ByVal dwMilliseconds As LongPtr)

Private Declare PtrSafe Function SendInput Lib "user32" ( _
         ByVal nInputs As LongPtr, _
         ByRef pInputs As Any, _
         ByVal cbSize As LongPtr) As Long

Private Const SW_SHOWNORMAL As Long = 1
Private Const WM_SETTEXT As Long = &HC
Private Const VK_RETURN As Integer = &HD
Private Const WM_CHAR As Long = &H102
Private Const WM_KEYDOWN As Long = &H100
Private Const WM_KEYUP As Long = &H101
Private Const WM_SYSKEYDOWN As Long = &H104
Private Const WM_SYSKEYUP As Long = &H105
Private Const VK_LBUTTON As Long = &H1
Private Const VK_RBUTTON As Long = &H2
Private Const VK_CANCEL As Long = &H3
Private Const VK_MBUTTON As Long = &H4
Private Const VK_XBUTTON1 As Long = &H5
Private Const VK_XBUTTON2 As Long = &H6
Private Const VK_BACKSPACE As Long = &H8
Private Const VK_TAB As Long = &H9 'TAB
Private Const VK_CLEAR As Long = &HC
Private Const VK_ENTER As Long = &HD
Private Const VK_SHIFT As Long = &H10
Private Const VK_CONTROL As Long = &H11 'CTRL
Private Const VK_MENU As Long = &H12
Private Const VK_PAUSE As Long = &H13
Private Const VK_CAPSLOCK As Long = &H14
Private Const VK_ESCAPE As Long = &H1B
Private Const VK_SPACE As Long = &H20
Private Const VK_PAGEUP As Long = &H21
Private Const VK_PAGEDOWN As Long = &H22
Private Const VK_END As Long = &H23
Private Const VK_HOME As Long = &H24
Private Const VK_LEFT As Long = &H25
Private Const VK_UP As Long = &H26
Private Const VK_RIGHT As Long = &H27
Private Const VK_DOWN As Long = &H28
Private Const VK_PRINTSCREEN As Long = &H2C
Private Const VK_INSERT As Long = &H2D
Private Const VK_DELETE As Long = &H2E
Private Const VK_0 As Long = &H30
Private Const VK_1 As Long = &H31
Private Const VK_2 As Long = &H32
Private Const VK_3 As Long = &H33
Private Const VK_4 As Long = &H34
Private Const VK_5 As Long = &H35
Private Const VK_6 As Long = &H36
Private Const VK_7 As Long = &H37
Private Const VK_8 As Long = &H38
Private Const VK_9 As Long = &H39
Private Const VK_A As Long = &H41
Private Const VK_B As Long = &H42
Private Const VK_C As Long = &H43
Private Const VK_D As Long = &H44
Private Const VK_E As Long = &H45
Private Const VK_F As Long = &H46
Private Const VK_G As Long = &H47
Private Const VK_H As Long = &H48
Private Const VK_I As Long = &H49
Private Const VK_J As Long = &H4A
Private Const VK_K As Long = &H4B
Private Const VK_L As Long = &H4C
Private Const VK_M As Long = &H4D
Private Const VK_N As Long = &H4E
Private Const VK_O As Long = &H4F
Private Const VK_P As Long = &H50
Private Const VK_Q As Long = &H51
Private Const VK_R As Long = &H52
Private Const VK_S As Long = &H53
Private Const VK_T As Long = &H54
Private Const VK_U As Long = &H55
Private Const VK_V As Long = &H56
Private Const VK_W As Long = &H57
Private Const VK_X As Long = &H58
Private Const VK_Y As Long = &H59
Private Const VK_Z As Long = &H5A
Private Const VK_F11 = &H7A
Private Const INPUT_KEYBOARD As Long = 1
Private Const KEYEVENTF_KEYUP As Long = 2

Const GW_CHILD = 5
Const GW_HWNDNEXT = 2

Dim keyInput()    As INPUT_
Dim sizeINPUT     As Long

Private Type INPUT_      '   typedef struct tagINPUT {
    dwType As Long                '     DWORD type;
    wVK As Integer                '     union {MOUSEINPUT mi;
    wScan As Integer              '               KEYBDINPUT ki;
    dwFlags As Long               '               HARDWAREINPUT hi;
    dwTime As LongPtr                '              };
    dwExtraInfo As LongPtr            '     }INPUT, *PINPUT;
    dwPadding As Currency         '   8 extra bytes, because mouses take more.
End Type

Sub main() ' {
    
    sizeINPUT = LenB(keyInput(0))
    Call SendKeystrokeFromExcel
    Call Sleep(100)
    Call Ctrl_H
    

End Sub ' }


Sub SendKeystrokeFromExcel()
    Dim hWnd As LongPtr
    ' Find the window by its title
    hWnd = 1378908 'Handle of Google Chrome
    ShowWindow hWnd, SW_SHOWNORMAL
    SetForegroundWindow hWnd
    Sleep (100)
    SendMessage hWnd, WM_KEYDOWN, VK_F11, 0

End Sub

Sub Ctrl_H() 

    ReDim keyInput(0 To 3)

    keyInput(0).dwType = INPUT_KEYBOARD
    keyInput(0).dwFlags = 0        ' Press key
    keyInput(0).wVK = VK_CONTROL

    keyInput(1).dwType = INPUT_KEYBOARD
    keyInput(1).dwFlags = 0        ' Press key
    keyInput(1).wVK = VK_H

    keyInput(2).dwType = INPUT_KEYBOARD
    keyInput(2).dwFlags = KEYEVENTF_KEYUP
    keyInput(2).wVK = VK_H

    keyInput(3).dwType = INPUT_KEYBOARD
    keyInput(3).dwFlags = KEYEVENTF_KEYUP
    keyInput(3).wVK = VK_CONTROL
    Call SendInput(4, keyInput(0), sizeINPUT)

End Sub

所以当我运行代码时，它很容易找到Chrome窗口。然而，当涉及到运行SUB Ctrl_H（）时，它似乎无法运行，即使我投入的工作量很大。我在互联网上找到的所有代码，包括堆栈交换（SendInput VB Basic Example）都不能工作。如果有人有任何解决办法，我会非常aprreciate。