#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Icône.ico
#AutoIt3Wrapper_Outfile=C:\Users\Rémy\Programmation\AutoIt\Impr écran\CaptureAU3x86.exe
#AutoIt3Wrapper_Outfile_x64=C:\Users\Rémy\Programmation\AutoIt\Impr écran\CaptureAU3x64.exe
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;~ Enregistre automatiquement les captures d'écran

#include <ScreenCapture.au3>
#include <Constants.au3>
#include <WinAPI.au3>

Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 1)

$trayName = TrayCreateItem("CaptureAU3 par Niverton")
TrayItemSetState($trayName, $TRAY_DISABLE)
$traySep1 = TrayCreateItem("")
$trayDeskID = TrayCreateItem("Capture vers Bureau\Capture")
$trayDropID = TrayCreateItem("Capture vers Dropbox")
$traySep2 = TrayCreateItem("")
$trayExit = TrayCreateItem("Quitter")

If not FileExists(@DesktopDir & "\Capture") Then
	DirCreate(@DesktopDir & "\Capture")
EndIf

while 1
	local $msg = TrayGetMsg()
	Select
		Case $msg = 0
			ContinueLoop
		Case $msg = $trayDeskID
			TrayItemSetState($trayDeskID, $TRAY_UNCHECKED)
			saveToDesk()
		Case $msg = $trayDropID
			TrayItemSetState($trayDropID, $TRAY_UNCHECKED)
			saveToDrop()
		Case $msg = $trayExit
			ExitLoop
	EndSelect
WEnd

Func saveToDesk()
	local $pos = MouseGetPos()
	MouseMove(1340, @DesktopHeight, 0)
	sleep(500)
	_ScreenCapture_Capture(@DesktopDir & "\Capture" & getName(@DesktopDir & "\Capture"))
	MouseMove($pos[0], $pos[1], 0)
EndFunc

Func saveToDrop()
	local $pos = MouseGetPos()
	MouseMove(1340, @DesktopHeight, 0)
	sleep(500)
	_ScreenCapture_Capture(@UserProfileDir & "\Dropbox\Public" & getName(@UserProfileDir & "\Dropbox\public"))
	MouseMove($pos[0], $pos[1], 0)
EndFunc

Func getName($path)
	local $id = 0
	local $name =  "\Capture" & $id & ".bmp"
	While FileExists($path & $name)
		$id = $id + 1
		local $name = "\Capture" & $id & ".bmp"
	WEnd
	Return $name
EndFunc