Sign in to follow this  
Followers 0
Guest AX5

Script Save help !

2 posts in this topic

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 >_<

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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 by 99ojo

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0