vb6 - 如何在 Tweak UI 中打开/关闭 X-Mouse？

Question

我正在尝试创建一个 VB6 可执行文件(不确定正确的语法)，它将在 Windows 98SE 下切换 Tweak UI 中的 X-Mouse 选项。理想情况下，我想要两个脚本 - 一个将其关闭(无论其状态如何)，另一个将其打开(同样，无论其状态如何)。

我已经能够使用下面的代码打开 TweakUI 控制面板。

Private Sub Form_Load()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL tweakui.cpl", vbNormalFocus)
End Sub

如果可能的话，我希望它在不打开 TweakUI 控制面板的情况下执行此操作。

据我所知，更改注册表设置不起作用，因为我必须重新启动计算机才能生效。

我正在运行 Registry Monitor 7.04。它捕获以下内容:

Path: C:\WINDOWS\RUNDLL32.EXE
Command Line: "C:\WINDOWS\RUNDLL32.EXE" "C:\WINDOWS\SYSTEM\TWEAKUI.CPL", Tweak UI
Other: hKey: 0xC2A066F0

老实说，我不确定如何前进。

不确定显示这方面进展的最佳方式，我将进行编辑。

这段代码非常接近。

Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETACTIVEWINDOWTRACKING = 4097

'Click on this button to Activate XMouse
Private Sub Command1_Click()
SystemParametersInfo SPI_SETACTIVEWINDOWTRACKING, 0, True, 0
End Sub

'Click on this button to Deactivate XMouse
Private Sub Command2_Click()
SystemParametersInfo SPI_SETACTIVEWINDOWTRACKING, 0, False, 0
End Sub

按钮 1 工作正常并激活 XMouse。但是按钮二不会停用它。

Answer 1

SPI_SETACTIVEWINDOWTRACKING 是执行此操作的参数。

systemparametersinfo 是获取或设置此类设置的函数调用。参见 https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-systemparametersinfoa

有使用 systemparametersinfo 更改墙纸的示例代码。 https://winsourcecode.blogspot.com/2019/06/changewallpaper.html