/ahk_scripts/DoOver.ahk

;DoOver.ahk

; Record and playback keyboard and mouse actions.

; Press Ctrl-F12 to start and stop recording.

; Press Ctrl-F5 to playback.

;Skrommel @2005    www.donationcoders.com/skrommel





#NoTrayIcon

#SingleInstance,Force

SetBatchLines,-1

AutoTrim,Off

CoordMode,Mouse,Relative



applicationname=DoOver



modifiers=LCTRL,RCTRL,LALT,RALT,LSHIFT,RSHIFT,LWIN,RWIN,LButton,RButton,MButton,XButton1,XButton2

recording=0

playing=0

Gosub,READINI

Gosub,TRAYMENU

SetTimer,CURRENTWIN,500

Return





CURRENTWIN:

WinGet,currentid,ID,A

WinGetClass,class,ahk_id %currentid%

If currentid=

  currentid=%oldcurrentid%

If class=Shell_TrayWnd

  currentid=%oldcurrentid%

If currentid=AutoHotkey

  currentid=%oldcurrentid%

oldcurrentid=%currentid%

Return





MACROREC:

If recording=0

{

  GetKeyState,state,LShift,P

  If state=d

  Loop

  {

    GetKeyState,state,LShift,P

    If state=U

      Break

  }

  GetKeyState,state,LCtrl,P

  If state=d

  Loop

  {

    GetKeyState,state,LCtrl,P

    If state=U

      Break

  }

  GetKeyState,state,LAlt,P

  If state=d

  Loop

  {

    GetKeyState,state,LAlt,P

    If state=U

      Break

  }

  GetKeyState,state,LWin,P

  If state=d

  Loop

  {

    GetKeyState,state,LWin,P

    If state=U

      Break

  }

  recording=1

  ToolTip,Recording... 

  Gosub,RECORD

  ToolTip,Recording finished

  IniWrite,%keys%,DoOver.ini,Settings,macro

  Loop

  {

    GetKeyState,state,LCtrl,P

    If state=U

      Break

  }

  Sleep,1000

  ToolTip,

  recording=0

}

Else

  recording=0



Return





MACROPLAY:

If playing=0

{

  GetKeyState,state,LShift,P

  If state=d

  Loop

  {

    GetKeyState,state,LShift,P

    If state=U

      Break

  }

  GetKeyState,state,LCtrl,P

  If state=d

  Loop

  {

    GetKeyState,state,LCtrl,P

    If state=U

      Break

  }

  GetKeyState,state,LAlt,P

  If state=d

  Loop

  {

    GetKeyState,state,LAlt,P

    If state=U

      Break

  }

  GetKeyState,state,LWin,P

  If state=d

  Loop

  {

    GetKeyState,state,LWin,P

    If state=U

      Break

  }

  playing=1

  ToolTip,Playback...

  IniRead,macro,DoOver.ini,Settings,macro

  If movemouseafter=1

  {

    CoordMode,Mouse,Screen

    MouseGetPos,origx,origy

    CoordMode,Mouse,Relative

  }

  Gosub,PLAYBACK

  If movemouseafter=1

  {

    CoordMode,Mouse,Screen

    MouseMove,%origx%,%origy%,0

    CoordMode,Mouse,Relative

  }

  ToolTip,

  playing=0

}

Return





PLAYBACK:

id=

Loop

