Code: Select all
GoSub>WriteKeyDownEventControlScript
OnEvent>File_Exists,%Temp_Dir%Capturefile~.tmp,0,VK112
SRT>VK112
DeleteFile>%Temp_Dir%Capturefile~.tmp
WriteLn>%Temp_Dir%Kill_VK112_Event~.tmp,wres,1
DeleteFile>%scp_file%
MDL>Alt + F11 was pressed%CRLF%Cleaning up and leaving.
Exit>0
END>VK112
Label>Loop
Wait>5
Goto>Loop
SRT>WriteKeyDownEventControlScript
Let>scp_File=%temp_dir%temp_VK112_scp_file.scp
WriteLn>%scp_file%,wres,OnEvent>Key_down,VK122,3,Capture
WriteLn>%scp_file%,wres,Let>CaptureFlag=0
WriteLn>%scp_file%,wres,SRT>Capture
WriteLn>%scp_file%,wres, If>CaptureFlag=0
WriteLn>%scp_file%,wres, WriteLn>%Temp_Dir%Capturefile~.tmp,wres,1
WriteLn>%scp_file%,wres, Message>Thank you for the key press... Please Wait.
WriteLn>%scp_file%,wres, EndIf
WriteLn>%scp_file%,wres, Let>CaptureFlag=1
WriteLn>%scp_file%,wres,END>Capture
WriteLn>%scp_file%,wres,Label>Loop
WriteLn>%scp_file%,wres, If>CaptureFlag>0
WriteLn>%scp_file%,wres, Add>CaptureFlag,1
WriteLn>%scp_file%,wres, If>CaptureFlag>10
WriteLn>%scp_file%,wres, Let>CaptureFlag=0
WriteLn>%scp_file%,wres, EndIf
WriteLn>%scp_file%,wres, EndIf
WriteLn>%scp_file%,wres, IfFileExists>%Temp_Dir%Kill_VK112_Event~.tmp
WriteLn>%scp_file%,wres, DeleteFile>%Temp_Dir%Kill_VK112_Event~.tmp
WriteLn>%scp_file%,wres, Exit>0
WriteLn>%scp_file%,wres, EndIf
WriteLn>%scp_file%,wres,Goto>Loop
ExecuteFile>%scp_file%
END>WriteKeyDownEventControlScript