Automatically running ActivePresenter 4.0.1 to record screencasts (record desktop activities) at 5 fps with no control panel/hotkeys

activepresenterStart.au3

Local $id = InputBox("Participant ID", "Enter userid (e.g. P123)")

If $id <> "" Then

Run("C:\Program Files (x86)\ATOMI\ActivePresenter\ActivePresenter.exe")

WinWaitActive("ActivePresenter")
Send("^n")

Send($id)
Send("{ENTER}")

Local $win = WinWaitActive("Capture New Project")


;disable recording box
ControlClick($win,"","Static8")
;A window pops up, we have to move the mouse to click it
Local $coord = MouseGetPos()
MouseMove($coord[0] + 10, $coord[1] + 75, 0)
MouseClick("")

;disable system audio
ControlClick($win,"","Button9")

;set to 5 fps
ControlClick($win,"","Static8")
;A window pops up, we have to move the mouse to click it
Local $coord = MouseGetPos()
MouseMove($coord[0] + 10, $coord[1] + 10, 80)
MouseClick("")

$win = WinWaitActive("Capture Profile Editor")
;Click FRM/Audio
ControlClick($win, "", "wxWindowNR5", "", 1, 111, 11)
Sleep(100)
;Tab to the frames per second, Erase and type 5  Why tab?  Because clicking wasn't working.
;Titus recommended this because he is awesome
Send("{Tab}{Tab}{DEL}{DEL}{DEL}5")
;Click Hotkeys
ControlClick($win, "", "wxWindowNR5", "", 1, 305, 11)
Sleep(100)
;Uncheck Use Hotkeys
ControlClick($win, "", "Button38")

;click save
ControlClick($win,"","Button40")

$win = WinWaitActive("Capture New Project")
ControlClick($win,"","Button11")


Else
	MsgBox(0,"error", "PID can't be blank")

EndIf

ap5fps.exe