{

  GetKeyState,state,Esc,P

  If state=d

    Break

  StringGetPos,pos1,macro,{MouseClick

  StringGetPos,pos2,macro,{Window

  If pos1=-1

  If pos2=-1

  {

    Send,%macro%

    Break

  }

  If pos2>-1

  If pos2<%pos1%

    Goto,WINDOW



  MOUSE:

  StringGetPos,pos1,macro,{MouseClick

  If pos1=-1

    Goto,WINDOW

  StringGetPos,pos2,macro,},,%pos1%

  StringLeft,playback,macro,%pos1%

  StringTrimLeft,macro,macro,%pos1%

  pos2-=%pos1%

  StringLeft,mouse,macro,%pos2%

  pos2+=1

  StringTrimLeft,macro,macro,%pos2%

  Send,%playback%

  StringSplit,mouse_,mouse,`,

  MouseClick,%mouse_2%,%mouse_3%,%mouse_4%,%mouse_5%,%mouse_6%,%mouse_7%

  Continue



  WINDOW:

  StringGetPos,pos1,macro,{Window

  If pos1=-1

    Continue

  StringGetPos,pos2,macro,},,%pos1%

  StringLeft,playback,macro,%pos1%

  StringTrimLeft,macro,macro,%pos1%

  pos2-=%pos1%

  StringLeft,title,macro,%pos2%

  pos2+=1

  StringTrimLeft,macro,macro,%pos2%

  Send,%playback%

  StringSplit,title_,title,`,

  WinWait,%title_2%,,2

  WinActivate,%title_2%

  WinWaitActive,%title_2%,,2

;  WinWaitNotActive,ahk_id %id%,,2

;  WinGet,id,ID,A

}

Return





RECORD:

SetTimer,MODIFIERS,50

oldid=

keys=

Loop

{

  Input,key,M B C V I L1 T1,{BackSpace}{Space}{WheelDown}{WheelUp}{F1}{F2}{F3}{F4}{F5}{F6}{F7}{F8}{F9}{F10}{F11}{F12}{F13}{F14}{F15}{F16}{F17}{F18}{F19}{F20}{F21}{F22}{F23}{F24}{ENTER}{ESCAPE}{TAB}{DELETE}{INSERT}{UP}{DOWN}{LEFT}{RIGHT}{HOME}{END}{PGUP}{PGDN}{CapsLock}{ScrollLock}{NumLock}{APPSKEY}{SLEEP}{Numpad0}{Numpad0}{Numpad1}{Numpad2}{Numpad3}{Numpad4}{Numpad5}{Numpad6}{Numpad7}{Numpad8}{Numpad9}{NumpadDot}{NumpadEnter}{NumpadMult}{NumpadDiv}{NumpadAdd}{NumpadSub}{NumpadDel}{NumpadIns}{NumpadClear}{NumpadUp}{NumpadDown}{NumpadLeft}{NumpadRight}{NumpadHome}{NumpadEnd}{NumpadPgUp}{NumpadPgDn}{BROWSER_BACK}{BROWSER_FORWARD}{BROWSER_REFRESH}{BROWSER_STOP}{BROWSER_SEARCH}{BROWSER_FAVORITES}{BROWSER_HOME}{VOLUME_MUTE}{VOLUME_DOWN}{VOLUME_UP}{MEDIA_NEXT}{MEDIA_PREV}{MEDIA_STOP}{MEDIA_PLAY_PAUSE}{LAUNCH_MAIL}{LAUNCH_MEDIA}{LAUNCH_APP1}{LAUNCH_APP2}{PRINTSCREEN}{CTRLBREAK}{PAUSE}

  endkey=%ErrorLevel%

  WinGet,id,ID,A

  If id<>%oldid%

  {

    WinGetTitle,title,ahk_id %id%

    If title<>

    If title<>Program Manager

      keys=%keys%{Window,%title%}

    oldid=%id%

  }

  IfInString,endkey,EndKey:

  {

    StringTrimLeft,key,endkey,7

    key={%key%}

  }

  keys=%keys%%key%

  StringReplace,endrecord,record,},%A_Space%Down}

  IfInString,keys,%endrecord%

  {

    StringLen,length,endrecord

    StringTrimRight,keys,keys,%length%

    recording=0

  }

  If recording=0

  {

    SetTimer,MODIFIERS,Off

    Break

  }

}

Return





MODIFIERS:

