写一个批处理或vbs简易小程序调换鼠标左右手习惯

Question

我是笔记本电脑，我使用鼠标是左手习惯，但一关机重开机时又变回右手习惯了，请高人写一个批处理或vbs简易小程序调换鼠标左右手习惯，以便在开机时自启动或者放在桌面直接点击，比每次进控制面板方便。我不会VB，请把代码写好，我直接复制到文本里改为vbs.

或者改改以下的程序：
交换鼠标左右手 两个API调用即可
一个 GetSystemMetrics
一个 SM_SWAPBUTTON

Global Const SM_SWAPBUTTON = 23
Global Const SPI_SETMOUSEBUTTONSWAP = 33

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

Dim r As Long

r = GetSystemMetrics(SM_SWAPBUTTON)

如果 r 不是 0： 鼠标左右手已交换

设定左右手交换

交换左右手:
SystemParametersInfo SPI_SETMOUSEBUTTONSWAP, True, 0, 0

恢复初始状态：
SystemParametersInfo SPI_SETMOUSEBUTTONSWAP, False, 0, 0

Answer 1

createobject("wscript.shell").run "rundll32 user32,SwapMouseButton"

Answer 2

set objShell = CreateObject("Wscript.Shell")
strCommandLine = "control main.cpl"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{LEFT}"
WScript.Sleep 300
WshShell.SendKeys "{ENTER}"
set wshshell=nothing

'存为vbs文件.模拟键盘发送按键

追问

这个不行，调整的是双击速度，不是左右手习惯。
最好能点击一下，调为左手，再点击一下就调回右手，下次点击又调为左手，就是点一下改变一次。

追答

你是什么系统呢？这个在WIN7在测试通过，运行一次变左手，再运行一次变右手。或者你截一张鼠标属性的截图上来。也可以自己改一下发送的按键。

追问

在XP试的，调一下发送键，基本可以，但我是VISTA上用，根本一点都不行，第二个下拉才是鼠标选项，运行只出现了这个鼠标选项界面就消失了，选项也没有什么动作。

我自行修改了发送命令，放在桌面上点击，可以达到目标，虽然有界面弹出觉得不太爽。

但放在自启动就有问题了，只有界面弹出，也不消失，可能是那个时间延迟有点问题，启动地的CPU占用高，时间延迟可能还要调整，总之这个发送键盘的方式不太完美。