VBA 和 GetRawInputDeviceList

使用VBA和GetRawInputDeviceList进行原始输入设备列表的获取

VBA是一种用于编写宏和自动化任务的编程语言，可以与Microsoft Office套件中的各种应用程序（如Excel、Word、PowerPoint等）进行交互。VBA提供了许多功能和方法，以便开发人员可以更好地控制和操作这些应用程序。

在VBA中，GetRawInputDeviceList是一个非常有用的函数，它可以帮助我们获取原始输入设备的列表。原始输入设备是指直接与计算机进行交互的设备，如键盘、鼠标、触摸屏等。通过获取原始输入设备列表，我们可以获取有关这些设备的详细信息，如设备名称、设备类型、设备ID等。

下面是一个使用VBA和GetRawInputDeviceList函数的案例代码：


Sub GetRawInputDeviceListExample()
    Dim numDevices As Long
    Dim rawInputDevices() As RAWINPUTDEVICELIST
    
    ' 获取原始输入设备列表的数量
    numDevices = GetRawInputDeviceList(Null, numDevices, Len(rawInputDevices(0)))
    
    If numDevices > 0 Then
        ' 调整数组大小
        ReDim rawInputDevices(1 To numDevices) As RAWINPUTDEVICELIST
        
        ' 获取原始输入设备列表
        numDevices = GetRawInputDeviceList(rawInputDevices(1), numDevices, Len(rawInputDevices(0)))
        
        ' 遍历设备列表并输出设备信息
        For i = 1 To numDevices
            Debug.Print "设备名称：" & GetRawInputDeviceName(rawInputDevices(i).hDevice)
            Debug.Print "设备类型：" & GetRawInputDeviceType(rawInputDevices(i).dwType)
            Debug.Print "设备ID：" & rawInputDevices(i).dwDeviceId
            Debug.Print "-------------------------"
        Next i
    End If
End Sub

在上面的代码中，首先使用GetRawInputDeviceList函数获取原始输入设备列表的数量。然后，根据数量调整rawInputDevices数组的大小，并再次调用GetRawInputDeviceList函数来获取原始输入设备列表。最后，通过遍历设备列表，我们可以输出每个设备的相关信息。

案例代码解析

获取原始输入设备列表的数量


numDevices = GetRawInputDeviceList(Null, numDevices, Len(rawInputDevices(0)))

在此代码行中，我们首先将原始输入设备列表设为Null，将numDevices变量设置为0，并将rawInputDevices数组的长度设置为RAWINPUTDEVICELIST结构体的长度。然后，通过调用GetRawInputDeviceList函数，我们可以获取原始输入设备列表的数量。

调整数组大小并获取原始输入设备列表


ReDim rawInputDevices(1 To numDevices) As RAWINPUTDEVICELIST
numDevices = GetRawInputDeviceList(rawInputDevices(1), numDevices, Len(rawInputDevices(0)))

在这段代码中，我们使用ReDim语句调整rawInputDevices数组的大小，以便适应获取到的原始输入设备列表的数量。然后，我们再次调用GetRawInputDeviceList函数，这次将rawInputDevices(1)作为参数来获取原始输入设备列表。

遍历设备列表并输出设备信息


For i = 1 To numDevices
    Debug.Print "设备名称：" & GetRawInputDeviceName(rawInputDevices(i).hDevice)
    Debug.Print "设备类型：" & GetRawInputDeviceType(rawInputDevices(i).dwType)
    Debug.Print "设备ID：" & rawInputDevices(i).dwDeviceId
    Debug.Print "-------------------------"
Next i

在此代码段中，我们使用For循环遍历设备列表，并使用GetRawInputDeviceName函数获取设备名称，使用GetRawInputDeviceType函数获取设备类型，以及直接访问dwDeviceId属性获取设备ID。然后，我们通过调用Debug.Print函数将设备信息输出到VBA的调试窗口。

通过使用VBA和GetRawInputDeviceList函数，我们可以方便地获取原始输入设备列表，并获取有关这些设备的详细信息。这对于开发人员来说非常有用，可以帮助他们更好地了解和控制计算机上的输入设备。

参考代码

vba

Option Explicit

Private Type RAWINPUTDEVICELIST

hDevice As Long

dwType As Long

End Type

Private Declare Function GetRawInputDeviceList Lib "user32" (pRawInputDeviceList As Any, ByRef puiNumDevices As Long, ByVal cbSize As Long) As Long

Private Declare Function GetRawInputDeviceName Lib "user32" Alias "GetRawInputDeviceNameA" (ByVal hDevice As Long, ByVal pData As String, ByRef pcbSize As Long) As Long

Private Declare Function GetRawInputDeviceInfo Lib "user32" Alias "GetRawInputDeviceInfoA" (ByVal hDevice As Long, ByVal uiCommand As Long, ByRef pData As Any, ByRef pcbSize As Long) As Long

Private Const RID_INPUT As Long = &H10000003

Private Const RIDI_DEVICENAME As Long = &H20000007

Private Const RIDI_DEVICEINFO As Long = &H2000000B

Sub GetRawInputDeviceListExample()

Dim numDevices As Long

Dim rawInputDevices() As RAWINPUTDEVICELIST

' 获取原始输入设备列表的数量

numDevices = GetRawInputDeviceList(Null, numDevices, Len(rawInputDevices(0)))

If numDevices > 0 Then

' 调整数组大小

ReDim rawInputDevices(1 To numDevices) As RAWINPUTDEVICELIST

' 获取原始输入设备列表

numDevices = GetRawInputDeviceList(rawInputDevices(1), numDevices, Len(rawInputDevices(0)))

' 遍历设备列表并输出设备信息

For i = 1 To numDevices

Debug.Print "设备名称：" & GetRawInputDeviceName(rawInputDevices(i).hDevice)

Debug.Print "设备类型：" & GetRawInputDeviceType(rawInputDevices(i).dwType)

Debug.Print "设备ID：" & rawInputDevices(i).dwDeviceId

Debug.Print "-------------------------"

Next i

End If

End Sub

Function GetRawInputDeviceName(ByVal hDevice As Long) As String

Dim bufferSize As Long

Dim nameBuffer As String

bufferSize = 0

GetRawInputDeviceInfo hDevice, RIDI_DEVICENAME, Null, bufferSize

nameBuffer = Space(bufferSize)

GetRawInputDeviceInfo hDevice, RIDI_DEVICENAME, ByVal nameBuffer, bufferSize

GetRawInputDeviceName = Left(nameBuffer, bufferSize - 1)

End Function

Function GetRawInputDeviceType(ByVal dwType As Long) As String

Select Case dwType

Case 1

GetRawInputDeviceType = "鼠标"

Case 2

GetRawInputDeviceType = "键盘"

Case 3

GetRawInputDeviceType = "硬盘"

Case Else

GetRawInputDeviceType = "未知"

End Select

End Function

参考文献

1. Microsoft VBA官方文档：https://docs.microsoft.com/zh-cn/office/vba/api/

2. GetRawInputDeviceList函数官方文档：https://docs.microsoft.com/zh-cn/windows/win32/api/winuser/nf-winuser-getrawinputdevicelist

上一篇：VBA 和 Excel：为什么我的 TRIM 脚本在大型数据集上会产生 #VALUE 下一篇：VBA 和 JavaScript 中的 RegEx 处理方式有何不同

=