Loop,Parse,modifiers,`,

{

  GetKeyState,state,%A_LoopField%,P

  If (state="d" And state%A_Index%="")

  {

    state%A_Index%=d

    IfInString,A_LoopField,Button

    {

      StringReplace,button,A_LoopField,Button,

      WinGet,id,ID,A

      If id<>%oldid%

      {

        WinGetTitle,title,ahk_id %id%

        If title<>

          keys=%keys%{Window,%title%}

        oldid=%id%

      }

      WinGet,idd,ID,A

      MouseGetPos,xd,yd

      CoordMode,Mouse,Screen

      MouseGetPos,sdx,sdy

      CoordMode,Mouse,Relative

      keys=%keys%{MouseClick,%button%,%xd%,%yd%,1,0,D}

    }

    Else

      keys=%keys%{%A_LoopField% Down}

  }

  GetKeyState,state,%A_LoopField%,P

  If (state="u" And state%A_Index%="d") 

  {

    IfInString,A_LoopField,Button

    {

      StringReplace,button,A_LoopField,Button,

      WinGet,idu,ID,A

      MouseGetPos,xu,yu

      CoordMode,Mouse,Screen

      MouseGetPos,sux,suy

      CoordMode,Mouse,Relative

      If(idd<>idu)

      {

        xd:=xd+sux-sdx

        yd:=yd+suy-sdy

        keys=%keys%{MouseClick,%button%,%xd%,%yd%,1,0,U}

      }

      Else

        keys=%keys%{MouseClick,%button%,%xu%,%yu%,1,0,U}

    }

    Else

      keys=%keys%{%A_LoopField% Up}

    state%A_Index%=

  }

}

If keys={LShift Up}

  keys=

If keys={LCtrl Up}

  keys=

If keys={LAlt Up}

  keys=

If keys={LWin Up}

  keys=

StringRight,tooltip,keys,100

ToolTip,%tooltip%

Return





TRAYMENU:

Menu,Tray,NoStandard 

Menu,Tray,DeleteAll 

Menu,Tray,Add,DoOver,TRAYPLAYBACK

Menu,Tray,Add,

Menu,Tray,Add,&Playback,TRAYPLAYBACK

Menu,Tray,Add,&Record,TRAYRECORD

Menu,Tray,Add,

Menu,Tray,Add,&Settings...,SETTINGS

Menu,Tray,Add,R&eload settings,RELOAD

Menu,Tray,Add,

Menu,Tray,Add,&About...,ABOUT

Menu,Tray,Add,E&xit,EXIT

Menu,Tray,Default,DoOVer

Return





TRAYPLAYBACK:

WinActivate,ahk_id %currentid%

WinWaitActive,ahk_id %currentid%,,2

Gosub,MACROPLAY

Return





TRAYRECORD:

WinActivate,ahk_id %currentid%

WinWaitActive,ahk_id %currentid%,,2

Gosub,MACROREC

Return





SETTINGS:

Gosub,READINI

Run,DoOver.ini

Return





RELOAD:

Reload





READINI:

IfNotExist,DoOver.ini

{

ini=;DoOver.ini

ini=%ini%`n;[Settings]

ini=%ini%`n;record={LCtrl}{F12}   `;hotkey to start and stop recording  {LShift}{LCtrl}{LAlt}{LWin}{F1}...123...ABC...

ini=%ini%`n;playback={LCtrl}{F5}  `;hotkey to start playback

ini=%ini%`n;keydelay=10           `;ms to wait after sending a keypress

ini=%ini%`n;windelay=100          `;ms to wait after activating a window

ini=%ini%`n;movemouseafter=1      `;move the mouse to original pos after playback  1=yes 0=no

ini=%ini%`n

ini=%ini%`n[Settings]

ini=%ini%`nrecord={LCtrl}{F12}

ini=%ini%`nplayback={LCtrl}{F5}

ini=%ini%`nkeydelay=10

ini=%ini%`nwindelay=100

ini=%ini%`nmovemouseafter=1

ini=%ini%`nmacro=

FileAppend,%ini%,DoOver.ini

ini=

}

IniRead,record,DoOver.ini,Settings,record

hkrecord=%record%

StringReplace,hkrecord,hkrecord,{LCtrl},^

StringReplace,hkrecord,hkrecord,{RCtrl},^

StringReplace,hkrecord,hkrecord,{LShift},+

StringReplace,hkrecord,hkrecord,{RShift},+

StringReplace,hkrecord,hkrecord,{LAlt},!

StringReplace,hkrecord,hkrecord,{RAlt},!

StringReplace,hkrecord,hkrecord,{LWin},#

StringReplace,hkrecord,hkrecord,{RWin},#

StringReplace,hkrecord,hkrecord,{,

StringReplace,hkrecord,hkrecord,},

Hotkey,%hkrecord%,MACROREC

