Voici un petit utilitaire a utiliser en ligne de commande dans un fichier batch par exemple.
Il permet de récupérer/effacer le contenu du clipboard
Code : Tout sélectionner
;
;************************************************************************
;Titre : myclip.pb
;Auteur : (C) 2019 CAGE
;Date : 2019/03/28
;Version PB : PureBasic 5.70 LTS (Windows - x86)
;Version PB : PureBasic 5.70 LTS (Windows - x64)
;Compiler Options
;Compiler Options : Executable format: Console
;Compile/Run : Create temporary executable in the source directory
;
;Libairies: aucunes
;
;************************************************************************
;
EnableExplicit
OnErrorGoto(?ErrorHandler)
Global count, message$, myparam$, texte$
texte$ = ""+#CRLF$
texte$ + " Syntaxe: myclip <clear|get|help>"+#CRLF$
texte$ + #CRLF$
texte$ + " myclip clear"+#CRLF$
texte$ + " Efface le presse papier."+#CRLF$
texte$ + #CRLF$
texte$ + " myclip get"+#CRLF$
texte$ + " Récupère le contenu texte du presse papier et l'affiche."+#CRLF$
texte$ + #CRLF$
texte$ + " myclip get > fichier.txt"+#CRLF$
texte$ + " Récupére le contenu texte du presse papier et l'enregiste dans le fichier <fichier.txt>"+#CRLF$
texte$ + #CRLF$
texte$ + " myclip help"+#CRLF$
texte$ + " Affiche ce message."+#CRLF$
texte$ + #CRLF$
texte$ + " Exemple:"+#CRLF$
texte$ + #CRLF$
texte$ + " ipconfig /all | clip"+#CRLF$
texte$ + " myclip get > myclip.txt"+#CRLF$
Procedure Help()
If OpenConsole()
Print(texte$)
CloseConsole()
EndIf
End #False
EndProcedure
count = CountProgramParameters()
If count=0 Or count>1
Help()
End #False
EndIf
If count
myparam$ = ProgramParameter(0) : Debug myparam$
Select LCase(myparam$)
Case "/help", "/?"
Help()
End #False
Case "clear"
ClearClipboard()
End #True
Case "get"
texte$ = GetClipboardText()
If texte$ <> #Null$
If OpenConsole()
Print(texte$)
End #True
EndIf
EndIf
Default
Help()
End #False
EndSelect
EndIf
ErrorHandler:
End