#SingleInstance

scrLkLed := 0
numLkLed := 0
capLkLed := 0

KeyboardLED(LEDvalue, Cmd, Kbd=0)
{
  global scrLkLed, numLkLed, capLkLed
  
  SetUnicodeStr(fn,"\Device\KeyBoardClass" Kbd)
  h_device:=NtCreateFile(fn,0+0x00000100+0x00000080+0x00100000,1,1,0x00000040+0x00000020,0)
  
  If Cmd= switch  ;switches every LED according to LEDvalue
  {
	scrLkToggle:=(1<<0)
	numlkToggle:=(1<<1)
	capLkToggle:=(1<<2)
	newState:=0
	;curState:= (GetKeyState("ScrollLock", "T")) + 2*(GetKeyState("NumLock", "T")) + 4*(GetKeyState("CapsLock", "T"))
	if (LEDvalue & scrLkToggle) {
		newState += !(scrLkLed)
		scrLkLed := !(scrLkLed)
		;MsgBox % newState . " scr " . scrLkLed
	}
	else newState += (scrLkLed)
	if (LEDvalue & numLkToggle) 
		newState += 2*(!(GetKeyState("NumLock", "T")))
	else newState += 2*((GetKeyState("NumLock", "T")))
	if (LEDvalue & capLkToggle) 
		newState += 4*(!(GetKeyState("CapsLock", "T")))
	else newState += 4*((GetKeyState("CapsLock", "T")))	
	;MsgBox % newState
	KeyLED:=newState
  }
  If Cmd= on  ;forces all choosen LED's to ON (LEDvalue= 0 ->LED's according to keystate)
   KeyLED:= LEDvalue | (GetKeyState("ScrollLock", "T") + 2*GetKeyState("NumLock", "T") + 4*GetKeyState("CapsLock", "T"))
  If Cmd= off  ;forces all choosen LED's to OFF (LEDvalue= 0 ->LED's according to keystate)
    {
    LEDvalue:= LEDvalue ^ 7
    KeyLED:= LEDvalue & (GetKeyState("ScrollLock", "T") + 2*GetKeyState("NumLock", "T") + 4*GetKeyState("CapsLock", "T"))
    }
  
  success := DllCall( "DeviceIoControl"
              ,  "ptr", h_device
              , "uint", CTL_CODE( 0x0000000b     ; FILE_DEVICE_KEYBOARD
                        , 2
                        , 0             ; METHOD_BUFFERED
                        , 0  )          ; FILE_ANY_ACCESS
              , "int*", KeyLED << 16
              , "uint", 4
              ,  "ptr", 0
              , "uint", 0
              ,  "ptr*", output_actual
              ,  "ptr", 0 )
  
  NtCloseFile(h_device)
  return success
}

CTL_CODE( p_device_type, p_function, p_method, p_access )
{
  Return, ( p_device_type << 16 ) | ( p_access << 14 ) | ( p_function << 2 ) | p_method
}

NtCreateFile(ByRef wfilename,desiredaccess,sharemode,createdist,flags,fattribs)
{
  VarSetCapacity(objattrib,6*A_PtrSize,0)
  VarSetCapacity(io,2*A_PtrSize,0)
  VarSetCapacity(pus,2*A_PtrSize)
  DllCall("ntdll\RtlInitUnicodeString","ptr",&pus,"ptr",&wfilename)
  NumPut(6*A_PtrSize,objattrib,0)
  NumPut(&pus,objattrib,2*A_PtrSize)
  status:=DllCall("ntdll\ZwCreateFile","ptr*",fh,"UInt",desiredaccess,"ptr",&objattrib
                  ,"ptr",&io,"ptr",0,"UInt",fattribs,"UInt",sharemode,"UInt",createdist
                  ,"UInt",flags,"ptr",0,"UInt",0, "UInt")
  return % fh
}

NtCloseFile(handle)
{
  return DllCall("ntdll\ZwClose","ptr",handle)
}


SetUnicodeStr(ByRef out, str_)
{
  VarSetCapacity(out,2*StrPut(str_,"utf-16"))
  StrPut(str_,&out,"utf-16")
}

caps_lock_state := false
test_fn := Func("KeyboardLED").bind(1, "switch", 0)
	
*CapsLock::
	Global test_fn
	caps_lock_state := !(caps_lock_state)
	if (caps_lock_state) {
		SetTimer, % test_fn, 200
		KeyboardLED(1,"on",0)
	} else {
		SetTimer, % test_fn, Off
		KeyboardLED(1,"off",0)
	}
	("CapsLock")
	return

/*r::
	MsgBox % "SI" . caps_lock_state . "e" 
	return

GUIA:

H,J,K,L-LEFT, DOWN, UP, RIGHT
P,O-PGUP, PGDN
I,U-ctrl+X, ctrl+C
Ñ-ctrl+V
M-F2
,-F8
N-ctrl+Z
Y-ctrl+Y
E-S
D-ESC
C-F && H WHEN CTRL+SHIFT

F-CTRL
S-SHIFT

8::KeyboardLED(1,"switch",0)

7::
MsgBox % "var " . scrLkLed
return

*/

LShift & RShift::CapsLock
RShift & LShift::CapsLock
;*CapsLock::return	

