Just About Finished.. Screenies A Screenshot Program

[Elephant007]

this little script will take a screenshot anytime the main screen changes

i would like some help to have the files save in sequential order instead of relying on a combination of date and time.

e.g. image00001.png, image00002.png etc

Also, any idea how to uses these files to make a mp4 (or other format) after the files are saved?

As always I'm up for any improvements!

Thank you in advance

#include <ScreenCapture.au3>
Local $var = FileSelectFolder ("Select Where To Save", ".\" , 0, @DesktopDir)
   If @error Then
      MsgBox(4096,"", "Save Cancelled")
      Exit
   Else
      DirCreate ( $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR )
      MsgBox(4096,"", "Save Location: " & $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR)
   EndIf
HotKeySet("{Esc}", "Quit" )
Call("StartCapture")

Func StartCapture()

While 1
    $a = WinGetTitle("")
    Do
        $b = WinGetTitle("")
    Until $a <> $b
    Sleep (1000)
    _ScreenCapture_Capture ( $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR & "\" & @HOUR & @MIN & @SEC & ".png" )
WEnd
EndFunc

Func Quit ()
Exit
EndFunc 

[BrewManNH]

For the file name you can use something like this.

$Count = 1
_ScreenCapture_Capture($var & "\" & "image" & StringFormat("%05s", $Count) & ".png")
$Count += 1

[Elephant007]

Thank you for the quick reply, I did as you suggested and now the file doesn't save in the selected directory which real isn't a deal breaker for me

The file creates as expected, except it overwrites itself so I only end up with one file total named image000001.PNG

I tried tweaking on your suggestions with no success

[kylomas]

Elephant007,

This works for me (captures a screen image whenever the active window title changes).  See comments in code...

#include <ScreenCapture.au3>
Local $var = FileSelectFolder ("Select Where To Save", ".\" , 0, @DesktopDir)
   If @error Then
      MsgBox(4096,"", "Save Cancelled")
      Exit
   Else
      DirCreate ( $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR )
      MsgBox(4096,"", "Save Location: " & $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR & '\') ; <---- added dir '\'
   EndIf
HotKeySet("{Esc}", "Quit" )
Call("StartCapture")

Func StartCapture()

    $Count = 1 ; <---- before loop, otherwise it gets reset every time to 1

    While 1
        $a = WinGetTitle("[active]") ; <---- get currently active window
        Do
            $b = WinGetTitle("[active]") ; <---- get currently active window
            sleep(250)
        Until $a <> $b

        _ScreenCapture_Capture($var & "\" & @MON & "-" & @MDAY & "-" & @YEAR & '\' & "image" & StringFormat("%05s", $Count) & ".png") ; <--- fully qualified path
        $Count += 1
        ;_ScreenCapture_Capture ( $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR & "\" & @HOUR & @MIN & @SEC & ".png" )
    WEnd
EndFunc

Func Quit ()
Exit
EndFunc

kylomas

[Elephant007]

Elephant007,

This works for me (captures a screen image whenever the active window title changes).  See comments in code...

#include <ScreenCapture.au3>
Local $var = FileSelectFolder ("Select Where To Save", ".\" , 0, @DesktopDir)
   If @error Then
      MsgBox(4096,"", "Save Cancelled")
      Exit
   Else
      DirCreate ( $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR )
      MsgBox(4096,"", "Save Location: " & $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR & '\') ; <---- added dir '\'
   EndIf
HotKeySet("{Esc}", "Quit" )
Call("StartCapture")

Func StartCapture()

    $Count = 1 ; <---- before loop, otherwise it gets reset every time to 1

    While 1
        $a = WinGetTitle("[active]") ; <---- get currently active window
        Do
            $b = WinGetTitle("[active]") ; <---- get currently active window
            sleep(250)
        Until $a <> $b

        _ScreenCapture_Capture($var & "\" & @MON & "-" & @MDAY & "-" & @YEAR & '\' & "image" & StringFormat("%05s", $Count) & ".png") ; <--- fully qualified path
        $Count += 1
        ;_ScreenCapture_Capture ( $var & "\" & @MON & "-" & @MDAY & "-" & @YEAR & "\" & @HOUR & @MIN & @SEC & ".png" )
    WEnd
EndFunc

Func Quit ()
Exit
EndFunc

kylomas

 

Wow! Thank you so much, I appreciate the comments too. This helps me learn.

I can now figure out the rest on my own... perhaps I will change it up a little bit so the user can name their own folder just in case they want to do more than one recording the same day..

Again I think you both