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

Voir le sujet précédent Voir le sujet suivant Aller en bas

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

Message par M.Pong le 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








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)







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







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







- 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.
avatar
M.Pong
Petit créateur
Petit créateur

Messages : 44
Pourcentage d'avancement : 5%

Voir le profil de l'utilisateur http://www.bbat.forumeiro.com

Revenir en haut Aller en bas

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

Message par Omonoto le Sam 25 Jan 2014 - 15:36

Merci du lien^^


______________________________________________________
Tu veux voire ma galerie graphique? Clique ici!
avatar
Omonoto
Rédacteur
Rédacteur

Messages : 936
Pourcentage d'avancement : 10%

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum