From dab3e818db4829eb6f8220c45bd1845fe4564f60 Mon Sep 17 00:00:00 2001 From: erik Date: Mon, 16 Apr 2007 20:43:51 +0000 Subject: neue version von neo-autohotkey git-svn-id: https://svn.neo-layout.org@72 b9310e46-f624-0410-8ea1-cfbb3a30dc96 --- windows/XP/autohotkey/neo20.ahk | 419 +++++++++++++++++++++++++++++++--------- 1 file changed, 331 insertions(+), 88 deletions(-) (limited to 'windows') diff --git a/windows/XP/autohotkey/neo20.ahk b/windows/XP/autohotkey/neo20.ahk index 5fa25d3..4c0b052 100644 --- a/windows/XP/autohotkey/neo20.ahk +++ b/windows/XP/autohotkey/neo20.ahk @@ -1,67 +1,114 @@ -;; -;; NoAdmin-NEO -- Simon Griph, 2004 -;; +/* + NEO-Layout + nach NoAdmin-Svorak von Simon Griph, 2004 + 3./4. Ebene funktioniert nur über AltGr, nicht über CapsLock + 5./6. Ebene noch gar nicht +*/ ;#InstallKeybdHook -#singleinstance force -#persistent -#notrayicon +;#singleinstance force +;#notrayicon #hotkeyinterval 1024 #maxhotkeysperinterval 64 -setstorecapslockmode, off +setstorecapslockmode, on -name = NEO-Layout +name = &NEO-Layout enable = Aktiviere &NEO disable = Deaktiviere &NEO -ctrls = &Strg Standard +;ctrls = &Strg Standard regread, inputlocale, HKEY_CURRENT_USER, Keyboard Layout\Preload, 1 -regread, inputlocalealias, HKEY_CURRENT_USER, Keyboard Layout\Substitutes, inputlocale +regread, inputlocalealias, HKEY_CURRENT_USER, Keyboard Layout\Substitutes, %inputlocale% if inputlocalealias <> - inputlocale = inputlocalealias + inputlocale = %inputlocalealias% if inputlocale <> 00000407 { suspend - regread, inputlocale, HKEY_LOCAL_MACHINE, SYSTEM\CurrentControlSet\Control\Keyboard Layouts\inputlocale, Layout Text - msgbox, 48, Warning!, Incompatible keybord layout: `n`n "inputlocale" `n`nGerman QWERTZ has to be the standardlayout for `nname works as expected. `n`nChange the standard layout under control panel `n-> Local and language settings `n-> Language -> Information... `n + regread, inputlocale, HKEY_LOCAL_MACHINE, SYSTEM\CurrentControlSet\Control\Keyboard Layouts\%inputlocale%, Layout Text + msgbox, 48, Warning!, Incompatible keybord layout: `n`n "inputlocale" `n`nGerman QWERTZ has to be the standardlayout for `n%name% works as expected. `n`nChange the standard layout under control panel `n-> Local and language settings `n-> Language -> Information... `n exitapp } stringtrimright, inifile, a_scriptname, 4 -inifile = inifile.ini -iniread, firstrun, inifile, environment, firstRun, on +inifile = %inifile%.ini +iniread, firstrun, %inifile%, environment, firstRun, on if firstrun <> off { - iniwrite, off, inifile, environment, firstRun + iniwrite, off, %inifile%, environment, firstRun gosub help } -menu, tray, nostandard -menu, tray, add, disable, toggleneo -menu, tray, default, disable -;menu, tray, add, ctrls, togglectrl +;menu, tray, nostandard +menu, tray, add +menu, tray, add, %disable%, toggleneo +menu, tray, default, %disable% +;menu, tray, add, %ctrls%, togglectrl menu, helpmenu, add, &Hilfe, help menu, helpmenu, add menu, helpmenu, add, http://&autohotkey.com/, autohotkey menu, helpmenu, add, http://www.eigenheimstrasse.de:8668/space/Computerecke/NEO-Tastaturlayout, neo - menu, helpmenu, add, http://aoeu.&info/, aoeu + ;menu, helpmenu, add, http://aoeu.&info/, aoeu menu, tray, add, &Dokumentation, :helpmenu menu, tray, add menu, tray, add, Nicht &im &Systray &anzeigen, hide -menu, tray, add, NEO beenden, exitprogram -menu, tray, tip, NEO +menu, tray, add, %name% beenden, exitprogram +menu, tray, tip, %name% -iniread, scc, inifile, environment, neoCtrlChars, on -;gosub, setctrl +/* +iniread, scc, %inifile%, environment, neoCtrlChars, on +gosub, setctrl menu, tray, icon blockinput, send +*/ + +/* +;Senden von Unicode: +Hotkey:: +MyUTF_String = {ASC xy} +Gosub Unicode +return +*/ + + +; Für 3. und 4. Ebene: +; nach http://www.autohotkey.com/forum/topic5370.html +; CapsLock und # werden zu AltGr: +; [this didn't work: *CapsLock::Send {LCtrl} ] + +*CapsLock:: +*SC02B:: +Send {RAlt Down} +Send {LControl Down} +return + +*CapsLock Up:: +*SC02B Up:: +Send {RAlt Up} +Send {LControl Up} +return + +; Für 5. und 6. Ebene: +; < und AltGr werden zu LCtrl + RCtrl: +/* +*SC056:: +*SC138:: +Send {LControl Down} +Send {RControl Down} +return + +*SC056 Up:: +*SC138 Up:: +Send {LControl Up} +Send {RControl Up} +return +*/ #usehook on ;1. Ebene ;--------- -SC029::send {^} ; +SC029::send {^} ;tot 1::send 1 2::send 2 3::send 3 @@ -72,8 +119,8 @@ SC029::send {^} ; 8::send 8 9::send 9 0::send 0 -ß::send - -SC00D::send {´} ; +ß::send - ; Bind, Unicode? +SC00D::send {´} ;tot q::send x w::send v @@ -86,7 +133,7 @@ i::send g o::send f p::send q ü::send ß -SC01B::send {~} ; +SC01B::send {~} ;soll tot, ist aber nicht -> extra definieren? a::send u s::send i @@ -99,8 +146,9 @@ k::send r l::send t ö::send d ä::send y -;SC02B (#) wird zu Mod5 +;SC02B (#) wird zu AltGr +;SC056 (<) wird zu Mod5 y::send ö x::send ü c::send ä @@ -108,26 +156,31 @@ v::send p b::send z n::send b m::send m -SC033::send {,} +SC033::send `, SC034::send . SC035::send j ;2. Ebene (Shift) ;--------- -+SC029::send {^} ; -+1::send ° ; -+2::send 2 ; ++SC029:: ;? +; 030C passiert bei mir nichts - 02C7 wäre untot, geht auch nicht +MyUTF_String = {ASC 2C7} +Gosub Unicode +return + ++1::send ° ++2::send 2 +3::send § +4::send $ +5::send € -+6::send ² -+7::send ° ; ++6::send ª ++7::send º ; wo ist Unterschied zu +1? +8::send „ +9::send “ +0::send ” -+ß::send – -+SC00D::send {´} ; ++ß::send – ; Ged, Unicode? ++SC00D::send `` +q::send X +w::send V @@ -140,7 +193,11 @@ SC035::send j +o::send F +p::send Q +ü::send ß -+SC01B::send - ; + ++SC01B:: ; Macron?? sollte tot sein... +MyUTF_String = {ASC 0175} +Gosub Unicode +return +a::send U +s::send I @@ -153,7 +210,7 @@ SC035::send j +l::send T +ö::send D +ä::send Y -;+SC02B::send {#} +;SC02B (#) wird zu AltGr +y::send Ö +x::send Ü @@ -162,43 +219,48 @@ SC035::send j +b::send Z +n::send B +m::send M -+SC033::send {;} ++SC033::send `; +SC034::send : +SC035::send J ;3. Ebene (AltGr) ;--------- -<^>!SC029::send ? ; -<^>!1::send ¬ -<^>!2::send ^ -<^>!3::send 3 -<^>!4::send ¥ -<^>!5::send £ -<^>!6::send æ -<^>!7::send œ + +<^>!SC029::send ? ; Siehe 2. Ebene +<^>!1:: ; ¬ +MyUTF_String = {ASC 172} +Gosub Unicode +return + +<^>!2::send ^ ; +<^>!3::send 3 ; +<^>!4::send ¥ ; +<^>!5::send £ ; +<^>!6::send æ ; +<^>!7::send œ ; <^>!8::send ‚ <^>!9::send ‘ <^>!0::send ’ -<^>!ß::send — +<^>!ß::send — ; soll ganz langer Strich sein <^>!SC00D::send ¸ ; -<^>!q::send @ +<^>!q::send @ <^>!w::send _ <^>!e::send [ <^>!r::send ] <^>!t::send {^} <^>!z::send {!} -<^>!u::send {<} -<^>!i::send {>} -<^>!o::send = -<^>!p::send {;} -<^>!ü::send ? +<^>!u::send < +<^>!i::send > +<^>!o::send `= +<^>!p::send `; +<^>!ü::send ? ; <^>!SC01B::send ? ; <^>!a::send \ <^>!s::send / -<^>!d::send { -<^>!f::send } +<^>!d::sendraw { +<^>!f::sendraw } <^>!g::send * <^>!h::send ? <^>!j::send ( @@ -206,15 +268,15 @@ SC035::send j <^>!l::send - <^>!ö::send : <^>!ä::send y -;SC02B (#) wird zu Mod5 +;SC02B (#) wird zu AltGr <^>!y::send ~ <^>!x::send $ <^>!c::send | <^>!v::send {#} -<^>!b::send {`} +<^>!b::send `` ; tot, soll der untot sein? <^>!n::send {+} -<^>!m::send 0/0 ; +<^>!m::send `% <^>!SC033::send {&} <^>!SC034::send " <^>!SC035::send ' @@ -224,17 +286,17 @@ SC035::send j ;--------- <^>!+SC029::send ¶ ; -<^>!+1::send ¹ +<^>!+1::send ¹ ; <^>!+2::send ² <^>!+3::send ³ -<^>!+4::send ¢ -<^>!+5::send ¤ -<^>!+6::send Æ -<^>!+7::send Œ -<^>!+8::send » -<^>!+9::send « -<^>!+0::send › -<^>!+ß::send ‹ +<^>!+4::send ¢ ; +<^>!+5::send ¤ ; +<^>!+6::send Æ ; +<^>!+7::send Œ ; +<^>!+8::send » ; +<^>!+9::send « ; +<^>!+0::send › ; +<^>!+ß::send ‹ ; <^>!+SC00D::send ´ ; <^>!+q::send ? @@ -261,7 +323,7 @@ SC035::send j <^>!+l::send ? <^>!+ö::send ? <^>!+ä::send ? -;SC02B (#) wird zu Mod5 +;SC02B (#) wird zu AltGr <^>!+y::send ö <^>!+x::send ü @@ -277,11 +339,177 @@ SC035::send j ;5. Ebene ;--------- -SC02B & a:: -CapsLock & a:: -send Pos1 -return - +<>^4::Send 5 + +;SC056 & 8:: +;RAlt & 8:: +;Send {/} +;return + +;SC056 & 9:: +;RAlt & 9:: +;Send {*} +;return + +;SC056 & 0:: +;RAlt & 0:: +;Send {-} +;return + + +;SC056 & q:: +;RAlt & q:: +;Send {Esc} +;return + +;SC056 & w:: +;RAlt & w:: +;Send {Backspace} +;return + +;SC056 & e:: +;RAlt & e:: +;Send {Up} +;return + +;SC056 & t:: +;RAlt & t:: +;Send {Insert} +;return + +;SC056 & z:: +;RAlt & z:: +;Send {¡} +;return + +;SC056 & u:: +;RAlt & u:: +;Send {7} +;return + +;SC056 & i:: +;RAlt & i:: +;Send {8} +;return + +;SC056 & o:: +;RAlt & o:: +;Send {9} +;return + +;SC056 & p:: +;RAlt & p:: +;Send {+} +;return +; +;SC056 & ü:: +;RAlt & ü:: +;Send {?} +;return + + +;SC056 & a:: +;RAlt & a:: +;Send {Home} +;return + +;SC056 & s:: +;RAlt & s:: +;Send {Left} +;return + +;SC056 & d:: +;RAlt & d:: +;Send {Down} +;return + +;SC056 & f:: +;RAlt & f:: +;Send {Right} +;return + +;SC056 & g:: +;RAlt & g:: +;Send {End} +;return + +;SC056 & h:: +;RAlt & h:: +;Send {¿} +;return + +;SC056 & j:: +;RAlt & j:: +;Send {4} +;return + +;SC056 & k:: +;RAlt & k:: +;Send {5} +;return + +;SC056 & l:: +;RAlt & l:: +;Send {6} +;return + +;SC056 & ö:: +;RAlt & ö:: +;Send {,} +;return + +;SC056 & ä:: +;RAlt & ä:: +;Send {þ} +;return + +;SC056 & y:: +;RAlt & y:: +;Send {Tab} +;return + +;SC056 & x:: +;RAlt & x:: +;Send {Del} +;return + +;SC056 & c:: +;RAlt & c:: +;Send {PgDn} +;return + +;SC056 & n:: +;RAlt & n:: +;Send {±} +;return + +;SC056 & m:: +;RAlt & m:: +;Send {1} +;return + +;SC056 & SC033:: +;RAlt & SC033:: +;Send {2} +;return + +;SC056 & SC034:: +;RAlt & SC034:: +;Send {3} +;return + +;SC056 & SC035:: +;RAlt & SC035:: +;Send {.} +;return + +;6. Ebene (Mod5 & Shift) +;----------------------- + +;+SC056 & b:: +;+RAlt & b:: +;Send m +;return ;Strg/Ctrl @@ -325,7 +553,7 @@ return ^l::send ^t ^ö::send ^d ^ä::send ^y -;SC02B (#) wird zu Mod5 +;SC02B (#) wird zu AltGr ^y::send ^ö ^x::send ^ü @@ -379,7 +607,7 @@ return !l::send {altdown}t !ö::send {altdown}d !ä::send {altdown}y -;SC02B (#) wird zu Mod5 +;SC02B (#) wird zu AltGr !y::send {altdown}ö !x::send {altdown}ü @@ -433,7 +661,7 @@ return #l::send #t #ö::send #d #ä::send #y -;SC02B (#) wird zu Mod5 +;SC02B (#) wird zu AltGr #y::send #ö #x::send #ü @@ -487,7 +715,7 @@ return ^+l::send ^+t ^+ö::send ^+d ^+ä::send ^+y -;SC02B (#) wird zu Mod5 +;SC02B (#) wird zu AltGr ^+y::send ^+ö ^+x::send ^+ü @@ -507,21 +735,29 @@ return #usehook off return +Unicode: +; Place Unicode text onto the clipboard: +Transform, Clipboard, Unicode, %MyUTF_String% +; Retrieve the clipboard's Unicode text as a UTF-8 string: +Transform, OutputVar, Unicode +Send %OutputVar% +return + toggleneo: if state <> { state = - menu, tray, rename, enable, disable - menu, tray, enable, ctrls + menu, tray, rename, %enable%, %disable% + menu, tray, enable, %ctrls% } else { state = : Inaktiverad - menu, tray, rename, disable, enable - menu, tray, disable, ctrls + menu, tray, rename, %disable%, %enable% + menu, tray, disable, %ctrls% } - menu, tray, tip, namestate + menu, tray, tip, %name%%state% suspend return @@ -530,13 +766,20 @@ togglectrl: scc = off else scc = on - iniwrite, scc, inifile, environment, neoCtrlChars -; gosub, setctrl + iniwrite, %scc%, %inifile%, environment, svorakCtrlChars + gosub, setctrl +return + +setctrl: + if scc <> off + menu, tray, uncheck, %ctrls% + else + menu, tray, check, %ctrls% return help: - msgbox, 64, name, NEO-Layout ohne Administratorrechte. `n`nname ersetzt das übliche deutsche `nTastaturlayout mit der Alternative NEO, `nbeschrieben auf http://www.de. `n`nWenn Autohotkey aktiviert ist, werden alle Tastendrucke `nabgefangen und statt dessen eine Übersetzung weitergeschickt. `nDies geschieht transparent für den Anwender, `nes muss nichts installiert werden. `n`nDie Zeichenübersetzung kann leicht über ein Icon im `nSystemtray deaktiviert werden. `nAußerdem kann dort ausgewählt werden, ob die Strg-Tasten `nebenfalls übersetzt werden sollen. `n`n`nSimon Griph, 2004-10-25 `n + msgbox, 64, name, NEO-Layout ohne Administratorrechte. `n`n%name% ersetzt das übliche deutsche `nTastaturlayout mit der Alternative NEO, `nbeschrieben auf http://www.de. `n`nWenn Autohotkey aktiviert ist, werden alle Tastendrucke `nabgefangen und statt dessen eine Übersetzung weitergeschickt. `nDies geschieht transparent für den Anwender, `nes muss nichts installiert werden. `n`nDie Zeichenübersetzung kann leicht über ein Icon im `nSystemtray deaktiviert werden. `nAußerdem kann dort ausgewählt werden, ob die Strg-Tasten `nebenfalls übersetzt werden sollen. `n`n`nSimon Griph, 2004-10-25 `n return aoeu: -- cgit v1.2.3