Tastenkombi Shift+Ait+Druck

Get help with using AutoHotkey (v1.1 and older) and its commands and hotkeys
Boss55
Posts: 31
Joined: 09 Oct 2021, 12:50

Tastenkombi Shift+Ait+Druck

Post by Boss55 » 20 Oct 2021, 08:05

Hallo, the old man needs heilp !

Mit der Tastenkombination
Shift+alt+druck
wird unter Windows der die kontrastreiche Darstellung aktiviert. Das wollte ich mit folgender Befehlsfolge per Script ausführen

send {LShift down}{Alt down}{PrintScreen}
send {LShift up}{Alt up}

da tut sich aber nix. Was mache ich falsch ?? :?

bye

Rohwedder
Posts: 7550
Joined: 04 Jun 2014, 08:33
Location: Germany

Re: Tastenkombi Shift+Ait+Druck

Post by Rohwedder » 20 Oct 2021, 09:22

Hallo,
hier klappts damit:

Code: Select all

q:: ;toggle high contrast
;jeeswg: https://www.autohotkey.com/boards/viewtopic.php?t=41224
vSize := A_PtrSize=8?16:12
VarSetCapacity(HIGHCONTRAST, vSize, 0)
NumPut(vSize, &HIGHCONTRAST, 0, "UInt") ;cbSize
;SPI_GETHIGHCONTRAST := 0x42
DllCall("user32\SystemParametersInfo", UInt,0x42, UInt,vSize, Ptr,&HIGHCONTRAST, UInt,0)
vFlags := NumGet(&HIGHCONTRAST, 4, "UInt") ;dwFlags
;JEE_Progress(vFlags, 1000)
if (vFlags & 1) ;HCF_HIGHCONTRASTON := 0x1
	vFlags -= 1
else
	vFlags += 1
;JEE_Progress(vFlags, 1000)
VarSetCapacity(HIGHCONTRAST, vSize, 0)
NumPut(vSize, &HIGHCONTRAST, 0, "UInt") ;cbSize
NumPut(vFlags, &HIGHCONTRAST, 4, "UInt") ;dwFlags
;SPI_SETHIGHCONTRAST := 0x43
DllCall("user32\SystemParametersInfo", UInt,0x43, UInt,vSize, Ptr,&HIGHCONTRAST, UInt,0)
return

Boss55
Posts: 31
Joined: 09 Oct 2021, 12:50

Re: Tastenkombi Shift+Ait+Druck

Post by Boss55 » 20 Oct 2021, 10:44

Hallo Rohwedder !
hier klappts damit
]

Leider nicht, beim Ersten Aufruf keine Reaktion, beim zweiten Aufruf (beenden der kontrastreichen Darstellung) Fehlermeldung

an older instance is still runnig... see #singleinstance

bye
Attachments
grafik.png
grafik.png (89.99 KiB) Viewed 326 times

Rohwedder
Posts: 7550
Joined: 04 Jun 2014, 08:33
Location: Germany

Re: Tastenkombi Shift+Ait+Druck

Post by Rohwedder » 20 Oct 2021, 14:25

Die erste Zeile: q:: ;toggle high contrast bedeutet, das Skript wartet darauf, daß du die Q-Taste betätigst.
Also, das Skript nur einmal aufrufen (=starten) und dann mit der Q-Taste den kontrastreichen Darstellung ein/aus schalten.
Wenn du diesen Q-Hotkey nicht willst, einfach die erste Zeile löschen.

Boss55
Posts: 31
Joined: 09 Oct 2021, 12:50

Re: Tastenkombi Shift+Ait+Druck

Post by Boss55 » 21 Oct 2021, 06:31

Hey Rohwedder !

Zuerst einmal vielen Dank für deine Mühe. :thumbup: :thumbup: :thumbup: Das mit der Taste Q habe ich als völliger VBA-Analphabet natürlich nicht gecheckt. :roll:

Nachdem ich dann die zeiele gelöscht habe, klaptt´s perfekt.

Nochmals besten Dank und bis demnnäxt

Post Reply

Return to “Ask for Help (v1)”