Usar El ClipBoard Desde Vbscript

En esta ocasión vengo a mostrarles como usar el clipboard en vbscript, pero para los que no saben que es clipboard se los digo es el porta papeles y para los que no entiendan a un que es, es la acción de copiar y pegar que usamos comúnmente en la computadora.

Pero se preguntaran que aremos pues les enseñare a como leer el contenido de este usando el vbscript

Primeramente declaramos variables

option explicit
dim objclip,CopyText

Después de esto crearemos el objecto "objclip" que es un objecto htmlfile

Set objclip  = CreateObject("htmlfile")

Ahora pasaremos a leer el contenido que se encuentra en el porta papeles

CopyText = objclip.ParentWindow.ClipboardData.GetData("text")

y por ultimo lo imprimimos con el comando msgbox así

MsgBox CopyText

El codigo completo seria este

option explicit

dim objclip,CopyText
Set objclip  = CreateObject("htmlfile")
CopyText = objclip.ParentWindow.ClipboardData.GetData("text")
MsgBox CopyText

Ahora para borrar el contenido del porta papeles aremos otro programa, empezaremos declarando las variables

option explicit
dim objshell

Después creamos un objecto shell

set objshell = CreateObject("wscript.shell")

y por ultimo ejecutamos el símbolo del sistema con las siguientes lineas

objshell.run "cmd /c echo off | clip"

El código completo seria así

option explicit
dim objshell

set objshell = CreateObject("wscript.shell")
objshell.run "cmd /c echo off | clip"

y al ejecutarlo eliminara todo lo que se encuentra en el porta papeles

Pero se preguntaran para agregar algo en el porta papeles desde el programa o sea que sea programado en ves que lo halla hecho el usuario.

Pues seria casi lo mismo que el anterior con la diferencia de que el "echo off" seria "echo loquesea"
quedaría el código así.

option explicit
dim objshell
set objshell = CreateObject("wscript.shell")
objshell.run "cmd /c echo loquesea | clip"

Este código copiaría la palabra "loquesea" al porta papeles y estaría listo para usarse


Bueno amigos eso es todo saludos Flamer y lo expuesto aquí esta intentado en windows 10 y hice uso del cmd por que el método  "ClipboardData.ClearData" y "ClipboardData.SetData" no me funcionaron