Что нового

Сделать скриншот экрана

Timerlan

Новичок
Сообщения
93
Репутация
0
Версия AutoIt:3.3.8.1
Описание:Здравствуйте уважаемые гуру. Хотелось бы написать скриптик не могли бы помочь. Нужен скрипт который бы делал полный скриншот экрана сохранял его и чтоб в имени файла писалось IP адрес ПК или имя компа (но можно 2 варианта предложить), дату и время когда сделан был скриншот(например 10.2.0.1 11.03.2013 12:30). и чтоб этот скрипт выполнялся каждый час. просто чтоб я этот скрипт запустил и забыл про него. Спасибо.
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
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
EndFunc   ;==>_Exit
 
Автор
T

Timerlan

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