VB写一个能调节电脑鼠标灵敏度的代码

VB 通过 SystemParametersInfo SPI_SETMOUSE 调节鼠标灵敏度

Global Const SPI_GETMOUSE = 3
Global Const SPI_SETMOUSE = 4
Global Const SPIF_SENDWININICHANGE = &H2

Declare Function SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
Declare Function SystemParametersInfoByVal& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long)

Private Sub Command1_Click()
Dim fResult As Long
Dim aMouseInfo(0 To 2) As Long

fResult = SystemParametersInfo&(SPI_GETMOUSE, 0, aMouseInfo(0), 0)

If fResult <> 0 Then
aMouseInfo(2) = aMouseInfo(2) * 2
SystemParametersInfo& SPI_SETMOUSE, 0, aMouseInfo(0), SPIF_SENDWININICHANGE
End If

End Sub

Private Declare Function SHSetValu