VBA 我无法使用 Dictionary 来使用 Exists 方法: 　　　　VBA中无法直接使用Dictionary的Exists方法，这给我们在处理数据时带来了一些不便。然而，我们可以通过编写一些自定义的函数来实现类似的功能。下面将介绍如何通过自定义函数...... ...
Vba 循环遍历数组: 　　　　使用VBA循环遍历数组是一种非常常见的操作，它可以帮助我们快速有效地处理大量的数据。在本文中，我们将介绍如何使用VBA循环遍历数组，并提供一些实际案例代码来加深理解。...... ...
VBA 循环遍历单元格范围失败: 　　　　循环遍历单元格范围是在VBA中经常使用的一种操作，它可以帮助我们快速地处理大量的数据。然而，有时候我们可能会遇到循环遍历单元格范围失败的情况，导致我们无法正确地进行...... ...
VBA 循环访问集合: 　　　　使用VBA循环访问集合是一种非常常见的编程技巧。在VBA中，集合是一种存储多个对象的数据结构。通过循环访问集合，我们可以对其中的每个对象执行相同的操作，从而实现批量处...... ...
VBA 循环要求用户输入新的工作表名称: 　　　　VBA 循环要求用户输入新的工作表名称案例代码在使用 VBA 编程时，经常会涉及到循环操作。其中一个常见的需求是要求用户输入新的工作表名称。下面是一个案例代码，展示了如何...... ...
VBA 循环根据相邻单元格更改单元格值（正负）和字体颜色: 　　　　根据 VBA 循环根据相邻单元格更改单元格值（正/负）和字体颜色在Excel中，我们经常需要对大量数据进行处理和分析。VBA（Visual Basic for Applications）是一种强大的编程语...... ...
VBA 循环未正确循环: 　　　　VBA 循环未正确循环在使用 VBA 进行编程的过程中，经常会遇到需要使用循环结构来重复执行某段代码的情况。然而，有时候我们可能会遇到循环未正确循环的问题，即循环无法按照...... ...
VBA 引用计数 - 对象销毁: 　　　　VBA 引用计数 - 对象销毁在 VBA 编程中，对象的销毁是一个非常重要的概念。当我们创建一个对象并完成了对其的使用后，及时销毁这个对象是至关重要的，以释放内存和资源。在...... ...
VBA 引用命名范围: 　　　　VBA 引用命名范围VBA（Visual Basic for Applications）是一种用于自动化任务和编写宏的编程语言，常用于微软的Office套件中，如Excel、Word和PowerPoint。在VBA中，引用命...... ...
VBA 应用程序如何在英语和法语版本的 WindowsWord 中使用正确的内置样式: 　　　　如何在英语和法语版本的 Windows/Word 中使用正确的内置样式在使用 VBA 应用程序时，我们经常需要在不同语言版本的 Windows/Word 中使用正确的内置样式。本文将介绍如何通过...... ...
VBA 幻灯片。如何在VBA中获取文件的当前目录路径到字符串: 　　　　如何在VBA中获取文件的当前目录路径到字符串？VBA（Visual Basic for Applications）是一种用于自动化任务和编写宏的编程语言，常用于Microsoft Office套件中的应用程序。在...... ...
VBA 幂运算符 (^) 在 64 位 VBA 中未按预期工作[重复]: 　　　　根据 VBA 幂运算符 (^) 在 64 位 VBA 中未按预期工作最近，一些 VBA 开发人员在使用 64 位 VBA 环境时遇到了一个令人困惑的问题：幂运算符 (^) 在某些情况下未按预期工作。...... ...
VBA 帮助。简单的代码帮助。使活动单元格成为第一个值100的单元格: 　　　　VBA帮助：使活动单元格成为第一个值>100的单元格VBA（Visual Basic for Applications）是一种用于自动化任务和宏编程的编程语言，广泛应用于Microsoft Office套件中的各种应...... ...
VBA 带或不带括号调用 Sub 或 Function 之间的根本区别是什么: 　　　　带括号调用 Sub 或 Function 和不带括号调用 Sub 或 Function 之间的根本区别在 VBA 中，可以使用带括号或不带括号的方式来调用 Sub 或 Function。虽然两种方式都可以实现调...... ...
VBA 布尔函数返回类型不匹配: 　　　　VBA 布尔函数返回类型不匹配在 VBA 编程中，我们经常会遇到布尔函数的使用。布尔函数通常用于判断某个条件是否成立，并返回一个布尔值（True 或 False）。然而，有时我们可...... ...