vb.net鼠标交换左右键 vbs鼠标移动

我写了一个功能单一的软件，就是交换鼠标的左右键，这对于于程序员休息一下长期使用的右手（或左手）还是有点用的。

软件界面如下：

这个软件在网上找不到下载地址，因为软件做好后，我并没有发布出去，目前只有我一个人在使用。

现在我把”切换鼠标左右键“这个主要功能实现的代码公布出来，其它代码略过。

界面就2个控件，1个标签控件 ，1个按钮控件 。全部代码如下：

Public Class Form1
    Private Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long
    Dim now1 As String '现在的键值
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        panduan() '判断鼠标主键 
        Me.CenterToScreen() '窗体界面屏幕居中
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rightButtonIsAlreadyPrimary As Integer = SwapMouseButton(1) '判断鼠标是否已经交换过左右键了

        If rightButtonIsAlreadyPrimary <> 0 Then
            SwapMouseButton(0) '恢复
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons", "0")
        Else
            SwapMouseButton(1) '鼠标互换一下
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons", "1")
        End If

        panduan() '判断鼠标主键 

    End Sub

    Private Sub panduan()
        '判断鼠标目前的主键，和左右手习惯。、
        now1 = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Control Panel\Mouse", "SwapMouseButtons", Nothing)
        '读出现的键值，如果为0，则左键是主键，大部分的使用习惯，否则，为1，是右键为主键。
        If now1 = 0 Then
            Label1.Text = "目前鼠标左键是主键，右手习惯 "
        Else
            Label1.Text = "目前鼠标右键是主键，左手习惯"
        End If
    End Sub
End Class

通过读出注册表的内容来判断目前的鼠标的主键，并通过标签1来显示。通过系统API来交换鼠标左右键，并改注册表。

其它也没有可说的，毕竟功能太简单了。

运行结果如下：