#if caps_lock_state

f::return
X::return
s::return
a::return

h::
	ctrlState := GetKeyState("F", "P")
	shiftState := GetKeyState("s", "P")
	altState := GetKeyState("a","P")
		
	if ctrlState = 1
		SendInput {Ctrl Down}
	if shiftState = 1
		SendInput {Shift Down} 
	if altState = 1
		SendInput {Alt Down}	
	
	SendInput {Left}
		
	if ctrlState = 1
		SendInput {Ctrl Up}
	if shiftState = 1
		SendInput {Shift Up}
	if altState = 1
		SendInput {Alt Up}
		
	return
	
j::
	ctrlState := GetKeyState("F", "P")
	shiftState := GetKeyState("s", "P")
	altState := GetKeyState("a","P")
		
	if ctrlState = 1
		SendInput {Ctrl Down}
	if shiftState = 1
		SendInput {Shift Down} 
	if altState = 1
		SendInput {Alt Down}	
	
	SendInput {Down}
		
	if ctrlState = 1
		SendInput {Ctrl Up}
	if shiftState = 1
		SendInput {Shift Up}
	if altState = 1
		SendInput {Alt Up}
		
	return
	 
l::
	ctrlState := GetKeyState("F", "P")
	shiftState := GetKeyState("s", "P")
	altState := GetKeyState("a","P")
		
	if ctrlState = 1
		SendInput {Ctrl Down}
	if shiftState = 1
		SendInput {Shift Down} 
	if altState = 1
		SendInput {Alt Down}	
	
	SendInput {Right}
		
	if ctrlState = 1
		SendInput {Ctrl Up}
	if shiftState = 1
		SendInput {Shift Up}
	if altState = 1
		SendInput {Alt Up}
		
	return
	
k::
	ctrlState := GetKeyState("F", "P")
	shiftState := GetKeyState("s", "P")
	altState := GetKeyState("a","P")
		
	if ctrlState = 1
		SendInput {Ctrl Down}
	if shiftState = 1
		SendInput {Shift Down} 
	if altState = 1
		SendInput {Alt Down}	
	
	SendInput {Up}
		
	if ctrlState = 1
		SendInput {Ctrl Up}
	if shiftState = 1
		SendInput {Shift Up}
	if altState = 1
		SendInput {Alt Up}
		
	return
	
m::
	("m")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {F2}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{F2}") : ("^{F2}"))
				return
			case 2:
				SendInput ^+{F2} 
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}



p::
	("p")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {PgDn}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{PgDn}") : ("^{PgDn}"))
				return
			case 2:
				SendInput ^+{PgDn} 
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return


o::
	("o")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {PgUp}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{PgUp}") : ("^{PgUp}"))
				return
			case 2:
				SendInput ^+{PgDn} 
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return
	
sc027::
	("sc027")
	SendInput ^{v}
	return
	

i::
	("i")
	SendInput ^{x}
	return
	

u::
	("u")
	SendInput ^{c}
	return
	
N::
	("N")
	SendInput ^{z}
	return
	
Y::
	("Y")
	SendInput ^{y}
	return
	

sc033::
	("sc033")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {F8}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{F8}") : ("^{F8}"))
				return
			case 2:
				SendInput ^+{F8} 
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return
	
	
C::
	("C")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput ^{f}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("^{F}") : ("^{H}"))
				return
			case 2:
				;SendInput % ("^+{keyboardActions[""c""]}") 
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return
	
E::
	("E")
	shiftState := GetKeyState("s", "P")
	SendInput, % ((shiftState == 1) ? ("^{S}") : ("^{s}"))
	return
	
D::
	("D")
	SendInput {Esc}
	return
	
	
sc01A::
	("sc01A")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {Del}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{Del}") : ("^{Del}"))
				return
			case 2:
				;SendInput % ("^+{keyboardActions[""c""]}")
				SendInput ^+{Del} 				
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return
	

sc01B::
	("sc01B")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {Home}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{Home}") : ("^{Home}"))
				return
			case 2:
				;SendInput % ("^+{keyboardActions[""c""]}")
				SendInput ^+{Home} 				
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return
	

sc02B::
	("sc02B")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {End}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{End}") : ("^{End}"))
				return
			case 2:
				;SendInput % ("^+{keyboardActions[""c""]}")
				SendInput ^+{End} 				
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return

sc028::
	("sc028")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {Ins}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{Ins}") : ("^{Ins}"))
				return
			case 2:
				;SendInput % ("^+{keyboardActions[""c""]}")
				SendInput ^+{Ins} 				
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return



Backspace::
	("Backspace")
	loop {
		ctrlState := GetKeyState("f", "P")
		shiftState := GetKeyState("s", "P")
		switch (shiftState + ctrlState) {
			case 0:
				SendInput {Backspace}
				return
			case 1:
				SendInput, % ((shiftState == 1) ? ("+{Backspace}") : ("^{Backspace}"))
				return
			case 2:
				;SendInput % ("^+{keyboardActions[""c""]}")
				SendInput ^+{Backspace} 				
				return
			default:
				MsgBox % "menudo gilipolls"
				return
		}
		return
	}
	return


#if