Здравствуйте гуру. Хотел бы написать маленький скриптик но чет не могу. Суть скрипта такая. Создается папка скажем на диске С:\screen\тут дата создания папки\. Дальше мне нужно создать в этой папки файлы пустые .jpg и надо создать их много порядка 60 штук. например у нас есть папка screen\18.03.2013\ тут создаем файлы: нету_1.jpg,нету_2,нету_3...........нету_60. Я уже начал а дальше пока в ступоре
Далее есть у меня еще один скрип которые создает скрины и копирует их на шару
В итоге что у нас получается есть сервак где есть папка расшаренная на этом серваке создается папка с датой и файлами и копируются туда скрины. мне нужно сделать как то так чтоб допустим на серваке у нас создались пустой файл типа нету_1 и второй скрипт сделал скриншот и кунул туда свой файл типа готово_1. Суть такая мне нужно чтоб проивелась замена файла нету_1 поменялось на готово_1 и так далее все 60 файлов. Уф вроде бы все расписал)))
Код:
$s_date = StringFormat('%s.%s.%s.%s', @MDAY, @MON, @YEAR)
DirCreate("C:\\screen\" & $s_date)
Далее есть у меня еще один скрип которые создает скрины и копирует их на шару
Код:
#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
В итоге что у нас получается есть сервак где есть папка расшаренная на этом серваке создается папка с датой и файлами и копируются туда скрины. мне нужно сделать как то так чтоб допустим на серваке у нас создались пустой файл типа нету_1 и второй скрипт сделал скриншот и кунул туда свой файл типа готово_1. Суть такая мне нужно чтоб проивелась замена файла нету_1 поменялось на готово_1 и так далее все 60 файлов. Уф вроде бы все расписал)))