vb.net - 以编程方式检测鼠标和键盘是否已插入

Question

我想知道检测鼠标或键盘是否插入计算机的最佳方法是什么？我有一个主要用于独立触摸屏的应用程序，但我想知道是否有插入的键盘不会触发拉起 Windows 键盘或包含数字小键盘的表单。如果未插入鼠标，则更改一些行为。

Answer 1

使用 VB.Net，我会使用 System.Management(不要忘记在项目 [菜单] -> 添加引用中添加此引用)ManagementObjectSearcher 组合使用 System.Linq 找到这样的解决方案，

Imports System
Imports System.Management
Imports System.Linq

Public Module Module1
    Public Sub Main()
        Console.WriteLine(HasDevice("PointingDevice"))
        Console.WriteLine(HasDevice("Keyboard"))
        Console.ReadKey()
    End Sub

    Public Function HasDevice(strtype As String)
        Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_" + strtype)
        Dim result = From mobj In searcher.Get()
                     Select mobj Where mobj("Status").ToString() = 0
        Return Not IsNothing(result)
    End Function    
End Module

结果

您也可以对其进行硬编码以避免像 TRiNE 建议的那样输入错误(尽管使用 C#)

Public Function HasPointingDevice()
    Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_PointingDevice")
    Dim result = From mobj In searcher.Get()
                 Select mobj Where mobj("Status").ToString() = 0
    Return Not IsNothing(result)
End Function

Public Function HasKeyboard()
    Dim searcher As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_Keyboard")
    Dim result = From mobj In searcher.Get()
                 Select mobj Where mobj("Status").ToString() = 0
    Return Not IsNothing(result)
End Function

然后这样称呼他们

Public Sub Main()
    Console.WriteLine(HasPointingDevice())
    Console.WriteLine(HasKeyboard())
    Console.ReadKey()
End Sub

它们会产生相同的结果