[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran !

par **M.Pong** Jeu 23 Jan 2014 - 18:08

Bonjour à tous !

Aujourd'hui je vous présente mon dernier programme qui a pour but de faire des captures d'écrans très rapidement, afin de réaliser une vidéo par la suite grâce à un logiciel de diaporama comme Windows Movie Maker.

Télécharger: http://www.sendspace.com/file/ril2gt

Code Source:

Code:: #Include <GUIConstants.au3>[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] #Include <ScreenCapture.au3>[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] #Include <GUIConstantsEx.au3>[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] #Include <WindowsConstants.au3>[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] HotKeySet("{F9}", Close)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] $Path = @DesktopDir & "/Screenshot"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] If FileExists ("" & $Path) = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Form()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] DirCreate("" & $Path)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Form()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Func Form()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUICreate("Screenshot Quickly - By Dylan Gadacha", 170, 120)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUISetState(@SW_SHOW)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUISetBkColor("0x404040")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUICtrlCreateLabel("Duration:", 10, 12)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUICtrlSetColor(-1, "0xFFFFFF")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Global $Duration = GUICtrlCreateInput("30", 60, 10, 100, 18)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUICtrlCreateLabel("Filename:", 10, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUICtrlSetColor(-1, "0xFFFFFF")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Global $Filename = GUICtrlCreateInput("Captures", 60, 30, 100, 18)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Global $Launch = GUICtrlCreateButton("Launch", 10, 60, 151, 50)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Global $Image = 0[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] While 1[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] $nMsg = GUIGetMsg()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Switch $nMsg[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Case $GUI_EVENT_CLOSE[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Exit[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Case $Launch[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Launch()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] EndSwitch[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] WEnd[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] EndFunc[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Func Launch()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] GUISetState(@SW_HIDE)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Global $Read_Duration = GUICtrlRead($Duration)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] $Read_Duration*=10[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] $Read_Filename = GUICtrlRead($Filename)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] $Path = @DesktopDir & "/Screenshot/" & $Read_Filename[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] If FileExists ("" & $Path) = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] DirRemove("" & $Path, 1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] DirCreate("" & $Path)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Captures()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] EndFunc[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Func Captures()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] While $Image <> $Read_Duration[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] _ScreenCapture_Capture($Path & "\Image_" & $Image & ".jpg")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] $Image+=1[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] WEnd[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Close()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] EndFunc[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] [color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Func Close()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] Exit[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color] EndFunc

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran ! 140123064455663113

L'application va créer un dossier "Screenshot" sur votre bureau.

"Duration" correspond à la durée de la vidéo (en seconde). 30 secondes par défaut.
"Filename" correspond au nom du sous-dossier créé dans le dossier Screenshot. C'est dans ce sous-dossier que seront placés les captures.

Comment créer votre vidéo avec Windows Movie Maker ?:

- Ouvrez Windows Movie Maker.
- Cliquer sur "Ajouter des vidéos et des photos".
- Sélectionnez toutes les images de votre sous-dossier. (Ctrl+A)

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran ! 140123070926514617

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran ! 140123070926514617

- Sélectionnez toutes les images du diaporama. (Ctrl+A)

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran ! 14012307090983628

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran ! 14012307090983628

- Cliquez sur l'onglet "Edition".
- Mettez "Durée" à 0,10 au lieu de 7.

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran ! 140123070902385433

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran ! 140123070902385433

- Dans l'onglet "Accueil", cliquez sur Enregistrer le film.

J'ai testé la fluidité en capturant un passage d'un film, et je suis vraiment content du résultat. (Voir ci-dessous)

Et si vous aussi, comme mon père, pensez que sa ne sert à rien, sachez que ce programme est à la base pour mon usage personnel, afin de filmer mes parties de jeux vidéos, sans passer par un programme déjà fait. Ce n'est que le début, mais je compte bien l'améliorer pour en faire un programme complet pour les autres joueurs, tout ça gratuitement.

De plus, vous bénéficiez de tout les effets visuel de votre logiciel de diaporama !
Vous pouvez également supprimer les images dont vous ne voulez pas, comme pour réduire ou enlever un chargement par exemple.
Une multitude de possibilité s'offrent à vous !

Si vous réaliser une vidéo avec le programme et que vous l'uploader, j'aimerai bien que vous que vous mettiez ceci dans la description, mais je n'y vous oblige pas:

Vidéo réalisée avec Screenshot Quickly, programme de Dylan Gadacha.
www.bbat.forumeiro.com

Enjoy !

Dylan.

par **Omonoto** Sam 25 Jan 2014 - 15:36

Merci du lien^^

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran !

[AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran !

Re: [AutoIt]Screenshot Quickly - Réaliser des vidéos avec des captures d'écran !