i

Lire, écrire, vider le presse-papiers (clipboard)


source : https://www.developpez.net/forums/d1611683-2/autres-langages/general-visual-basic-6-vbscript/vbscript/recuperer-contenu-presse-papiers-passer-object-htmldocument/


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