Копирование и удаление скриншота

[Timerlan]

Значит так есть такой скрипт для создание скриншота

#NoTrayIcon
#include <ScreenCapture.au3>

Global $iTimeOut = 60000;таймаут в мсек

HotKeySet('{Esc}', '_Exit')
_MyScreen()
AdlibRegister('_MyScreen', $iTimeOut)

While 1
    Sleep(1000)
WEnd

Func _MyScreen()
    Local $s_Dir = @ScriptDir & '\Screen\', $s_FileName, $f_Cursor = False

    If Not FileExists($s_Dir) Then DirCreate($s_Dir)
    $s_FileName = StringFormat('%s_%s_%s_%s_%s_%s_%s.png', @ComputerName, @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC);имя компьютора
    ;$s_FileName = StringFormat('%s_%s_%s_%s_%s_%s_%s.jpg', StringReplace(@IPAddress1, '.', '_'), @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC);IP-адрес
    _ScreenCapture_Capture($s_Dir & $s_FileName, 0, 0, @DesktopWidth, @DesktopHeight, $f_Cursor)
EndFunc   ;==>_MyScreen

Func _Exit()
    Exit

Нужно сюда добавить чтоб, допустим сделал скриншот скрипт и этот последний скриншот копировал в общую шару и при каждом создание нового скриншота он копировал в шару. А через месяц предположим удалял с локальной машины все сохраненные скриншоты, но не с общей шары. И надо чуток скрипт переделать чтоб он один раз в день выполнялся тока, как сделать?

 

[joiner]

Спойлер

#NoTrayIcon
#include <ScreenCapture.au3>
#include <File.au3>
Global $iTimeOut = 60000;таймаут в мсек

HotKeySet('{Esc}', '_Exit')
;_MyScreen()
;AdlibRegister('_MyScreen', $iTimeOut)
Global $s_Dir = @ScriptDir & '\Screen\'
While 1
	If @HOUR = '12'And @MIN = '00' And @SEC = '00' Then _MyScreen()
	If @MDAY = '20' And @HOUR = '12' And @MIN = '00' And @SEC = '00' Then
	$array = _FileListToArray($s_Dir,'*.png',1)
	For $i = 1 To UBound($array) -1
		FileDelete($array[$i])
	Next
	EndIf
    Sleep(100)
WEnd

Func _MyScreen()
 Local $s_FileName, $f_Cursor = False

    If Not FileExists($s_Dir) Then DirCreate($s_Dir)
    $s_FileName = StringFormat('%s_%s_%s_%s_%s_%s_%s.png', @ComputerName, @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC);имя компьютора
    ;$s_FileName = StringFormat('%s_%s_%s_%s_%s_%s_%s.jpg', StringReplace(@IPAddress1, '.', '_'), @MDAY, @MON, @YEAR, @HOUR, @MIN, @SEC);IP-адрес
    _ScreenCapture_Capture($s_Dir & $s_FileName, 0, 0, @DesktopWidth, @DesktopHeight, $f_Cursor)
	FileCopy($s_Dir & $s_FileName,'шара\'&$s_FileName)
EndFunc   ;==>_MyScreen

Func _Exit()
    Exit
EndFunc

думаю так. делать скрин будет если время на компе 12 часов
и удалять файлы если день двадцатый.

 

[Timerlan]

А как сделать чтоб он от определенной учетки в шару заходил, где и как указать логин и пароль. Просто чет он не хочет перекидыватся в шару

 

[joiner]

http://autoit-script.ru/index.php?topic=12307.0
http://autoit-script.ru/index.php?topic=2335.0
http://autoit-script.ru/index.php/topic,9142.msg61348.html#msg61348
вообще то должен кидать без вопросов
это уже несколько вопросов.
вопрос - тема