2018年最新方案:
#NoEnv
#Persistent
SendMode Input
CustomColor = EEAA99
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow +E0x20
Gui, Color, %CustomColor%
Gui, Font, s32
Gui, Add, Text, vMyText1 cLime,
Gui, Add, Text, vMyText2 cLime,
Gui, Add, Text, vMyText3 cLime,
Gui, Add, Text, vMyText4 cLime,
WinSet, TransColor, %CustomColor% 150
Gosub, LockOn
SetTimer, LockOn, 200
Gui, Show
hwnd := WinExist()
return
LockOn:
If GetKeyState("CapsLock","T")
GuiControl,, MyText1, CapsLock 开
;Else GuiControl,, MyText1, CapsLock 关
Else GuiControl,, MyText1,
Return
旧方案:
注册表位置:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\
#Persistent
;作者:Quant
;时间:2016年12月23日10:13:22
;功能:ToolTip提示当前输入法状态
;~ 每台机器上数值不尽相同,具体值请去下面注册表位置查看:
;~ HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layouts\
;~ 请先配置srf值
;~ 我机器里英文输入法的对应值0x8040804
;~ 我机器里搜狗输入法的对应值0xe0210804
srf:=[{name:"en",key:"0x8040804"},{name:"sg",key:"0xe0210804"}]
SetTimer, WatchCursor, 200
return
WatchCursor:
state := GetKeyState("Capslock", "T")
if state
ToolTip CapsLock ON
else
ToolTip % checkSrf()
return
checkSrf()
{
global
If (DllCall("GetKeyboardLayout","UINT",DllCall("GetWindowThreadProcessId","UINT",WinActive("A"),"UINTP",0),UInt) = srf[1].key) ;英语输入法检测
return srf[1].name
else if (DllCall("GetKeyboardLayout","UINT",DllCall("GetWindowThreadProcessId","UINT",WinActive("A"),"UINTP",0),UInt) =srf[2].key) ;搜狗输入法检测
return srf[2].name
}
不想查注册表的也可以切换不同输入法后用下面脚本获取输入法的值
#z::
SetFormat, Integer, H
WinID:=WinActive("A")
ThreadID:=DllCall("GetWindowThreadProcessId", "UInt", WinID, "UInt", 0)
InputLocaleID:=DllCall("GetKeyboardLayout", "UInt", ThreadID, "UInt")
Clipboard:=InputLocaleID
MsgBox, %InputLocaleID%
return