I appreciate any help, thanks.
Please see working/testing script below.
Code: Select all
#SingleInstance Force
#InstallKeybdHook
#InstallMouseHook
LoadNumberList()
Loop
{
sleep 100
}
Numpad5::
ExitApp
Numpad6::
Reload
return
Numpad8::
ActiveWindowToReturnTo := WinExist("A")
WinActivate ahk_class SciTEWindow ahk_exe SciTE.exe
WinWait, ahk_class SciTEWindow ahk_exe SciTE.exe,, 2
SendInput {F5}
sleep 10
WinActivate ahk_id %ActiveWindowToReturnTo%
return
;MS Word shortcuts
#IfWinActive ahk_class Notepad
{
~d::
InputToTypeAndNumber()
return
~w::
InputToTypeAndNumber()
return
~m::
InputToTypeAndNumber()
return
~y::
InputToTypeAndNumber()
return
}
#IfWinActive
InputToTypeAndNumber()
{
global
Input, InputFromKeyBoard, T4 V, , %NumberList%
if (ErrorLevel = "Timeout")
{
TTMsg("Timed out.", 1000)
return
}
If InputFromKeyBoard in %NumberList%
{
StringLen, InputLen, InputFromKeyBoard
InputLen := InputLen + 1
StringTrimLeft, ItemType, A_ThisHotkey, 1
ItemTypes := {D: "Day", W: "Week", M: "Month", Y: "Year"}
ItemType := ItemTypes[ItemType]
ItemTypeAndNumber := ItemType . " " . InputFromKeyBoard
SendInput, {Backspace %InputLen%}%ItemTypeAndNumber%
InputFromKeyBoard := ""
TTMsg(ItemTypeAndNumber, 1000)
}
return
}
LoadNumberList()
{
global NumberList
Loop, 20
{
NumberList := NumberList . A_Index . " ,"
}
StringTrimRight, NumberList, NumberList, 1
return NumberList
}
TTMsg(Message, Timer) ;example TTMsg("Testing", 1000)
{
MouseGetPos ttX, ttY
ToolTip, %Message%, ttX + 50, ttY + 50
SetTimer, RemoveToolTip, %Timer%
return
}
RemoveToolTip:
SetTimer, RemoveToolTip, Off
ToolTip
return