AutoHotkey Community

#SingleInstance force
#InstallKeybdHook
#Persistent  ; Keep the script running until the user exits it.

Menu, tray, NoStandard
Menu, tray, add, &Reload, MenuReload
Menu, tray, add, &Suspend, MenuSuspend ;Needs to be a toggle!!!!!!
Menu, tray, add 
Menu, tray, add, &Diagnostics, MenuDiagnostics
Menu, tray, add  ; Creates a separator line.
Menu, tray, add, &Exit, MenuExit ; Creates a new menu item.

;Syntax: ToasterPopup(["Title"],["Message"],["Title Font Color"],["Title Font Size"],["Font Color"],["Font Size"],["Background Color"],[Lifetime in MS (0 to persist until clicked)]

ToasterPopup("Loading Succesful", "Half-Qwerty loaded succesfully", "Blue", "12", "Black", "10", "White", 2000)

Return

;;;;;;;;;;;; End of auto-execute section ;;;;;;;;;;;;

MenuReload:
Reload
Return

MenuSuspend:
Suspend, Toggle
If A_IsSuspended = 1
{
menu, tray, Check, &Suspend
}
Else
{
menu, tray, Uncheck, &Suspend
}
Return

MenuDiagnostics:
KeyHistory
Return

MenuExit:
ExitApp
Return

Space::
Send {Space}
Return

!Space::
Send !{Space}
Return

^Space::
Send ^{Space}
Return

Shift::
Send {Blind}{Capslock}
Return
/*
When {Blind} is the first item in the string, the program avoids releasing Alt/Control/Shift/Win if they started out in the down position. For example, the hotkey +s::Send {Blind}abc would send ABC rather than abc because the user is holding down the Shift key. {Blind} also causes SetStoreCapslockMode to be ignored; that is, the state of Capslock is not changed.
*/

Space & SC029::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send ¬   
}
Else
{
 Send -
}
Return

Space & 1::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send )
}   
Else
{
Send 0
}
Return

Space & 2::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send (
}   
Else
{
Send 9
}
Return

Space & 3::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send *
}   
Else
{
Send 8
}
Return

Space & 4::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send &
}   
Else
{
Send 7
}
Return

Space & 5::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send {^}
}
Else
{
Send 6
}
Return

Space & 6::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send `%
}   
Else
{
Send 5
}
Return

Space & 7::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send {$}
}   
Else
{
Send 4
}
Return

Space & 8::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send £
}   
Else
{
Send 3
}
Return

Space & 9::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send {"}
}   
Else
{
Send 2
}
Return

Space & 0::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send {!}
}   
Else
{
Send 1
}
Return

Space & -::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send {_}
}   
Else
{
Send ``
}
Return

Space & Tab::
Send {Backspace}
Return

Space & q::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send P
}   
Else
{
Send p
}
Return

Space & w::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send O
}   
Else
{
Send o
}
Return

Space & e::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send I
}   
Else
{
Send i
}
Return

Space & r::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send U
}   
Else
{
Send u
}
Return

Space & t::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send Y
}   
Else
{
Send y
}
Return

Space & y::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send T
}   
Else
{
Send t
}
Return

Space & u::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send R
}   
Else
{
Send r
}
Return

Space & i::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send E
}   
Else
{
Send e
}
Return

Space & o::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send W
}   
Else
{
Send w
}
Return

Space & p::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send Q
}   
Else
{
Send q
}
Return

Space & [::
Send {Tab}
Return

Space & ]::
Send {Tab}
Return

/*
Space & \::      ; Correct for UK keyboard?
Send {Tab}
Return
*/

Space & Capslock::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send @
}   
Else
{
Send '
}
Return

Space & a::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send {:}
}   
Else
{
Send {;}
}
Return

Space & s::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send L
}   
Else
{
Send l
}
Return

Space & d::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send K
}   
Else
{
Send k
}
Return

Space & f::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send J
}   
Else
{
Send j
}
Return

Space & g::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send H
}   
Else
{
Send h
}
Return

Space & h::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send G
}   
Else
{
Send g
}
Return

Space & j::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send F
}   
Else
{
Send f
}
Return

Space & k::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send D
}   
Else
{
Send d
}
Return

Space & l::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send S
}   
Else
{
Send s
}
Return

Space & `;::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send A
}   
Else
{
Send a
}
Return

Space & z::
Send /
Return

