Connexion
Qui est en ligne ?
Il y a en tout 5 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 5 Invités Aucun
Le record du nombre d'utilisateurs en ligne est de 36 le Lun 23 Sep 2024, 10:15
Sujets les plus vus
Derniers sujets
Flux 
[EXE] CAPTURE D'ECRAN EN LIGNE DE COMMANDE
2 participants
Page 1 sur 1
[EXE] CAPTURE D'ECRAN EN LIGNE DE COMMANDE
par Sachadee Sam 22 Juin 2013, 17:49
Une commande externe pour faire une capture d'écran depuis la ligne de commande (plein écran).
Utilisation : Capture [nom_de_fichier.jpg (bmp,png)]
Exemple :
LIEN : https://docs.google.com/file/d/0B9yh04HYXto1aVNycEI4LUtnQ1U/edit?usp=sharing
Enjoy !
Utilisation : Capture [nom_de_fichier.jpg (bmp,png)]
Exemple :
- Code:
capture test.jpg
LIEN : https://docs.google.com/file/d/0B9yh04HYXto1aVNycEI4LUtnQ1U/edit?usp=sharing
Enjoy !
Sachadee- Admin
- Mensagens : 591
Data de inscrição : 04/06/2013 -
Application en VBS avec la Commande Extrene :"Capture.exe"
par Hackoo Dim 23 Juin 2013, 01:50
Salut SACHA 
Je l'ai testé en Vbscript aussi et ça marche , ce que j'ai ajouté dans ce VBS est la temporisation pour la capture d'écran càd laisser un peu du temps à utilisateur de choisir ou il veut capturer
et avec lancement automatique du fichier 
Je l'ai testé en Vbscript aussi et ça marche , ce que j'ai ajouté dans ce VBS est la temporisation pour la capture d'écran càd laisser un peu du temps à utilisateur de choisir ou il veut capturer
et avec lancement automatique du fichier - Code:
Set Ws = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Titre = "Capture d'écran"
Dossier = Day(Now) & "_" & Month(Now) & "_" & Year(Now)
Fichier = Hour(Now) & "_" & Minute(Now)& "_" & Second(Now)
strHDLocation = "c:\temp\"& Dossier &"\"& Fichier
If Not fso.FolderExists("c:\temp\"&Dossier) Then
com = "cmd /c md c:\temp\"&Dossier
Resultat1 = Ws.Run(Com,0,True)
end if
NbSecs = InputBox("Choisissez le nombre de secondes avant la capture d'écran ! par défaut est de 10 secondes",Titre,"10")
Pause NbSecs
command = "cmd /c capture.exe "& strHDLocation &".gif"
msgbox command
Resultat = Ws.Run(Command,0,True)
Command2 = "Cmd /c start "& strHDLocation &".gif"
Ouvrir = Ws.Run(Command2,0,False)
Function Pause(NbSecs)
wscript.sleep 1000*NbSecs
End Function
Function Dblquote(str)
Dblquote = chr(34) & str & chr(34)
End Function
Hackoo- EQUIPE BBAT
- Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie
Re: [EXE] CAPTURE D'ECRAN EN LIGNE DE COMMANDE
par Sachadee Dim 23 Juin 2013, 23:01
Merci du partage Hackoo !
Sachadee- Admin
- Mensagens : 591
Data de inscrição : 04/06/2013 -
Sujets similaires» [EXE] DOWNLOAD AVEC BARRE DE PROGRESSION EN LIGNE DE COMMANDE
» Photoshop en ligne
» [BATCH] LIGNE DE DIFFERENTE COULEUR
» [devellopez] Formater une date en ligne Dos
» [bat] Compter le NB de ligne d'un fichier texte
» Photoshop en ligne
» [BATCH] LIGNE DE DIFFERENTE COULEUR
» [devellopez] Formater une date en ligne Dos
» [bat] Compter le NB de ligne d'un fichier texte
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» [devellopez] Formater une date en ligne Dos
» Un super Tuto Batch de IniTScreen
» Un code MATRIX sympa
» [BAT/EXE] DresolChange changer la sesolution de l´écran
» [EXE/bat] DpScript Código Delphi interpreter
» Externo SaveDlg com 2 kb
» présentation
» [developpez.com] Transcodage fichier vidéo si fichier déposé