Я ищу программное обеспечение, которое будет делать фотографии через веб-камеру и делать снимки экрана, когда кто-то щелкает мышью в любом месте экрана. Программное обеспечение должно работать на Windows-7 64bit.
Он будет использоваться для компьютера учета рабочего времени на заводе. Предполагается, что он следит за сотрудниками, потому что все, что они должны делать, это приход и уход. Так что мне нужно было бы видеть, кто использует компьютер и что они делают, если они решат отклониться в Интернет или в систему.
Свою простенькую программу я сделал через AutoIt, скачать можно здесь .
При каждом нажатии левой кнопки мыши будет сделан снимок экрана, и если на вашем компьютере есть камера, будет сделан снимок с помощью камеры.
Захваты размещаются в C:\Users\{User}\AppData\Roaming\Captures
Вы можете остановить программу, удерживая клавишу управления и s.
Вот код,
#NoTrayIcon
#include <ScreenCapture.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
DirCreate(@AppDataDir & "/Captures/")
$directory = @AppDataDir & "\Captures\"
Local $hDLL = DllOpen("user32.dll")
While 1
If _IsPressed("01", $hDLL) Then
Example()
EndIf
If _IsPressed("11") And _IsPressed("53") Then
ExitLoop
EndIf
WEnd
Func Example()
$time = @YEAR & "-" & @MON & "-" & @MDAY & "-" & @HOUR & "-" & @MIN & "-" & @SEC & "-" & @MSEC
_ScreenCapture_Capture($directory & "Capture_" & $time & "_Window.jpg")
Run("snapz.exe" & ' dir /b', $directory, @SW_HIDE)
_FileRename_($directory & "snapz.dib", $directory & "Capture_" & $time & "_CameraSnapShot.dib")
EndFunc ;==>Example
Func _FileRename_($s_Source, $s_Destination, $i_Flag = 0)
Local $i
$i = FileMove($s_Source, $s_Destination, $i_Flag)
Return $i
EndFunc ;==>_FileRename_
Я использовал простой скрипт под названием «snapz» , чтобы получить снимки камеры.
Надеюсь, это поможет, если у вас есть какие-либо вопросы, задавайте :)