I took a look at this script and I have a little backround with VB so I am working on getting more functionality for this script
Code:
; opens a video compression dialog
SendMessage ,WM_CAP_DLG_VIDEOCOMPRESSION, 0, 0, , ahk_id %capHwnd%
Code:
BeginCapature:
VarSetCapacity(CAP_PARAMS, 96) ;DATA STRUCTURE
SendMessage, WM_CAP_GET_SEQUENCE_SETUP, 92,&CAP_PARAMS,, ahk_id %capHwnd% ;load the structure into CAP_PARAMS
dwRequestMicroSecPerFrame = (1 * (10 ^ 6)) / 30 ; 30 Frames per second
NumPut(dwRequestMicroSecPerFrame, CAP_PARAMS , 0,"Int") ; save into first long in CAP_PARAMS
fMakeUserHitOKToCapture = FALSE
NumPut(fMakeUserHitOKToCapture,CAP_PARAMS, 4,"Int") ; save into second long in CAP_PARAMS
NumPut(0,CAP_PARAMS, 92,"Int") ;BOOL SINC TO AUDEO Y makes sound sinc up with video
SendMessage, WM_CAP_GET_SEQUENCE_SETUP, 92,&CAP_PARAMS,, ahk_id %capHwnd% ;tell it do set up for capture
SendMessage, WM_CAP_SEQUENCE, 0, 0, , ahk_id %capHwnd% ;Start Capturing
RETURN
You'll have to hit esc or click either mouse to stop recording. There is a way around this by seting up a callback. I haven't figure it out yet because i dont know ahk that well and i just started on this last night. 2 hrs of work to translate vb into ahk.
anyway after you stop recording you have to save the data to a file....
Code:
SenToVID:
imagefile = %A_Desktop%\A.AVI
SendMessage, WM_CAP_FILE_SAVEAS , 0, &imagefile, , ahk_id %capHwnd%
return ;Copy video from swap file into a file
i plan to work on this a little more over the next few days
thx for the start!!!!!!!!
