如何在Windows的VB.net控制台模式下无暂停检测按键？

要实现无等待检测按键状态，最直接的方法是调用Windows API的GetAsyncKeyState函数，它能返回指定按键的当前状态，不会阻塞程序执行。

实现步骤 #

1. 声明Windows API函数 #

在VB.NET项目中，需要先通过P/Invoke声明GetAsyncKeyState：

Imports System.Runtime.InteropServices

Module KeyDetector
    <DllImport("user32.dll")>
    Private Function GetAsyncKeyState(ByVal vKey As Integer) As Short
    End Function

    ' 判断指定按键是否按下
    Public Function IsKeyPressed(ByVal key As ConsoleKey) As Boolean
        ' GetAsyncKeyState返回值的最高位为1表示按键当前处于按下状态
        Return (GetAsyncKeyState(CInt(key)) And &H8000S) <> 0
    End Function
End Module

2. 非阻塞检测示例 #

在主程序中，你可以在循环里同时执行业务逻辑和按键检测，完全不会暂停程序：

Module Program
    Sub Main()
        Console.WriteLine("程序正在运行，按ESC键退出...")
        Dim counter As Integer = 0

        Do
            ' 执行你的业务逻辑（这里用计数模拟）
            counter += 1
            Console.CursorTop = 1
            Console.WriteLine($"当前计数: {counter}")

            ' 检测ESC键是否按下
            If IsKeyPressed(ConsoleKey.Escape) Then
                Console.WriteLine(vbCrLf & "已按下ESC键，程序退出")
                Exit Do
            End If

            ' 模拟业务逻辑耗时，可根据实际情况调整
            System.Threading.Thread.Sleep(100)
        Loop
    End Sub
End Module

注意事项 #

• GetAsyncKeyState检测的是系统级按键状态，即使控制台窗口没有焦点，也能检测到按键（如果需要仅当窗口有焦点时检测，可以结合GetForegroundWindow判断当前激活窗口）。
• 该函数会区分按键的按下和释放状态，返回值的最低位表示按键在上次调用后是否被按下过，不过我们这里只关注最高位判断当前是否按下。

内容的提问来源于stack exchange，提问作者Bob the Cob