Capturar pantalla

Simula la pulsación de la tecla ImprPant y Alt-ImprPant, capturando la pantalla entera o la ventana activa, guardándola en el portapapeles.

Para el proyecto debes crear 2 botones, “Command1” y “Command2”.

Private Declare Sub Keybd_Event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
            ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
    'Captura la ventana activa
    Keybd_Event 44, 0, 0&, 0&
End Sub

Private Sub Command2_Click()
    'Captura toda la pantalla
    Keybd_Event 44, 1, 0&, 0&
End Sub
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s