Captura de pantalla
Publicado por Jorge (13 intervenciones) el 01/09/2015 00:21:00
Hola a todos.
Encontré el siguiente código que me permite capturar una imagen de la pantalla:
Tengo la siguiente duda, ojalá puedan ayudarme:
¿Cómo puedo guardar automáticamente, por código, dichas imágenes sin necesidad de "pegarlas", por ejemplo, en Paint? Yo las voy a ir nombrando y las direccionaré, sólo necesito evitarme el tener que abrir el Paint y estar contestando el diálogo de "Save". Quiero que las imágenes se guarden automáticamente al ser capturadas con el formato BMP.
Gracias desde ya.
Encontré el siguiente código que me permite capturar una imagen de la pantalla:
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
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
Tengo la siguiente duda, ojalá puedan ayudarme:
¿Cómo puedo guardar automáticamente, por código, dichas imágenes sin necesidad de "pegarlas", por ejemplo, en Paint? Yo las voy a ir nombrando y las direccionaré, sólo necesito evitarme el tener que abrir el Paint y estar contestando el diálogo de "Save". Quiero que las imágenes se guarden automáticamente al ser capturadas con el formato BMP.
Gracias desde ya.
Valora esta pregunta
0