[Ex] Autoit surveillance

[Kevzi]

Avec votre aide (et je vous en remercie ) j'ai procédé comme ceci :

Code : Tout sélectionner

Func capture() ;fonction capture
    Local $hBmp
    $e = "_"
    $m = "-"
    $input = InputBox("time", "capturer tout les : (60000 = 1MIN)") ; Va servir à parametrer le temps
    Do
        $rand = Random(1, 1000, 1) ; génère un nombre au hasard entre 1 et 1000 (le 1 après le 1000 veut dire qu'on veut un nombre entier)
        $hBmp = _ScreenCapture_Capture("") ;prend une capture de l'ecran
        _ScreenCapture_SaveImage($dir & @YEAR & $e& @MON & $e& @MDAY & $e& @HOUR &$m& @MIN &$m& @SEC &$m& @MSEC & ".bmp", $hBmp); la capture de l'ecran est enregistré dans le dossier

        Sleep(100)
    Until $hBmp = Sleep($input) ; refaire la captures avec le temps donné par $input

EndFunc   ;==>capture

[TommyDDR]

Tempi pour l'incrémentation, mais changez le code comme cela (Pensez aussi à tester si $input est bien un nombre) :

► Afficher le textecode

Code : Tout sélectionner

Func capture() ;fonction capture
    Local $hBmp
    Local $e = "_"
    Local $m = "-"
    Local $NomFichier
    Local $input = InputBox("time", "capturer tout les : (60000 = 1MIN)") ; Va servir à parametrer le temps
    If(Not(@error)) Then
        While(True)
            $NomFichier = $dir & @YEAR & $e & @MON & $e & @MDAY & $e & @HOUR & $m & @MIN & $m & @SEC & $m & @MSEC & ".bmp"
            $hBmp = _ScreenCapture_Capture($NomFichier) ;prend une capture de l'ecran
            Sleep($input)
        Wend
    EndIf
EndFunc   ;==>capture

[mikell]

L'incrémentation c'est mieux !

Code : Tout sélectionner

$input = InputBox("time", "capturer tout les : (60000 = 1MIN)")
$var = 0
AdlibRegister("capture", $input)

Func capture() 
    Local $hBmp
    $hBmp = _ScreenCapture_Capture ("") 
    _ScreenCapture_SaveImage ($var&"surveillance.bmp", $hBmp)
    $var += 1 
EndFunc 
 

ça permet d'aller au plus simple
Et AdlibRegister pour pouvoir faire tourner d'autres fonctions en même temps (pour la webcam par ex.) parce qu'un Sleep() va paralyser le script

[Kevzi]

Efffectivement , l'incrémentation semble plus efficace , je vais plutôt prendre ce qu'a fait mikell et faire la même chose pour les autres fonctions. Merci tout le monde. c'est un des rares forum à s’entre-aidé autant

[Kevzi]

le problème c'est que si j'utilise la fonction capture et webcam , la webcam ne marche pas.

[Iste]

Personnellement je préfère l'incrémentation, imaginons qu'une impression écran mette moins d'une ms ! et OP, on écrase.

Si j'amais cela arrive, notre probleme ne sera plus la perte d'une image
Car une "video" a 1000fps va vite remplir le disque, autant donc limiter les doublons...

Une autre solution que j'utilise souvent est de séparer les images des information de capture par hashcode.
En gros, se retrouver avec deux dossier, un contenant toute les image sans dupliquer trier par hash, et un autre contenant des txt (heure, hashcode)

[FernandG]

l'incrémentation semble plus efficace

Pensez à l'après .. Qu'en est-il si je relance le programme ? Peut-on considérer comme une faille le fait de redémarrer l'ordinateur ? Encore une fois, une capture en dessous de la seconde s'avère superflu (temps, traitement, ressouces, ...).

Edit : Dans le cadre de ce projet ...

[Kevzi]

ah c'est malin ! maintenant j'hésite tout compte fait , j'ai fais sa :

Code : Tout sélectionner

$input2 = InputBox("time", "capturer tous les : (60000 = 1MIN)") ; Va servir à parametrer le temps
            AdlibRegister("photo", $input2)

Func capture()
    Local $e = "_"
    Local $m = ":"
    Local $NomFichier
    Local $hBmp
    If (Not (@error)) Then
        While (True)
            $NomFichier = $dir & @YEAR & $e & @MON & $e & @MDAY & $e & @HOUR & $m & @MIN & $m & @SEC & $m & @MSEC & ".bmp"
            $hBmp = _ScreenCapture_Capture($NomFichier) ;prend une capture de l'ecran
            Sleep($input2)
        WEnd
    EndIf
EndFunc   ;==>capture


 

[mikell]

Avec AdlibRegister (voir l'aide) la fonction sera automatiquement lancée tous les $input2, donc faut virer le While, le Sleep etc
et franchement l'intérêt des millisecondes ça se discute

Code : Tout sélectionner

$input2 = InputBox("time", "capturer tous les : (60000 = 1MIN)") ; Va servir à parametrer le temps
AdlibRegister("capture", $input2)

Func capture()
    Local $e = "_"
    Local $m = ":"
    Local $NomFichier = $dir & @YEAR & $e & @MON & $e & @MDAY & $e & @HOUR & $m & @MIN & $m & @SEC & ".bmp"
    _ScreenCapture_Capture($NomFichier) ;prend une capture de l'ecran
EndFunc   ;==>capture

[Kevzi]

J'ai mis exactement la même chose que vous , mais sa ne marche pas.

EDIT : ca ne marchait pas parce que un fichier ne peut pas contenir ":"

[guitarist]

Je test ton programme en ce moment et j'arrive à un probleme : quand on lance le mod webcam par exemple on ne peut n'y l’arrêter ni lancer la surveillance écran en meme temps. Embêtant non?

[Kevzi]

t'es obliger de commencer par la capture d’écran et ensuite par la capture de webcam , ça marchera. Ensuite c'est vrai que je dois faire une fonction pour arrêter la webcam ou la capture d’écran , j'y travaille

[Kevzi]

Grosse misa à jour du script. il est plus facile d'utilisation et le code est plus "agréable" (moins lourd)

[BlueCore]

Hey ! Mon image !



Tu pourrais demander avant de l'utiliser, et peut être me mettre dans les crédits ^^

[Kevzi]

Ah, excuse moi BlueCore. Si tu veux, j'enlève l'image. Sinon si tu veux être dans les crédits, y'a pas de problème.