Tema destacado: Sigue las noticias más importantes de elhacker.net en  twitter!
 Autor
|
Tema: Problema con capturas de pantalla (Leído 844 veces)
|
newbie007
 Desconectado
Mensajes: 13
|
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
|
|
|
|
« Última modificación: 22 Octubre 2011, 02:09 por raul338 »
|
En línea
|
|
|
|
RHL
Desconectado
Mensajes: 968
mental
|
que error te marca?
agregale DoEvents... al final del sub del Timer
|
|
|
|
|
En línea
|
|
|
|
newbie007
Desconectado
Mensajes: 13
|
Me marca error 521 error en tiempo de ejecusion
No se puede copiar a portapapeles
|
|
|
|
|
En línea
|
|
|
|
RHL
Desconectado
Mensajes: 968
mental
|
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... |
|
|
|
|
En línea
|
|
|
|
newbie007
Desconectado
Mensajes: 13
|
me marca error: 424 se requiere objeto
|
|
|
|
|
En línea
|
|
|
|
|
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 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...
|
|
|
|
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
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!¡.
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!¡.
|
|
|
|
« Última modificación: 22 Octubre 2011, 09:17 por BlackZeroX (Astaroth) »
|
En línea
|
|
|
|
|
seba123neo
|
cierto, ya me habia olvidado lo del clipboard.
|
|
|
|
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
newbie007
Desconectado
Mensajes: 13
|
jeje ya lo solucione
le agrege un on error resume next
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
...
on error resume next
...
tipico... Dulces Lunas!¡.
|
|
|
|
|
En línea
|
|
|
|
RHL
Desconectado
Mensajes: 968
mental
|
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  por cierto yo escribi mal el "Clipboard"  si solo lo copiaste y lo pegaste |
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
siempre es mejor capturar el error, a veces caundo se usa sockets es necesario ponerlo, pero sino fijate si lo podes solucionar.
|
|
|
|
|
En línea
|
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
|
|
|
|
|
|
 |
