AutoHotkey Community

Code: Select all

;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         cy18 <thecy18@gmail.com>
;
; An improved script to use space as modifier
; In normal cases, if space is pressed for more than 0.1 second, it becomes a modifier, this time could be modified in the script
; If no other keys are pressed during space is pressed, a space is output when space is released
; Severial tunes are made so that the script works well when typing in fast speed
; Note that repeating space no longer works

#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.

AnyKeyPressedOtherThanSpace(mode = "P") {
    keys = 1234567890-=qwertyuiop[]\asdfghjkl;'zxcvbnm,./
    Loop, Parse, keys
    {        
        isDown :=  GetKeyState(A_LoopField, mode)
        if(isDown)
            return True
    }   
    return False
}
 
Space Up::
    space_up := true
    Send, {F18}
    return
Space::
    if AnyKeyPressedOtherThanSpace(){
        SendInput, {Blind}{Space}
        Return
    }
    space_up := False
    inputed := False
    input, UserInput, L1 T0.1, {F18}
    if (space_up) {
        Send, {Blind}{Space}
        return
    }else if (StrLen(UserInput) == 1){
        Send, {Space}%UserInput%
        return
    }
    while true{
        input, UserInput, L1, {F18}
        if (space_up) {
            if (!inputed){
                Send, {Blind}{Space}
            }
            break
        }else if (StrLen(UserInput) == 1) {
            inputed := True
            StringLower, UserInput, UserInput
            if (UserInput == "e")
                Send, {Blind}{Up}
            else if (UserInput == "d")
                Send, {Blind}{Down}
            else if (UserInput == "s")
                Send, {Blind}{Left}
            else if (UserInput == "f")
                Send, {Blind}{Right}
            else if (UserInput == "w")
                Send, {Blind}{Home}
            else if (UserInput == "r")
                Send, {Blind}{End}
            else if (UserInput == "c")
                Send, {Blind}{BS}
            else if (UserInput == "v")
                Send, {Blind}{DEL}
            else
                Send, {Blind}%UserInput%
        }
    }
    return

Code: Select all

Space::
^Space::
+Space::
!Space::
+^Space::
+!Space::
^!Space::
	Return
*Space Up::Send % (A_PriorKey = "Space") ? "{Blind}{Space}" : ""

#If GetKeyState("Space", "P")
	Left::WinMinimize A
	Up::WinMaximize A
	*vk45:: ; e
	*vk44:: ; d
	*vk53:: ; s
	*vk46:: ; f
		SendRemap()
		Return
#If

SendRemap() {
	Static RemapArr:={e: "{Up}", d: "{Down}", s: "{Left}", f: "{Right}"}
	Send % "{Blind}" RemapArr[GetKeyName(SubStr(A_ThisHotkey, 2))]
}
Esc::ExitApp

Code: Select all

#MaxHotkeysPerInterval 200
ModActivateDelay := 100

*Space::
	If SpacePressed ; AutoRepeat defense
		Return
	SpacePressed:=true
	SetTimer ModActivate, % "-" ModActivateDelay
	Return
*Space Up::
	SpacePressed:=false
	SetTimer ModActivate, Off
	If ((A_PriorKey = "Space") OR !ModActive)
		Send {Blind}{Space}
	ModActive := false
	Return
ModActivate:
	ModActive := true
	Return

#If (GetKeyState("Space", "P") && ModActive)
	Left::WinMinimize A
	Up::WinMaximize A
	*vk45::SendRemap() ; e
	*vk44::SendRemap() ; d
	*vk53::SendRemap() ; s
	*vk46::SendRemap() ; f
#If

SendRemap() {
	Static SendRemapArr:={e: "{Up}", d: "{Down}", s: "{Left}", f: "{Right}"}
	Send % "{Blind}" SendRemapArr[GetKeyName(SubStr(A_ThisHotkey, 2))]
}
Esc::ExitApp