Windows 11 Mouse Color Change - (Moved)

[LAttilaD]

There is a registry entry which contains the color of the mouse pointer on Windows 11. But if I run

regwrite('HKEY_CURRENT_USER\Software\Microsoft\Accessibility', 'CursorColor', 'REG_DWORD', 0xff8000)

then check it in Regedit, I see this value written there. Correct. Just… the mouse pointer doesn’t change color. What shall I do to actually change the pointer color? Changing in the Accessibility settings works well, no problem, but I would like to do it from a script.

[Jos]

Moved to the appropriate forum.
Please post in the proper support forum from here on as this is not the first time we need to move your Threads.

Moderation Team

Edited January 31 by Jos

[LAttilaD]

Sorry, I’m rarely using Autoit forum and don’t really know how it is built. Thank you for moving it.

Edited January 31 by Jos
removed the quote box and moved your answer outside of it

[Andreik]

You have to change CursorType as well and since you are working with registry probably you have to reload explorer to see the effect. I don't know if there is a WinAPI for this.

[LAttilaD]

42 minutes ago, Andreik said:

You have to change CursorType as well and since you are working with registry probably you have to reload explorer to see the effect. I don't know if there is a WinAPI for this.

Thank you. Now the code is looking like as follows, but – it doesn’t change the color.

$color=0xffffff
regwrite('HKEY_CURRENT_USER\Software\Microsoft\Accessibility', 'CursorColor', 'REG_DWORD', $color)
$c=MouseGetCursor()
GUISetCursor($c-1)
GUISetCursor($c)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Local $sExplorer = "explorer.exe"
While ProcessExists($sExplorer)
    ProcessClose($sExplorer)
WEnd
Run($sExplorer)

 

[argumentum]

7 hours ago, LAttilaD said:

I see this value written there. Correct. Just…

_WinAPI_SystemParametersInfo($SPI_SETCURSORS, 0, 0, 0) ; <<< that failed. Thought it would reload from registry but it does not

That should ( haven't tried ) update the pointer. Let us know if that worked. Tried and failed.

It may take a reboot

Edited February 1 by argumentum

[Werty]

3 hours ago, argumentum said:

_WinAPI_SystemParametersInfo($SPI_SETCURSORS, 0, 0, 0)

Shouldnt the last parameter be $SPIF_SENDCHANGE, just guessing here.

[argumentum]

Tried ,0) all the way to ,3) to no avail.

[LAttilaD]

😭😭😭

Rebooting just for a mouse color change is nonsense. I can do it, of course, by „Run, invoke the appropriate dialog box, click here, click there”, but hoped there is a nicer solution. Anyway, thank you guys for trying.

[LAttilaD]

Here’s what I could manage. Note that the MouseClick coordinates should be calibrated according to the screen settings. It’s not reliable, though. Sometimes it runs completely without changing the color, then being run again, it works.

$color = 'ff8000'
$clip = ClipGet()
Send('{lwin}')
Sleep(100)
ClipPut('mouse pointer and touch')
Send('^v')
Sleep(1000)
Send('{enter}')
WinWait('Settings')
WinActivate('Settings')
Sleep(1000)
MouseClick('left', 380, 480, 1, 0)
MouseClick('left', 420, 480, 1, 0)
ClipPut($color)
Send('{tab 4}{end}{bs 6}^v{tab}{enter}')
Sleep(500)
Send('!{f4}')
ClipPut($clip)