Estoy buscando un software que tome una foto a través de una cámara web y una captura de pantalla cuando alguien haga clic con el mouse en cualquier parte de la pantalla. El software debe ejecutarse en Windows-7 de 64 bits.
Se utilizará para una computadora de entrada/salida en una planta. Se supone que debe monitorear a los empleados porque todo lo que se supone que deben hacer es marcar la entrada y la salida. Así que necesitaría ver quién está usando la computadora y qué está haciendo, si deciden perderse en Internet o en el sistema.
Hice mi propio programa simple a través de AutoIt, puedes descargarlo aquí .
Cada vez que se haga clic con el botón izquierdo del mouse, se tomará una instantánea de la pantalla y, si hay una cámara en su computadora, se tomará una instantánea usando la cámara.
Las capturas se colocan en C:\Users\{User}\AppData\Roaming\Captures.
Puede detener el programa manteniendo presionada la tecla control y s.
Aquí está el código,
#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_
Usé un script simple llamado "snapz" para obtener las instantáneas de la cámara.
Espero que esto ayude, si tiene alguna pregunta, pregunte :)