i |
Lire, écrire, vider le presse-papiers (clipboard) |
clear clipboard avec wscriptshell et cmd.exe
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo off " &" | clip", 0, TRUE
écrire dans le clipboard toujours avec l'object script shell et cmd.exe
Dim string
String = "quelque chose dans le clipboard"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c echo " & String & " | clip", 0, TRUE
ajouter dans le clipboard
Dim ClipBoard, Result
Set Clipboard = New ClipBoardClass
ClipBoard.Clear ' supprime le contenu préalable du presse-papiers
ClipBoard.SaveData = "Bonjour tout le monde!"
Result = ClipBoard.GetData
msgbox Result
ClipBoard.SaveData = ""
Result = Result & vbNewLine & "Texte ajouté au clipboard"
ClipBoard.SaveData = Result
MsgBox ClipBoard.GetData
lecture du clipboard avec l'object ("htmlfile") et son parentwindow
Dim string
set clipo=createobject("htmlfile")
string=clipo.ParentWindow.ClipboardData.GetData("Text")
msgbox string