tengo un problema con mi codigo que hace capturas de pantalla cada segundo ya que luego no me marca error y a veces si
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
que error te marca?
agregale DoEvents... al final del sub del Timer
Me marca error 521 error en tiempo de ejecusion
No se puede copiar a portapapeles
agregale un 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...
me marca error: 424 se requiere objeto
Cita de: newbie007 en 22 Octubre 2011, 01:43 AM
tengo un problema con mi codigo que hace capturas de pantalla cada segundo ya que luego no me marca error y a veces si
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...
Cita de: seba123neo en 22 Octubre 2011, 05:20 AM
Clipboard.GetData ?? WTF ??? eso es de .NET, creo que estas confundiendo codigo de .NET con visual basic 6...
Para nada!¡, claro que es vb6 >:D, 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!¡.
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!¡.
cierto, ya me habia olvidado lo del clipboard.
jeje ya lo solucione
le agrege un on error resume next
Cita de: newbie007 en 23 Octubre 2011, 02:44 AM
...
on error resume next
...
tipico...
Dulces Lunas!¡.
pero con eso no se soluciona el problema :/
con eso solo "parchas" el error y continua el programa lo legible es hace un programa
que no te debe dar ningun error no planeado :P
por cierto yo escribi mal el "Clipboard" :xD
si solo lo copiaste y lo pegaste :xD
siempre es mejor capturar el error, a veces caundo se usa sockets es necesario ponerlo, pero sino fijate si lo podes solucionar.
jeje no no lo pegue e di cuenta de q lo escibiste mal....
;-) :D :D :D :D :D :D :D