#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