ClipBoardImage 2 Desktop
Publié : ven. 12/févr./2021 14:25
ça fait bien longtemps que je me prenais la tête à vfaire des screenshots pour les envoyer sur le forum.
Imprim ecran puis ouvrir un soft de dessin puis recadrer puis ressauver etc...
Du coup j'ai fait ce petit soft qui permet de directement sauver votre image sur le bureau si vous faites un imprim ecran. Le nom de fichier s'incrémente automatiquement.
Vous devrez toujours recadrer la portion que vous voulez envoyer si besoin mais libre à vous de compléter ce code.
Instruction :
- Faire un imprim écran
- Lancer le logiciel
- The End
Imprim ecran puis ouvrir un soft de dessin puis recadrer puis ressauver etc...
Du coup j'ai fait ce petit soft qui permet de directement sauver votre image sur le bureau si vous faites un imprim ecran. Le nom de fichier s'incrémente automatiquement.
Vous devrez toujours recadrer la portion que vous voulez envoyer si besoin mais libre à vous de compléter ce code.
Instruction :
- Faire un imprim écran
- Lancer le logiciel
- The End
Code : Tout sélectionner
; ================================
; ClipboardImage 2 Desktop
; Author : Ar-S
; Compil : PB5.7 x64
; Auto incrementation
; ================================
UseJPEGImageEncoder()
N = 0
ext$ = ".jpg"
Name$ = "PBScreenShot"
File$ = GetUserDirectory( #PB_Directory_Desktop ) + Name$ + ext$
If GetClipboardImage(0) = 0
MessageRequester("Erreur"," Pas d'image dans le presse papier ! ")
End
Else
Repeat
If FileSize(File$) > 0 ; Le fichier existe
N+1
Name$ = "PBScreenShot"+Str(N)+ext$
File$ = GetUserDirectory( #PB_Directory_Desktop ) + Name$
Else
Break
EndIf
ForEver
If SaveImage(0,File$,#PB_ImagePlugin_JPEG,7,24)
MessageRequester("OK","Image sauvée sur le bureau ("+name$+")")
Else
MessageRequester("Erreur"," Aucune image n'a été sauvée ")
EndIf
EndIf
End
.
.