Imprimir Página - Duda acerca de pantalla capturada

Título: Duda acerca de pantalla capturada
Publicado por: Krnl64 en 23 Abril 2006, 16:30 pm

Hola a todos.

Veran tengo el siguiente code que captura toda la pantalla.

Código:


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()
  keybd_event 44, 0, 0&, 0&
End Sub

Mi problema es que no se como puedo transferir la imagen a 1 control PictureBox o Imagebox despues de capturarla.
No me deja guardarla en una variable

Alguien me puede echar 1 mano ?

Gracias

Título: Re: Duda acerca de pantalla capturada
Publicado por: kontaminator en 24 Abril 2006, 01:49 am

Bueno es sencillo:

pon esto en un command despues de agragar un image

On Error Resume Next

Clipboard.Clear '/* Borra lo que haya en el portapapeles
keybd_event 44, 0, 0, 0 '//Llama a los eventos copiar pegar
keybd_event 44, 0, KEYEVENTF_KEYUP, 0 'para que el archivo de captura se
Do While Clipboard.GetData = False 'quede en el portapapeles
DoEvents
Loop
Image1.Picture = Clipboard.GetData 'la imagen de captura1 sera lo que haya en el
Clipboard.Clear 'portapales, luego borra todo lo que haya ahi
SavePicture Image1.Picture, "c:\tempfile.bmp" 'se guarda el archivo de captura1
Do While Len(Dir("c:\tempfile.bmp")) = 0 'a c:...bmp y asi puede ser enviado
DoEvents
Loop 'y aqui se hace el loop */

si quedó muy amontonado y no entiendes entra a http://es.geocities.com/kontaminator_clan y baja el código fuente de infosys

Título: Re: Duda acerca de pantalla capturada
Publicado por: Krnl64 en 24 Abril 2006, 03:13 am

No sabia manejar el portapapeles de windows.

Ahora me hago una idea de como manejarlo

Gracias Kontaminator !!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Krnl64 en 23 Abril 2006, 16:30 pm