Space & x::
Send .
Return

Space & c::
Send `,
Return

Space & v::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send M
}   
Else
{
Send m
}
Return

Space & b::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send N
}   
Else
{
Send n
}
Return

Space & n::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send B
}   
Else
{
Send b
}
Return

Space & m::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send V
}   
Else
{
Send v
}
Return

Space & ,::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send C
}   
Else
{
Send c
}
Return

Space & .::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send X
}   
Else
{
Send x
}
Return

Space & /::
GetKeyState, state, CapsLock, T ; D if CapsLock is ON or U otherwise.
If state := GetKeyState("Capslock", "T") ; True if CapsLock is ON, false otherwise.
{
Send Z
}   
Else
{
Send z
}
Return

ToasterPopup(TP_Title, TP_Message, TP_TitleFontColor, TP_TitleFontSize, TP_FontColor, TP_FontSize, TP_BGColor, TP_Lifespan)
{
   DetectHiddenWindows, On
   SysGet, Workspace, MonitorWorkArea
   Gui, 89:-Caption +ToolWindow +LastFound +AlwaysOnTop +Border
   Gui, 89:Color, %TP_BGColor%
   Gui, 89:Font, s%TP_TitleFontSize% c%TP_TitleFontColor%
   Gui, 89:Add, Text, gTP_Fade, %TP_Title%
   Gui, 89:Font, s%TP_FontSize% c%TP_FontColor%
   Gui, 89:Add, Text, gTP_Fade xs y30, %TP_Message%
   Gui, 89:Show, Hide
   Global GUI_ID ;Is this the proper way to use Global? I need it for TP_Fade...
   GUI_ID := WinExist()
   WinGetPos, GUIX, GUIY, GUIWidth, GUIHeight, ahk_id %GUI_ID%
   NewX := WorkSpaceRight-GUIWidth-5
   NewY := WorkspaceBottom-GUIHeight-5
   Gui, 89:Show, Hide x%NewX% y%NewY%

   DllCall("AnimateWindow","UInt",GUI_ID,"Int",500,"UInt","0x00040008") ; TOAST!
   If (TP_Lifespan=0)
   Return
   Else
   {
      Sleep, %TP_Lifespan%
      GoSub, TP_Fade
      Return
   }

TP_Fade:
DllCall("AnimateWindow","UInt",GUI_ID,"Int",1000,"UInt","0x90000") ; Fade out when clicked
Return
}

#SingleInstance

; HalfKeyboard invented by Matias Corporation between 1992 and 1996
; Originally coded in AutoHotkey by jonny in 2004
; Many thanks to Chris for helping him out with this script.
; Capslock hacks and `~ remap to '" by Watcher
; This implementation was done by mbirth in 2007

Menu Tray, Icon, HalfKeyboard.ico
Menu Tray, Tip, HalfKeyboard emulator
Menu Tray, Add, E&xit, MenuExit
Menu Tray, NoStandard
FileInstall HK_dn.gif, HalfKeyboard_help.gif

RegRead KLang, HKEY_CURRENT_USER, Keyboard Layout\Preload, 1
StringRight KLang, KLang, 4
If (!KLang)
  KLang := A_Language

