[Ex] Autoit surveillance

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#21

Message par Kevzi »

Avec votre aide (et je vous en remercie :D ) 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
Avatar du membre
TommyDDR
Modérateur
Modérateur
Messages : 2086
Enregistré le : mar. 22 juil. 2008 21:55
Localisation : Nantes
Status : Hors ligne

Re: [Ex] Autoit surveillance

#22

Message par TommyDDR »

Tempi pour l'incrémentation, mais changez le code comme cela (Pensez aussi à tester si $input est bien un nombre) :
► Afficher le textecode
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [Ex] Autoit surveillance

#23

Message par 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
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#24

Message par 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 :D
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#25

Message par Kevzi »

le problème c'est que si j'utilise la fonction capture et webcam , la webcam ne marche pas.
Avatar du membre
Iste
Niveau 11
Niveau 11
Messages : 1870
Enregistré le : jeu. 04 déc. 2008 14:21
Localisation : 76
Status : Hors ligne

Re: [Ex] Autoit surveillance

#26

Message par Iste »

TommyDDR a écrit :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 :roll:
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)
Signez ici
Avatar du membre
FernandG
Membre émérite
Membre émérite
Messages : 194
Enregistré le : mar. 15 avr. 2008 21:50
Localisation : Picardie
Status : Hors ligne

Re: [Ex] Autoit surveillance

#27

Message par FernandG »

Kevzi a écrit :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
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#28

Message par Kevzi »

ah c'est malin ! maintenant j'hésite :lol: 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


 
Avatar du membre
mikell
Spammer !
Spammer !
Messages : 6292
Enregistré le : dim. 29 mai 2011 17:32
Localisation : Deep Cévennes
Status : Hors ligne

Re: [Ex] Autoit surveillance

#29

Message par 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
" L'échec est le fondement de la réussite. " (Lao-Tseu )
" Plus ça rate, plus on a de chances que ça marche " (les Shadoks )
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#30

Message par 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 ":" :lol:
guitarist
Niveau 6
Niveau 6
Messages : 235
Enregistré le : mar. 02 déc. 2008 16:59
Status : Hors ligne

Re: [Ex] Autoit surveillance

#31

Message par 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
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#32

Message par 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
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#33

Message par Kevzi »

Grosse misa à jour du script. il est plus facile d'utilisation et le code est plus "agréable" (moins lourd)
Avatar du membre
BlueCore
Niveau 4
Niveau 4
Messages : 73
Enregistré le : sam. 04 sept. 2010 09:55
Status : Hors ligne

Re: [Ex] Autoit surveillance

#34

Message par BlueCore »

Hey ! Mon image !

Image

Tu pourrais demander avant de l'utiliser, et peut être me mettre dans les crédits ^^
Kevzi
Niveau 4
Niveau 4
Messages : 78
Enregistré le : dim. 17 juil. 2011 12:36
Status : Hors ligne

Re: [Ex] Autoit surveillance

#35

Message par 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.
Répondre