Question

我希望能够通过按F1切换Windows 10中的HighContrast主题。

在Windows 10中切换HighContrast主题的快捷方式是：

Left Alt + Left Shift + Print Screen

https://msdn.microsoft.com/en-us/library/hh923906.aspx

这是我的剧本：

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

; Toggle HighContrast Theme: Alt + Shift + PrintScreen
F1::
Send !+{PrintScreen}
Return

Answer 1

您可以通过手动运行.theme文件来应用该设置。问题是它将打开“设置”对话框。此脚本将运行高对比度1主题文件，等待“设置”对话框打开，然后将其关闭。

修改：添加了在两个主题之间切换的代码

hc := false
hctheme := "C:\Windows\Resources\Ease of Access Themes\hc1.theme"
stdtheme := "C:\Windows\Resources\Themes\theme1.theme"
; your personalized theme may be in
; C:\Users\{user.name}\AppData\Local\Microsoft\Windows\Themes\Custom.theme

F1::
  hc := !hc

  if (hc)
    run %hctheme%
  else
    run %stdtheme%

  WinWait Settings
  WinClose Settings
return

Answer 2

在测试中，似乎 Alt + PrtScr 键盘组合在操作系统中被钩住太低而被AutoHotKey覆盖以添加 Shift 之前的修饰符只是默认采用活动窗口的屏幕截图。（环顾AHK论坛，这似乎也是共识。）

我确实找到了一些script suggestions here，其中这个小修改对我在Win10 Pro上有用：

Sheets("Exploded JE").Select
Range("L" & LastRowExploded_JE1).Select
Selection.PasteSpecial Paste:=xlPasteValues

Answer 3

使用此：

F1::
Send {LAlt down}{LShift down}{PrintScreen}{LAlt Up}{LShift Up}
return

来自官方documentation：

按下使用，如：{LWin down} {RWin down} 释放用法如：{LWin up} {RWin up}

切换HighContrast主题 - Windows 10

3 个答案: