输入法切换

;功能：输入法状态提示 ;f1强制中文 f2强制英文小写 capslock强制英文大写
;环境：win10+搜狗输入法，输入法状态切换用默认的shift键。
;作者：kazhafeizhale
;时间：2018年9月8日
；参考来源 http://www.autoahk.com/archives/3278

#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.
#SingleInstance force
startuplnk := A_StartMenu . "\Programs\Startup\自动化集合.lnk"

Menu, Tray, Add, 开机启动,AutoStart
if(FileExist(startuplnk))
Menu, Tray, Check, 开机启动

return

AutoStart:
	if(FileExist(startuplnk))
	FileDelete, % startuplnk
	else
		FileCreateShortcut, % A_ScriptFullpath, % startuplnk
	Menu, Tray, ToggleCheck, 开机启动
return

XButton1::^c
XButton2::^v

F1::
	SetCapsLockState,off
	switchime(0)
	switchime()
return

F2::
	SetCapsLockState,off
	switchime(0)
return
CapsLock::
	SetCapsLockState,on
return

switchime(ime := "A")
{
	if (ime = 1){
		DllCall("SendMessage", UInt, WinActive("A"), UInt, 80, UInt, 1, UInt, DllCall("LoadKeyboardLayout", Str,"00000804", UInt, 1))
	}else if (ime = 0)
	{
		DllCall("SendMessage", UInt, WinActive("A"), UInt, 80, UInt, 1, UInt, DllCall("LoadKeyboardLayout", Str,, UInt, 1))
	}else if (ime = "A")
	{
		;ime_status:=DllCall("GetKeyboardLayout","int",0,UInt)
		Send, #{Space}
	}}