martes, 29 de mayo de 2018

Codigo Para Copiar o Capturar Pantalla Con Vbscript

Ahora vengo con algo nuevo algo que creía que no se podía y que mucho creo que pensaban lo mismo, pero de tanto buscar y buscar por fin di con el clavo.

Se trata de copiar o capturar la pantalla de nuestro escritorio utilizando vbscript cosa que creía imposible, para después aguardarla en un archivo de word.

Sin mas que decir les dejare el código y al final el link de mi vídeo donde demuestro el uso de el.


option explicit
dim excel,word,doc   'declaramos las variables

set excel=createobject("excel.application")  ' creamos el objecto excel
set word=createobject("word.application")    'creamos el objecto word

excel.Application.SendKeys ("%{1068}") 'se pulsa la tecla para capturar pantalla y se copea al porta papeles
msgbox "pantalla capturada"  ' mensaje de pantalla capturada

Set doc = word.Documents.Add() ' se crea el documento de word
word.Selection.Paste  ' pega lo que se encuentra en el porta papeles
doc.saveas "C:\Users\Flamer\Desktop\img.doc" ' guarda el documento de word creado
word.quit ' cierra el objecto word

Saludos Flamer y creo que vbscript cada día me sorprende mas

No hay comentarios.:

Publicar un comentario