VB.net发送按键到游戏

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.dll")>
    Private Shared Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
    End Function

    Private Const WM_KEYDOWN As Integer = &H100
    Private Const WM_KEYUP As Integer = &H101

    Private Sub SendKeyToGame(ByVal key As Keys, ByVal isKeyDown As Boolean)
        Dim hWnd As IntPtr = FindWindow(Nothing, "游戏窗口标题") ' 替换为游戏窗口的标题

        If hWnd <> IntPtr.Zero Then
            Dim lParam As IntPtr = CType((MapVirtualKey(CUInt(key), 0) << 16), IntPtr)

            If isKeyDown Then
                PostMessage(hWnd, WM_KEYDOWN, CType(key, IntPtr), lParam)
            Else
                PostMessage(hWnd, WM_KEYUP, CType(key, IntPtr), lParam)
            End If
        End If
    End Sub

    Private Sub btnSendKey_Click(sender As Object, e As EventArgs) Handles btnSendKey.Click
        SendKeyToGame(Keys.A, True) ' 发送按下A键的消息
        SendKeyToGame(Keys.A, False) ' 发送松开A键的消息
    End Sub
End Class