#F2::
Gosub, CHK-KR
Send, LOVE
Return
;----------------------------------------------------------------------------------------------
CHK-KR:
ret := % IME_CHECK("A")
if (ret = "0")
{
}else {
Send, {vk15sc138}
}
;----------------------------------------------------------------------------------------------
IME_CHECK(WinTitle)
{
WinGet,hWnd,ID,%WinTitle%
Return Send_ImeControl(ImmGetDefaultIMEWnd(hWnd),0x005,"")
}
Send_ImeControl(DefaultIMEWnd, wParam, lParam)
{
DetectSave := A_DetectHiddenWindows
DetectHiddenWindows,ON
SendMessage 0x283, wParam,lParam,,ahk_id %DefaultIMEWnd%
if (DetectSave <> A_DetectHiddenWindows)
DetectHiddenWindows,%DetectSave%
return ErrorLevel
}
ImmGetDefaultIMEWnd(hWnd)
{
return DllCall("imm32\ImmGetDefaultIMEWnd", Uint,hWnd, Uint)
}
Return
Copyright2021olympithecus
No comments:
Post a Comment