If (KLang = "0407") {
  ; 0407 DE_de QWERTZ mirror set
  original := "^12345qwertasdfgyxcvb"
  mirrored := "ß09876poiuzölkjh-.,mn"
} Else If (KLang = "040c" || KLang = "040C") {
  ; 040c FR_fr AZERTY mirror set         
  original := "²&é" . """" . "'(azertqsdfgwxcvb"   ; split up string for better
  mirrored := ")àç" . "_"  . "è-poiuymlkjh!:;,n"   ; human readability
} Else {
  ; 0409 US_us QWERTY mirror set
  original := "``" . "12345qwertasdfgzxcvb"   ; split up string for better
  mirrored := "'"  . "09876poiuy;lkjh/.,mn"   ; human readability
}

; Now define all hotkeys
Loop % StrLen(original)
{
  c1 := SubStr(original, A_Index, 1)
  c2 := SubStr(mirrored, A_Index, 1)
  Hotkey Space & %c1%, DoHotkey
  Hotkey Space & %c2%, DoHotkey
}

return


; This key may help, as the space-on-up may get annoying, especially if you type fast.
Control & Space::Suspend

; Not exactly mirror but as close as we can get, Capslock enter, Tab backspace.
Space & CapsLock::Send {Enter}
Space & Tab::Send {Backspace}

; If spacebar didn't modify anything, send a real space keystroke upon release.
+Space::Send {Space}
Space::Send {Space}
 
; Define special key combos here (took them from RG's mod):
^1::Send {Home}
^2::Send {End}
^3::Send {Del}

; General purpose
DoHotkey:
  StringRight ThisKey, A_ThisHotkey, 1
  i1 := InStr(original, ThisKey)
  i2 := InStr(mirrored, ThisKey)
  If (i1+i2 = 0) {
    MirrorKey := ThisKey
  } Else If (i1 > 0) {
    MirrorKey := SubStr(mirrored, i1, 1)
  } Else {
    MirrorKey := SubStr(original, i2, 1)
  }
 
  Modifiers := ""
  If (GetKeyState("LWin") || GetKeyState("RWin")) {
    Modifiers .= "#"
  }
  If (GetKeyState("Control")) {
    Modifiers .= "^"
  }
  If (GetKeyState("Alt")) {
    Modifiers .= "!"
  }
  If (GetKeyState("Shift") + GetKeyState("CapsLock", "T") = 1) {
    ; only add if Shift is held OR CapsLock is on (XOR) (both held down would result in value of 2)
    Modifiers .= "+"
  }
  Send %Modifiers%{%MirrorKey%}
return

Space & F1::
  ; Help-screen using SplashImage
  CoordMode Caret, Screen
  y := A_CaretY + 20
  If (y > A_ScreenHeight-100)
    y := A_CaretY - 20 - 100
  SplashImage HalfKeyboard_help.gif, B X%A_CaretX% Y%y%
  Sleep 5000
  SplashImage OFF
return

MenuExit:
  ExitApp
return

; Left Hand Keyboard for Touch Typists.
; Date: 03-08-2006
; Michael Seaman, ACWC, Bridgepoint Hospital

; To make Shift/Ctrl/Alt keys "sticky" Thanks Titan!
; Thanks to everyone else as well!

Loop, % 255 - 165
   end := end . ",{" . Chr(A_Index + 32) . "}"

Shift::
Input, key, B L1 *, %end%
StringReplace, key, ErrorLevel, EndKey:
Send {Shift Down}{%key%}{Shift Up}
Return

Ctrl::
Input, key, B L1 *, %end%
StringReplace, key, ErrorLevel, EndKey:
Send {Ctrl Down}{%key%}{Ctrl Up}
Return

Alt::
Input, key, B L1 *, %end%
StringReplace, key, ErrorLevel, EndKey:
Send {Alt Down}{%key%}{Alt Up}
Return

; Without this capslock would shift only letters.
+CapsLock::   ; Must catch capslock and Shift capslock to make this work.

CapsLock::
  if CapsState = D
  {
    CapsState = U
    Send {LShift Up}
  }
  else
  {
    CapsState = D
    Send {LShift Down}
  }
  return

;Consider the following example, which makes Space into a prefix key.
Space & q::Send,{p}
Space & w::Send,{o}
Space & e::Send,{i}
Space & r::Send,{u}
Space & t::Send,{y}

Space & a::Send,{:}
Space & s::Send,{l}
Space & d::Send,{k}
Space & f::Send,{j}
Space & g::Send,{h}

Space & z::Send,{?}
Space & x::Send,{.}
Space & c::Send,{,}
Space & v::Send,{m}
Space & b::Send,{n}

Space & `::send,{-}
Space & 1::Send,{0}
Space & 2::Send,{9}
Space & 3::Send,{8}
Space & 4::Send,{7}
Space & 5::Send,{6}

Space & Tab::Send,{BS}
Space & CapsLock::Send,{Enter}

;To make the Space bar send a real "Space" keystroke whenever it isn't used to launch a hotkey.
$Space::
Send, {Space down}
Sleep 250
Send {Space up}
Return

;The $ prefix is needed to prevent a warning dialog about an infinite loop (since the hotkey
;"sends itself").In addition, the above action occurs at the time the key is released.

;Menu Tray, Icon, HalfKeyboard.ico
;Menu Tray, Tip, HalfKeyboard emulator
;Menu Tray, Add, E&xit, MenuExit
;Menu Tray, NoStandard
;FileInstall HK_dn.gif, HalfKeyboard_help.gif

UpperDelay = 1000