AutoHotkey Community

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
;This script uses relative mouse positions so a window need to be active so it can relate coordinates.....
CoordMode,Mouse,Relative   ;hit the same spot in a window even if the window itself moves
;CoordMode,Mouse,Screen    ;some may like this better
var_button=9


;;;;;;; see to it that u don't move lines 11 through 19.... will end up with duplicate hotkeys

^1::MouseMove,25,102     ; Win=0x370422     Control=Static1     Line Stored=20070616095710
;row will be replaced
;row will be replaced
;row will be replaced
;row will be replaced
^6::MouseMove,186,196     ; Win=0x370422     Control=Button19     Line Stored=20070616095713
;row will be replaced
;row will be replaced
;row will be replaced

;;;;;;;;;;;;;Don't use or delete rows 11 through 19 !!

;Store Mouse positions with CTRL+????+(1_to_9)       Goto stored location with CTRL+(1_to_9)
^+1::
var_button-=1
^+2::
var_button-=1
^+3::
var_button-=1
^+4::
var_button-=1
^+5::
var_button-=1
^+6::
var_button-=1
^+7::
var_button-=1
^+8::
var_button-=1
^+9::
MouseGetPos, Var_X, Var_Y, Var_Win, Var_Control
ScriptLine=^%var_button%::MouseMove,%Var_X%,%Var_Y% %A_Tab% `; Win=%Var_Win% %A_Tab% Control=%Var_Control% %A_Tab% Line Stored=%A_Now%
var_button+=10 ;used to calculate what row to use....
ReplaceLine("SaveMousePos.ahk", var_button, ScriptLine)
Reload

ReplaceLine(File, LineNo, LineData)
{
FileRead, FileContent, %File%
FileDelete, %File%
Loop, parse, FileContent, `n, `r
{
if (A_Index = LineNo) {
LineContent = %LineData%      ;Replace
}
else LineContent = %A_LoopField%

NewFileContent = %NewFileContent%`n%LineContent%
}
StringTrimLeft, NewFileContent, NewFileContent, 1   ;Otherwise first line would be empty
FileAppend, %NewFileContent%, %File%
}

Loop, 9
  Hotkey, ^+%A_Index%, NextStatement
Return

NextStatement:
var_button := SubStr(A_ThisHotkey, 0, 1)
....rest of your sub...

CoordMode,Mouse,Relative
Loop, 9
  Hotkey, ^+%A_Index%, StoreSub  ; get mouse pos..
Loop, 9
  Hotkey, ^%A_Index%, UseSub     ; move to prestored pos..
Return

StoreSub:
Num := SubStr(A_ThisHotkey, 0, 1)
MouseGetPos, Var_%Num%_X, Var_%Num%_Y
Return

UseSub:
Num := SubStr(A_ThisHotkey, 0, 1)
MouseMove, Var_%Num%_X, Var_%Num%_Y
Return

CoordMode, Mouse, screen
Loop, 9
  Hotkey, ~^+%A_Index%, StoreSub  ; get mouse pos..
Loop, 9
  Hotkey, ~^%A_Index%, UseSub     ; move to prestored pos..
SetTimer, ShowGuisTimer, 10       ; watch for ctrl down..
Return 
;#########################################
StoreSub:
  Num := SubStr(A_ThisHotkey, 0, 1)
  MouseGetPos, Pos_%Num%_X, Pos_%Num%_Y
  PosGui()
Return
;----
UseSub:
  Num := SubStr(A_ThisHotkey, 0, 1)
  MouseMove, Pos_%Num%_X, Pos_%Num%_Y, 0
Return
;----
ShowGuisTimer:
  If GetKeyState("Ctrl", "P")
  {
    Loop, 9
    {
      Gui %A_Index%:+LastFoundExist     ; show guis..
        IfWinExist
          Gui, %A_Index%:Show, NoActivate
    }
  }
  Else
  {
    Loop, 9
    {
      Gui %A_Index%:+LastFoundExist     ; hide...
        IfWinExist
          Gui, %A_Index%:Show, +Hide
    }
  }
Return

;// FUNCTION //
PosGui(){                               ; create position guis..
  Global
  Gui, %Num%:Destroy                    ; destroy if previously created
  Gui, %Num%:+ToolWindow -Caption +AlwaysOnTop
  Gui, %Num%:Margin, 0, 0
  Gui, %Num%:Color , 00FF00
  Gui, %Num%:Font, s10 w700
  Gui, %Num%:Add, Text, w15 h15 +Center, %Num%
  Gui, %Num%:Show, % "+Hide NoActivate x" . Pos_%Num%_X - 5 . " y" . Pos_%Num%_Y - 5
}
#z::reload