Capture d'écran (autre)

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Un moyen simple pour faire une capture d'écran en pur Panoramic (sur tout l'écran Windows).
Contrainte: il faut connaître les coordonnées de départ et les dimensions de la capture désirée.
Ça masque le Form 0 le temps de la capture (pour ne pas l'avoir dans le champ), donc très brièvement.

Code:: DIM x,y,w,h,f$
x=0: y=0: w=96: h=96: ' capture de la 1ère icône en haut à gauche
f$ = "Z:\Capture.bmp"
Capture(x,y,w,h,"clip"): ' -> clipboard
PICTURE 1: WIDTH 1,w: HEIGHT 1,w: CLIPBOARD_PASTE 1: ' pour voir la capture
END

SUB Capture(x,y,w,h,f$)
' Capture d'une zone de l'écran total, en x,y, dimensions w x h,
' dans f$ (bmp), ou dans le presse-papier (clipbaord) si f$ = "clip"
BORDER_SMALL 0: HIDE 0: 2D_TARGET_IS 0: WAIT 100
IMAGE 1000: 2D_IMAGE_COPY 1000,x-8,y-26,x+w-8,y+h-26
IF UPPER$(f$) = "CLIP"
CLIPBOARD_COPY 1000
ELSE
FILE_SAVE 1000,f$
END_IF
DELETE 1000: SHOW 0
END_SUB

Exemple (comme ci-dessus): capture de la 1ère icône en haut à gauche de l'écran
capture - Capture d'écran (autre) Icone110

PS Comme je disais plus haut, la fenêtre d'exécution de Panoramic ne figure pas dans la capture, si on voulait l'avoir il suffirait de supprimer le HIDE 0 dans la Sub (ou au choix mettre un paramètre supplémentaire pour la sub: avec ou sans Form 0)

Sujet: Re: Capture d'écran (autre) Lun 1 Sep 2014 - 10:08

voilà qui ferait facilement aussi une macro sympa pour le nouvel editeur aussi en plus de tous les autres usages classiques auxquels on pourrait penser ... voir 2 macro une vers le presse papier et l'autre vers un fichier directement (par exemple pour envoyer sur le forum)

Sujet: Re: Capture d'écran (autre) Lun 1 Sep 2014 - 22:16

Je précise bien que la capture ci-dessus n'est utilisable que depuis un programme, en précisant les coordonnées.

Pour une capture indépendante, sous forme d'un exécutable, il faut faire appel à une ressource externe (ici IrfanView, encore lui), avec au choix capture dans le clipboard ou dans un fichier:

Code:: ' Capture d'écran avec IrfanView, résultat: clipboard ou fichier
LABEL Exec: DIM i%,iv$,fr$
iv$ = "C:\Progra~2\Irfanv~1\i_view32.exe": ' IrfanView (chemin à préciser...)
fr$ = "Z:\Clip.jpg": ' fichier résultat éventuel (chemin à préciser...)
BORDER_SMALL 0: COLOR 0,255,0,0: CAPTION 0," CAPTURE ÉCRAN"
WIDTH 0,150: HEIGHT 0,150: FONT_BOLD 0
BUTTON 1: TOP 1,2: LEFT 1,2: WIDTH 1,130: HEIGHT 1,20: CAPTION 1,"Tout l'écran"
BUTTON 2: TOP 2,TOP(1)+20: LEFT 2,2: WIDTH 2,130: HEIGHT 2,20: CAPTION 2,"Fenêtre active"
BUTTON 3: TOP 3,TOP(2)+20: LEFT 3,2: WIDTH 3,130: HEIGHT 3,20: CAPTION 3,"Idem, zone client"
BUTTON 4: TOP 4,TOP(3)+20: LEFT 4,2: WIDTH 4,130: HEIGHT 4,20: CAPTION 4,"Rectangle sélection"
FOR i% = 1 TO 4: ON_CLICK i%,Exec: NEXT i%
CONTAINER_OPTION 5: TOP 5,TOP(4)+21: LEFT 5,2: WIDTH 5,130: HEIGHT 5,30
COLOR 5,255,255,180
OPTION 6: PARENT 6,5: TOP 6,-1: LEFT 6,4: CAPTION 6,"Clipboard": MARK_ON 6
OPTION 7: PARENT 7,5: TOP 7,TOP(6)+15: LEFT 7,4: CAPTION 7,fr$
END
' ==============================================================================
Exec:
i% = NUMBER_CLICK
SELECT i%
   CASE 1: i% = 0
   CASE 2: i% = 2
   CASE 3: i% = 3
   CASE 4: i% = 4
END_SELECT
IF CHECKED(6) = 1
   EXECUTE iv$+" /capture="+STR$(i%)+" /clipcopy /killmesoftly"
ELSE
   EXECUTE iv$+" /capture="+STR$(i%)+" /convert="+fr$
END_IF
TERMINATE
' ==============================================================================

Choisir d'abord l'option de sauvegarde, puis cliquer le mode choisi.
Pour la capture par sélection, amener sans cliquer la croix du centre en haut à gauche de la sélection, cliquer/relâcher, déplacer la croix en bas à droite, cliquer.

Sujet: Re: Capture d'écran (autre) Mar 2 Sep 2014 - 0:05

Pour ma part, là ou la touche "ImpEcr" ou "Alt/ImpEcr" ne fait pas l'affaire, j'utilise la version gratuite de "My Screen Capture". Voici le lien. En cliquant sur "Home", on a d'ailleurs accès à une vaste liste de logiciels gratuits et intéressants.

Pour la petite histoire, voici la fenêtre About de ce logiciel, capturé avec ce même logiciel:
capture - Capture d'écran (autre) Aa119

Sujet: Re: Capture d'écran (autre) Mar 2 Sep 2014 - 8:58

J'utilise aussi Cropper, très léger et discret, dans la barre des tâches.
Merci pour ton lien, intéressant, à voir de plus près.

Entre autres, un logiciel que j'ai essayé et trouvé amusant (en plus d'être utile, certainement), c'est Free File Camouflage, qui consiste à dissimuler un fichier sous forme codée dans une image. L'image résultante étant identique à voir à l'image d'origine.

» Capture vidéo
» Capture des replay TV
» Capture écran
» Capture d'écran de Windows
» Capture d'une zone de l'écran total