Problema con capturas de pantalla

[newbie007]

tengo un problema con mi codigo que hace capturas de pantalla cada segundo ya que luego no me marca error y a veces si

Código (vb) [Seleccionar] Expandir

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 Form_Load()
Timer1.Interval = 1000
Me.Hide
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = True
keybd_event 44, 0, 0&, 0&
Call SavePicture(Clipboard.GetData(vbCFBitmap), App.Path & "\miarchivo.jpg")

End Sub


Ayuda pliss

[x64core]

que error te marca?
agregale DoEvents... al final del sub del Timer

[newbie007]

Me marca error 521 error en tiempo de ejecusion

No se puede copiar a portapapeles

[x64core]

agregale un

Código [Seleccionar] Expandir

Clibboard.Clear antes de guardar/salvar la imagen...
tambien puede ser porque esta "ocupado" el portapeles digamos que tienes archivos en el portapapeles y da la casualidad que
copiaste esos archivos y los esta pasando, por dar un ejemplo...

[newbie007]

me marca error: 424 se requiere objeto

[seba123neo]

tengo un problema con mi codigo que hace capturas de pantalla cada segundo ya que luego no me marca error y a veces si

Código (vb) [Seleccionar] Expandir

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 Form_Load()
Timer1.Interval = 1000
Me.Hide
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = True
keybd_event 44, 0, 0&, 0&
Call SavePicture(Clipboard.GetData(vbCFBitmap), App.Path & "\miarchivo.jpg")

End Sub


Ayuda pliss

Clipboard.GetData ?? WTF ??? eso es de .NET, creo que estas confundiendo codigo de .NET con visual basic 6...

[BlackZeroX]

Clipboard.GetData ?? WTF ??? eso es de .NET, creo que estas confundiendo codigo de .NET con visual basic 6...

Para nada!¡, claro que es vb6  , y el problema que tiene es que no tubo la desencia de agregar un timer a su proyecto por que de hecho funciona perfectamente el codigo!¡.

Código (Vb) [Seleccionar] Expandir



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 Form_Load()
    keybd_event 44, 0, 0&, 0&
    Call SavePicture(Clipboard.GetData(vbCFBitmap), "c:\miarchivo.bmp")
End Sub



P.D.: Es mejor usar los Device Context...

Dulces Lunas!¡.

[seba123neo]

cierto, ya me habia olvidado lo del clipboard.

[newbie007]

jeje ya lo solucione

le agrege un on error resume next

[BlackZeroX]

...
on error resume next
...

tipico...

Dulces Lunas!¡.