IniRead,playback,DoOver.ini,Settings,playback

hkplayback=%playback%

StringReplace,hkplayback,hkplayback,{LCtrl},^

StringReplace,hkplayback,hkplayback,{RCtrl},^

StringReplace,hkplayback,hkplayback,{LShift},+

StringReplace,hkplayback,hkplayback,{RShift},+

StringReplace,hkplayback,hkplayback,{LAlt},!

StringReplace,hkplayback,hkplayback,{RAlt},!

StringReplace,hkplayback,hkplayback,{LWin},#

StringReplace,hkplayback,hkplayback,{RWin},#

StringReplace,hkplayback,hkplayback,{,

StringReplace,hkplayback,hkplayback,},

IniRead,keydelay,DoOver.ini,Settings,keydelay

IniRead,windelay,DoOver.ini,Settings,windelay

Hotkey,%hkplayback%,MACROPLAY

SetKeyDelay,%keydelay%

SetWinDelay,%windelay%

IniRead,movemouseafter,DoOver.ini,Settings,movemouseafter

Return





ABOUT:

Gui,99:Destroy

Gui,99:Margin,20,20

Gui,99:Add,Picture,xm Icon1,%applicationname%.exe

Gui,99:Font,Bold

Gui,99:Add,Text,x+10 yp+10,%applicationname% v1.0

Gui,99:Font

Gui,99:Add,Text,y+10,Record and playback keyboard and mouse actions.

Gui,99:Add,Text,y+10,- Press %record% to start and stop recording.

Gui,99:Add,Text,y+10,- Press %playback% to playback.

Gui,99:Add,Text,y+10,- To edit the last macro or change hotkeys or other settings

Gui,99:Add,Text,y+5 ,like playback speed, choose Settings in the tray menu.

Gui,99:Add,Text,y+10,- Remember to save the settings and restart using Reload.



Gui,99:Add,Picture,xm y+20 Icon5,%applicationname%.exe

Gui,99:Font,Bold

Gui,99:Add,Text,x+10 yp+10,1 Hour Software by Skrommel

Gui,99:Font

Gui,99:Add,Text,y+10,For more tools, information and donations, please visit 

Gui,99:Font,CBlue Underline

Gui,99:Add,Text,y+5 G1HOURSOFTWARE,www.1HourSoftware.com

Gui,99:Font



Gui,99:Add,Picture,xm y+20 Icon7,%applicationname%.exe

Gui,99:Font,Bold

Gui,99:Add,Text,x+10 yp+10,DonationCoder

Gui,99:Font

Gui,99:Add,Text,y+10,Please support the contributors at

Gui,99:Font,CBlue Underline

Gui,99:Add,Text,y+5 GDONATIONCODER,www.DonationCoder.com

Gui,99:Font



Gui,99:Add,Picture,xm y+20 Icon6,%applicationname%.exe

Gui,99:Font,Bold

Gui,99:Add,Text,x+10 yp+10,AutoHotkey

Gui,99:Font

Gui,99:Add,Text,y+10,This tool was made using the powerful

Gui,99:Font,CBlue Underline

Gui,99:Add,Text,y+5 GAUTOHOTKEY,www.AutoHotkey.com

Gui,99:Font



Gui,99:Show,,%applicationname% About

hCurs:=DllCall("LoadCursor","UInt",NULL,"Int",32649,"UInt") ;IDC_HAND

OnMessage(0x200,"WM_MOUSEMOVE") 

Return



1HOURSOFTWARE:

  Run,http://www.1hoursoftware.com,,UseErrorLevel

Return



DONATIONCODER:

  Run,http://www.donationcoder.com,,UseErrorLevel

Return



AUTOHOTKEY:

  Run,http://www.autohotkey.com,,UseErrorLevel

Return



99GuiClose:

  Gui,99:Destroy

  OnMessage(0x200,"")

  DllCall("DestroyCursor","Uint",hCur)

Return



WM_MOUSEMOVE(wParam,lParam)

{

  Global hCurs

  MouseGetPos,,,,ctrl

  If ctrl in Static12,Static16,Static20

    DllCall("SetCursor","UInt",hCurs)

  Return

}

Return





EXIT:

ExitApp