Visual Basic - Capturar Escritorio

Life is soft - evento anual de software empresarial
   
Vista:

Capturar Escritorio

Publicado por Chris imperio_videogamer@hotmail.com (2 intervenciones) el 26/05/2011 15:18:46
Buenos dias

No sabiendo mucho de programacion pido su ayuda.

El fin de mi programa es capturar la pantalla y se guarde automaticamente cada que la tecla ENTER sea precionada

En este codigo se captura al precionar el command button 1 me gustaria agregar o sustituir por la tecla ENTER
Mencionando que este programa se oculta

El codigo que tengo es:

Option Explicit


' \\ -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar


' \\ -- Declaraciones
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

' -- Clases para convertir el Bmp a Jpg
Private mImage As cImage
Private mJPG As cJpeg

' -- Capturar la pantalla y convertirla a JPG
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Capturar_Guardar()

On Error GoTo error_handler

Dim lRet As Long
Dim lWidth As Long
Dim lHeight As Long

Me.MousePointer = vbHourglass
Static iCount As Integer
iCount = iCount + 1

With Screen
lWidth = .Width / .TwipsPerPixelX
lHeight = .Height / .TwipsPerPixelY
End With

lRet = mImage.CopyHDC(GetDC(0), lWidth, lHeight)
lRet = mJPG.SampleHDC(mImage.hDC, lWidth, lHeight)
lRet = mJPG.SaveFile(App.Path & "\image_" & CStr(iCount) & ".jpg")

Me.MousePointer = vbDefault

Exit Sub
error_handler:
Me.MousePointer = 0
End Sub

Private Sub Combo1_Click()
mJPG.Quality = CLng(Combo1.Text)
End Sub

Private Sub Command1_Click()
Call Capturar_Guardar
End Sub

Private Sub Command2_Click()
App.TaskVisible = False

Me.Visible = False
End Sub

' --------------------------------------------------------------------------
' \\ -- inicio
' --------------------------------------------------------------------------
Private Sub Form_Load()
' -- Inicializar variables
Set mImage = New cImage
Set mJPG = New cJpeg
Command1.Caption = " Capturar pantalla "

Combo1.ListIndex = Combo1.ListCount - 1

End Sub
' --------------------------------------------------------------------------
' \\ -- Fin
' --------------------------------------------------------------------------

Private Sub Form_Unload(Cancel As Integer)
Set mImage = Nothing
Set mJPG = Nothing
End Sub


LES AGRADESCO SU AYUDA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Capturar Escritorio

Publicado por Chris imperio_videogamer@hotmail.com (2 intervenciones) el 26/05/2011 20:24:44
BUENO SOLUCIONE EL PROBLEMA SOLO , PERO SE ME VINO OTRO QUE SOLO ME IMPRIME LA PANTALLA SI TENGO SELECCIONADA LA VENTANA , COMO HACER PARA QUE EN SEGUNDO PLANO (OCULTO EL PROGRAMA) ME SIGA CAPTURANDO LA PANTALLA AL PRECIONAR ENTER
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar