Opt("SendCapslockMode", 0)
Global $hotkeynum
SelectKey();firstly runing func
Func SelectKey()
   While True
	  HotKeySet("{a}","sima")
	  HotKeySet("{A}","capA")
	  HotKeySet("{s}","sims")
	  HotKeySet("{S}","capS")
	  Sleep(50)
   WEnd
EndFunc
;~ DesableFunction//////////////
Func desableallkey()
   HotKeySet("{a}")
   HotKeySet("{A}")
   HotKeySet("{s}")
   HotKeySet("{S}")
EndFunc
;~ End Main Function//////////////////////////////////////////////////////
;~ Main Function Calling Functions////////////////////////////////////////
func sima()
	  $hotkeynum = 1
	  desableallkey()
	  Send("a")
	  SelectKey()
EndFunc
func capA()
	  $hotkeynum = 1
	  desableallkey()
	  Send("A")
	  SelectKey()
EndFunc
func sims()
   If $hotkeynum = 0  Then
	  desableallkey()
	  Send("{BS}{ASC 0241}"); 0241 =ñ ,0242=ò
   Else
	  desableallkey()
	  Send("{BS}{ASC 0242}")
	  EndIf
	  SelectKey()
EndFunc
func capS()
   If $hotkeynum = 0  Then
	  desableallkey()
	  Send("{BS}{ASC 0242}")
   Else
	  desableallkey()
	  Send("{BS}{ASC 0241}")
	  EndIf
	  SelectKey()
EndFunc