切换鼠标左右按键引发的思考（批处理、VBS、DynamicWrapper）

来源：互联网发布：房产销售提成软件编辑：程序博客网时间：2024/06/04 23:51

背景：笔记本有触摸板，老是碰到，经常不小心搞成关闭、撤销等等不想要的操作。于是就安装了触摸版的专用驱动，以便按Fn进行关闭。
问题：最近又喜欢使用左手，结果安装了这个触摸板的驱动，硬是找不到设置鼠标的“切换主次按钮”。咨询官方的回答是“非得卸载掉驱动才行”（不知道这是不是BUG），让人情何以堪。
正常应对：1、换回右手习惯，万事无忧。2、卸载驱动，万事大吉
换位：如果不想呢？是不是有其他方法可以解决？
1、发现修改注册表，结果是必须注销才能够实现更换。
2、使用EXCEL建立宏，使用Windows API直接调用代码：

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As LongPrivate Sub Command1_Click()SwapMouseButton (1) ' 1-->右手 0-->左手End Sub

这样的话，每次换鼠标点击一下就可以了，也挺方便的。

问题又发生了，这个触摸板的驱动，每次开机启动的时候，会自动更换成右手习惯，并且且使用功能键Fn+F6禁用后，仍然会自动启用。。。
于是就想起了开机启动，然后调用Fn+F6键。而由于笔记本的Fn键实现是非常困难的，所以调用功能键禁用触摸板的想法直接放弃，只保留了开机启动功能。
这样就简单了，使用啥语言编写一个简单的EXE（调用User32.dll里面的SwapMouseButton函数），开机调用就OK了。

为图省事，直接启动项里添加了快捷方式，结果。。。切换鼠标左右按键在加载触摸板驱动之前被调用，效果没有达到。

直接在简单的EXE里面判断一下触摸板驱动（相应进程存在）加载了就可以了，偶喜欢折腾，还是直接写个批处理吧。

Bat代码

@echo off
title 启动左右键切换程序
set var = 0
:continue
tasklist|find /i "XXXX.exe"
if %errorlevel% == 0 goto yes
set /a var+=1
ping localhost -n 5 > nul
if %var% lss 10 goto continue
:yes
SwapMouse.exe
:no
exit

@echo offtitle 启动左右键切换程序set var = 0:continuetasklist|find /i "XXXX.exe"if %errorlevel% == 0 goto yesset /a var+=1ping localhost -n 5 > nulif %var% lss 10 goto continue:yesSwapMouse.exe:noexit

保存为批处理脚本，搞定！

到这里基本算完成任务了，但是每次启动有一个CMD窗口，看着也不太好，可以使用VBS脚本来替换。只是正常情况下，VBS只能够调用COM组合，直接调用User32.dll并不能够完成任务，还好有人已经写了一个DynaWrap.dll（需要先注册一下regsvr32 DynaWrap.dll,相应的打包RAR，见我的下载）的OCX控件能够帮我们完成相应的功能。

Vbs代码

Sub WaitProcess(sProcessName)
dim intTimes
intTimes = 0
do while intTimes < 5
For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_process") '利用wmi
遍历所有进程
If uCase(Process.Name) = uCase(sProcessName) Then '判断进程名称
Dim UserWarp
Set UserWarp =CreateObject("DynamicWrapper")
UserWarp.Register "User32.Dll", "SwapMouseButton", "I=l", "f=S","R=l"
UserWarp.SwapMouseButton(0)
exit do
End If
Next
intTimes =intTimes + 1
Wscript.sleep 1000
loop
End Sub
比如要等等XXX进程，可以
WaitProcess "APoint.exe"

Sub WaitProcess(sProcessName)  dim intTimes  intTimes = 0  do while intTimes < 5     For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_process") '利用wmi遍历所有进程    If  uCase(Process.Name) = uCase(sProcessName) Then '判断进程名称       Dim UserWarp      Set UserWarp =CreateObject("DynamicWrapper")      UserWarp.Register "User32.Dll", "SwapMouseButton", "I=l", "f=S","R=l"      UserWarp.SwapMouseButton(0)      exit do    End If     Next    intTimes =intTimes + 1    Wscript.sleep 1000  loopEnd Sub'比如要等等XXX进程，可以WaitProcess "APoint.exe"

保存为.vbs脚本，然后添加到启动项，算一个结束了。
相关文件下载，参照http://smartyidiot.iteye.com/blog/1460949