[Solved] Tri-Screen Printscreen Software

[IanN1990]

I am looking to replace some software on my computer, with a Autoit script instead.

The software takes a picture of the screen 1920x1080, depending on which screen the mouse is one and then saves it to a location. The code below does all that, but i need a way to "read" what is in the folder, for setting the next $i so not to over-write anything. I welcome any ideas

#include <ScreenCapture.au3>
_ScreenCapture_SetBMPFormat(4)
$i = $i + 1
$pos = MouseGetPos()
If $pos[0] < 0 Then
_ScreenCapture_Capture("D:\Pictures\00¦ Miscellaneous\" & $i & ".bmp", -1920, 0, 0, 1080)
ElseIf $pos[0] > 1920 Then
_ScreenCapture_Capture("D:\Pictures\00¦ Miscellaneous\" & $i & ".bmp", 1920, 0, 3840, 1080)
Else
_ScreenCapture_Capture("D:\Pictures\00¦ Miscellaneous\" & $i & ".bmp", 0, 0, 1920, 1080)
EndIf

I am having trouble capturing perfect 1920x1080 Res of each screen, they end up as 1921x1081. When setting the left screen, using -1 causes as problem as that uses the default of the screen rather then the value -1

I thought about storing the information in a .txt file "ie the $i number" so even if the script is restarted the number can be found but tbh i am not very fond of that idea.

I would much perfer something that scans the folder, finds the highest number.bmp, adds one and then saves.

For $i = 1 To 1000 step 1
  if FileExists("D:\Pictures\00¦ Miscellaneous\" & $i & ".bmp") Then
  Else
  ExitLoop
  EndIf
Next

Seams to work quite well, though i am looking into a way to find for it to "check" 10 files ahead. As i some-times delete fines, but i dont want new screenshots being placed into the "low" numbers, as i dont want the chain broken

1 2 3 4 5, I delete 2

1 (no 2, checks 10 ahead but sees 3), checks 4, checks 5, "checks 10 ahead, sees nothing saves new image as 6"

local $extra
local $i


    For $i = 1 To 1000 step 1
  if FileExists("D:\Pictures\00¦ Miscellaneous\" & $i & ".bmp") Then
  $extra = 0
  Elseif $extra < 10 Then
  $extra = $extra + 1
Else
  $i = $i - 10
  ExitLoop
  EndIf
Next

Hmm it seams this topic is now solved XD Putting my thoughts onto paper for some reason really helped me find the answer. If anyone sees this and can think of a better or more effective way then i would be happy to read

Edited April 14, 2012 by IanN1990

[IanN1990]

_ScreenCapture_Capture("D:Pictures00¦ Miscellaneous" & $i & ".bmp", 0, 0, 1919, 1079) Takes a perfect 1920x1080 of the main screen

_ScreenCapture_Capture("D:Pictures00¦ Miscellaneous" & $i & ".bmp", 1920, 0, 3839, 1079) Takes a perfect 1920x1080 of the right screen

_ScreenCapture_Capture("D:Pictures00¦ Miscellaneous" & $i & ".bmp", -1920, 0, 0, 1079) Takes a 1921x1080 of the left-screen,

_ScreenCapture_Capture("D:Pictures00¦ Miscellaneous" & $i & ".bmp", -1920, 0, -1, 1079) Takes a 3841x1080 image as in the helpfile "X coordinate of the lower right corner of the rectangle. If this is -1, the current screen width will be used."

So how can i make the script use the value of -1 rather then reverting to the current screen width?

[guinness]

What about _FileListToArray & then use _PathSplit to determine the number OR a SRE.