scrennshots durchnummeriren

  • also ich weiß das man so

    [autoit]


    #include <ScreenCapture.au3>

    [/autoit][autoit][/autoit][autoit]

    _Main()

    [/autoit][autoit][/autoit][autoit]

    Func _Main()
    Local $hBmp

    [/autoit][autoit][/autoit][autoit]

    ; Capture full screen
    $hBmp = _ScreenCapture_Capture ("")

    [/autoit][autoit][/autoit][autoit]

    ; Save bitmap to file
    _ScreenCapture_SaveImage (@MyDocumentsDir & "\a-1.jpg", $hBmp)

    [/autoit][autoit][/autoit][autoit]

    EndFunc ;==>_Main

    [/autoit]


    Screens machen kann aber wie kann nich machen das er die immer unter einen anderen namen speichert??
    alos a-1;a-2 usw?????

  • z.B. So:

    [autoit]

    $x = 0
    Do
    $x += 1
    $file = @MyDocumentsDir & "\a-"&$x&".jpg"
    Until Not Fileexists($file)
    ;Noe use $file as FileName :)

    [/autoit]
  • [autoit]

    #include <ScreenCapture.au3>

    [/autoit][autoit][/autoit][autoit]

    _Main()

    [/autoit][autoit][/autoit][autoit]

    Func _Main()
    Local $hBmp

    [/autoit][autoit][/autoit][autoit]

    ; Capture full screen
    $hBmp = _ScreenCapture_Capture ("")

    [/autoit][autoit][/autoit][autoit]

    $x = 0
    Do
    $x += 1
    $file = @MyDocumentsDir & "\a-"&$x&".jpg"
    Until Not Fileexists($file)

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    EndFunc ;==>_Main

    [/autoit]


    so oder wie??

  • Natürlich noch den Screenshot machen:
    _ScreenCapture_SaveImage ($file, $hBmp)
    Das war ja nur Code, um den nächsten freien Dateinamen zu bekommen :) Man kann die letzte Nummer auch in einer INI zwischenspeichern oder in der Registry. Das wäre dann bei vielen Screenshots sinnvoll.

  • [autoit]

    #include <ScreenCapture.au3>

    [/autoit][autoit][/autoit][autoit]

    _Main()

    [/autoit][autoit][/autoit][autoit]

    Func _Main()
    Local $hBmp

    [/autoit][autoit][/autoit][autoit]

    ; Capture full screen
    $hBmp = _ScreenCapture_Capture ("")

    [/autoit][autoit][/autoit][autoit]

    $x = 0
    Do
    $x += 1
    $file = @MyDocumentsDir & "\a-"&$x&".jpg"
    Until Not Fileexists($file)

    [/autoit][autoit][/autoit][autoit]

    _ScreenCapture_SaveImage ($file, $hBmp)

    [/autoit][autoit][/autoit][autoit]

    EndFunc ;==>_Main

    [/autoit]


    so?
    regestry warum wäre das den sinvoll weil es sollen schon ein paar mehr werden

  • Ja, so.

    So macht er jedes Mal von 0 bis letze Nummer FileExists ...
    Also, wenn du 100 Screenshots hast, macht er das 100 Mal :) bei 500 ...
    Wenn die Letzte Nummer zwischengespeichert wird, fängt er z.B. schon bei 300 an.Neuer Name mit zwischenspeichern:

    Spoiler anzeigen
    [autoit]

    $x = IniRead("SSSettings.ini","SETTINGS","LastNr",0)
    Do
    $x += 1
    $file = @MyDocumentsDir & "\a-"&$x&".jpg"
    Until Not Fileexists($file)
    IniWrite("SSSettings.ini","SETTINGS","LastNr",$x)

    [/autoit]