;*----------------------------------------------------------- ;* Integration N1MM with MorseRunner by K7OG ;* Modification to integrate AATest with MorseRunner by LU7HZ ;*----------------------------------------------------------- ; MR Call = TEdit4 ; MR RST = TEdit3 ; MR Number = TEdit2 ;*----------------------------------------------------------- ;#NoEnv Process Priority,,High ;#SingleInstance ignore SetTitleMatchMode, 2 #InstallKeybdHook SetKeyDelay, -1 SetControlDelay, -1 Loop { Input key, I L1 M V B GoSub, SyncUp } ~SC00E:: ; backspace. tilde means pass the key through GoSub, SyncUp return ~Space:: ; spacebar GoSub, SyncUp return ~Enter:: ControlGetFocus, FocusedControl, New QSO IfEqual, FocusedControl, TElAdvancedEdit6, ControlSend, TEdit4, {Enter}, Morse Runner IfEqual, FocusedControl, TElAdvancedEdit4, ControlSend, TEdit2, {Enter}, Morse Runner GoSub, SyncUp return F1:: GoSub, SyncUp ControlSend, TEdit2, {F1}, Morse Runner return F2:: GoSub, SyncUp ControlSend, TEdit2, {F2}, Morse Runner return F3:: GoSub, SyncUp ControlSend, TEdit2, {F3}, Morse Runner return F4:: GoSub, SyncUp ControlSend, TEdit2, {F4}, Morse Runner return F5:: GoSub, SyncUp ControlSend, TEdit2, {F5}, Morse Runner return F6:: GoSub, SyncUp ControlSend, TEdit2, {F6}, Morse Runner return F7:: GoSub, SyncUp ControlSend, TEdit2, {F7}, Morse Runner return F8:: GoSub, SyncUp ControlSend, TEdit2, {F8}, Morse Runner return F9:: GoSub, SyncUp ControlSend, TEdit2, {F9}, Morse Runner return ^Up:: ControlSend, TEdit2, ^{Up}, Morse Runner return Up:: ControlSend, TEdit2, {Up}, Morse Runner return ^Down:: ControlSend, TEdit2, ^{Down}, Morse Runner return Down:: ControlSend, TEdit2, {Down}, Morse Runner return Esc:: ControlSend, TEdit2, {Esc}, Morse Runner return F11:: ControlSend, TEdit2, {F11}, Morse Runner return ~SC027:: ; semicolon ControlSend, TEdit2, {;}, Morse Runner return Insert:: ControlSend, TEdit2, {Insert}, Morse Runner return +SC00D:: ; + ControlSend, TEdit2, {+}, Morse Runner return SC04E:: ; + on num pad ControlSend, TEdit2, {+}, Morse Runner return ^F10:: ControlSend, TEdit2, ^{F10} Morse Runner return ^F9:: ControlSend, TEdit2, ^{F9} Morse Runner return !F10:: ControlSend, TEdit2, !{F10} Morse Runner return !F9:: ControlSend, TEdit2, !{F9} Morse Runner return PgUp:: ControlSend, TEdit2, {PgUp}, Morse Runner return PgDn:: ControlSend, TEdit2, {PgDn}, Morse Runner return SyncUp: ; Call ControlGetText, mmCall, TElAdvancedEdit6, New QSO ControlGetText, mrCall, TEdit4, Morse Runner IfNotEqual, mmCall, mrCall, ControlSetText, TEdit4, %mmCall%, Morse Runner ; Number ControlGetText, mmNumber, TElAdvancedEdit4, New QSO ControlGetText, mrNumber, TEdit2, Morse Runner IfNotEqual, mmNumber, mrNumber, ControlSetText, TEdit2, %mmNumber%, Morse Runner return ButtonQuit: ExitApp Return