yu2n

'VBS 设置鼠标指针精确度(5秒内) By yu2n
'Win7 x64 测试通过

'VBS 设置鼠标指针精确度(5秒内) By yu2n
'Win7 x64 测试通过
Const sTitle = "鼠标 属性"  ' 查找窗口名称
Const nTimeOut = 5          ' 指定超时时间

Dim wso
Set wso = CreateObject("WScript.Shell")

' 打开鼠标控制面板
wso.Run "control.exe main.cpl"

Dim dtStart, bFind
dtStart = Now()
Do While DateDiff("s", dtStart, Now()) < nTimeOut
  WScript.Sleep 200
  If CreateObject("WScript.Shell").Appactivate(sTitle) Then
    bFind = True  ' 做标记-已找到
    Exit Do
  End If
Loop

If bFind Then
  ' 发送按键
  wso.SendKeys "(^{TAB})"
  WScript.Sleep 200
  wso.SendKeys "(^{TAB})"
  WScript.Sleep 200
  wso.SendKeys "(%E)"
  WScript.Sleep 200
  wso.SendKeys "(%A)"
  WScript.Sleep 1500
  wso.SendKeys "{ESC}"
  WScript.Sleep 200
  wso.Popup  "完成！耗时 " & DateDiff("s", dtStart, Now()) _
    & " 秒。" & String(3,vbTab), 3, WScript.ScriptName, vbSystemModal+vbInformation
Else
  wso.Popup "无法打开[" & sTitle & "]选项卡！耗时 " & DateDiff("s", dtStart, Now()) _
    & " 秒。" & String(3,vbTab), 3, WScript.ScriptName, vbSystemModal+vbCritical
End If
复制代码

yu2n

回复 3# BAT1

XP的鼠标指针设置界面与Win7并无差别。

猜测是你的电脑反应速度的问题，亦或是杀毒软件的拦截。

可以自行修改 WScript.Sleep 后面的时间，电脑慢的话，时间要设置长一些。反之，可以设短些。

如果不介意注销、重启系统，可以考虑以下脚本。

'一般精确度.vbs
RegPath = "HKEY_CURRENT_USER\Control Panel\Mouse\"
Set RR = CreateObject("WScript.Shell")
RR.RegWrite RegPath & "MouseSpeed", "0"
RR.RegWrite RegPath & "MouseThreshold1", "0"
RR.RegWrite RegPath & "MouseThreshold2", "0"
复制代码

'提高精确度.vbs
RegPath = "HKEY_CURRENT_USER\Control Panel\Mouse\"
Set RR = CreateObject("WScript.Shell")
RR.RegWrite RegPath & "MouseSpeed", "1"
RR.RegWrite RegPath & "MouseThreshold1", "6"
RR.RegWrite RegPath & "MouseThreshold2", "10"
复制代码

yu2n

回复 5# BAT1

重新加载explorer，对于鼠标精确度无效。