Script Save help !

[Guest AX5]

Hi im having a problem i made a simpel Desktop Printscreener and im having a problem hove do i make so it saves man time but whit diferent names on the saved images ?

If MsgBox(4,"Auto PrintScreen V. 1.7","Run Auto PrintScreen V. 1.7 yes or no") = 7 Then Exit

sleep("10000")
Send("{PRINTSCREEN}") ; Run's Make's a PRINTSCREEN

sleep("5000")
Run("C:\WINDOWS\system32\mspaint.exe") ; Run's Paint

sleep("2000")
Send("{CTRLDOWN}") ;Holds the CTRL key down
Send("{v down}") ;Holds the A key down
Send("{CTRLUP}") ;Releases CTRL A key
Send("{v up}") ;Releases the A key

Sleep("1000")
Send("{CTRLDOWN}") ;Holds the CTRL key down
Send("{s down}") ;Holds the A key down
Send("{CTRLUP}") ;Releases CTRL A key
Send("{s up}") ;Releases the A key

Sleep("1000")
Send("PRINTSCREEN 01.jpg")

Send("{ENTER}")

thanks >_<

[99ojo]

Hi im having a problem i made a simpel Desktop Printscreener and im having a problem hove do i make so it saves man time but whit diferent names on the saved images ?

If MsgBox(4,"Auto PrintScreen V. 1.7","Run Auto PrintScreen V. 1.7 yes or no") = 7 Then Exit

sleep("10000")
Send("{PRINTSCREEN}") ; Run's Make's a PRINTSCREEN

sleep("5000")
Run("C:\WINDOWS\system32\mspaint.exe") ; Run's Paint

sleep("2000")
Send("{CTRLDOWN}") ;Holds the CTRL key down
Send("{v down}") ;Holds the A key down
Send("{CTRLUP}") ;Releases CTRL A key
Send("{v up}") ;Releases the A key

Sleep("1000")
Send("{CTRLDOWN}") ;Holds the CTRL key down
Send("{s down}") ;Holds the A key down
Send("{CTRLUP}") ;Releases CTRL A key
Send("{s up}") ;Releases the A key

Sleep("1000")
Send("PRINTSCREEN 01.jpg")

Send("{ENTER}")

thanks >_<

Hi,

hopefully i got you, because your description .....

Try this:

Instead of Send("PRINTSCREEN 01.jpg")

Send(_Filename ("PRINTSCREEN", 1))

Func _Filename ($filename, $i)
    $path = "Path for saving" ; e.g: "c:\bitmaps"
    If FileExists ($path & "\" & $filename & " 0" & $i & ".jpg")
        $i += 1
        _Filename ($filenname, $i)
    Else
        Return $path & "\" & $filename & " 0" & $i & ".jpg"
    EndIf
EndFunc

;-))

Stefan

Edited July 30, 2009 by 99ojo