.net - 我是否需要 2 个不同的 PInvoke 来获取和设置鼠标速度？

Question

我想获取当前鼠标指针速度，并设置它。

为了得到它，我使用

Public Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Int32, ByVal uParam As Int32, ByRef lpvParam As Int32, ByVal fuWinIni As Int32) As Int32

    Dim Result As Int32 = 0
    Dim iSuccess As Integer = SystemParametersInfo(SPI_GETMOUSESPEED, 0, Result, 0)

为了设置它，我使用

   Public Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Int32, ByVal uParam As Int32, ByVal lpvParam As Int32, ByVal fuWinIni As Int32) As Int32

    Dim iVal As Integer = 10
    Dim iSuccess As Integer = SystemParametersInfo(SPI_SETMOUSESPEED, 0, iVal, 0)

请注意同一函数的不同声明。

如果我将 ByRef 更改为 ByVal，反之亦然，其中一个功能将不起作用。

我真的必须以不同的方式声明相同的函数吗？或者我犯了什么错误？如果我这样做了，有人可以告诉我如何正确地做吗？

Answer 1

核心问题是你不能以这种方式在 VB 中声明重载，因为正如错误消息所述，它们不能互相重载，因为只有 ByRef 和 ByVal 声明的参数不同(你没有提到错误)。这在 C# 中不会发生，因为您将使用 in 和 out 这会更改签名。

您有多种选择，其中之一是使用别名:

' declaration for all ByVal args:
Declare Function SetSysParam Lib "user32.dll" Alias "SystemParametersInfoA"...

' one parm ByRef for getting the speed:
Declare Function GetSysParam Lib "user32.dll" Alias "SystemParametersInfoA"...

如果不明显，您可以将它们调用为 SetSysParam 和 GetSysParam。

代码分析/FxCop 可能会提示您使用这些的方式，因此这里介绍了如何实现 API 调用，这样就不会出现这种情况。从名为 NativeMethods 的类开始:

<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function SystemParametersInfo(uiAction As SPI,
        uiParam As UInteger,
        pvParam As IntPtr,
        fWinIni As SPIF) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function

' alias a ByRef version for GETting the speed, but this is not
' needed since NET offers a cleaner way
<DllImport("user32.dll", EntryPoint:="SystemParametersInfo", SetLastError:=True)>
Private Shared Function SystemParametersInfoPVByRef(uiAction As SPI,
        uiParam As UInteger,
        ByRef pvParam As IntPtr,
        fWinIni As SPIF) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function

 ' other stuff for the last param
<Flags>
 Enum SPIF
     None = &H0
     SPIF_UPDATEINIFILE = &H1
     SPIF_SENDCHANGE = &H2
     SPIF_SENDWININICHANGE = &H2
 End Enum

' there are lots and lots of Sys Params, so use an Enum to group them
Enum SPI
    SETMOUSESPEED = &H71
    GETMOUSESPEED = &H70
End Enum

' exposed "wrapper" for setting the value to allow a more
' meaningful name and hiding gory details of Msg values etc
Friend Shared Function SetMouseSpeed(speed As Integer) As Boolean
     ' somewhat optional error checking 
     If speed < 1 Then speed = 1
     If speed > 20 Then speed = 20

     Return SystemParametersInfo(SPI.SETMOUSESPEED, 0, New IntPtr(speed), SPIF.None)
End Function

Friend Shared Function GetMouseSpeed() As Integer
    Dim speed As New IntPtr(0)

    ' the caller will have to evaluate the return to see if this
    ' succeeded
    If SystemParametersInfoPVByRef(SPI.GETMOUSESPEED, 0, speed, SPIF.None) Then
        Return speed.ToInt32
    Else
        Return -1           ' magic number that API call failed
    End If

End Function

NET 格式的一个优点在于返回。几乎所有 API 调用都会返回 0 或 1 来指示成功或失败。 MarshalAs... Boolean 将其转换为 Net Boolean。随着时间的推移，您可以添加到类中，为各种 Win32 API 调用收集正确的魔数(Magic Number)、声明、枚举和结构。它是一个共享/静态过程，因此将被称为:

NativeMethods.SetMouseSpeed(myNewSpeed)

“包装器”不仅可以从代码中隐藏 API 的杂乱细节，还可以确定 API 调用失败时该怎么做。在获取速度的情况下，如果/当调用失败时，它会计算出返回什么值而不是当前速度，某些东西不太可能被误读为速度值(例如可能是-1)。正如代码中所指出的，有一种很好的干净方法可以在 .NET 中获取鼠标速度，从而无需重载:

mySpeed = System.Windows.Forms.SystemInformation.MouseSpeed

---

最后，我应该提到，单方面更改用户系统上用户鼠标的设置并不是一个好主意。他们选择这个值是有原因的。如果有充分的理由这样做，则应在应用程序退出时恢复原始值。

技术说明:我通过 CA 运行此操作以确保所有内容的大小