problemas al grabar el scritorio?

[rembolso]

hola . tengo grandes problemas para grabar el scritorio desde mi aplicacion .

no c si habra algun surce q me puedan dar .
mi codigo

Option Explicit


Dim flag As Boolean
Dim lBytes As Long
Dim lFileSize As Long
Dim Foto As New Class1
Dim file As String, FileTotal As Long
Dim Resolucion As Byte


       

Private Sub Form_Load()


   
Timer1.Enabled = True

   
End Sub



Private Sub Timer1_Timer()

Dim Size As Long
    Dim arrData() As Byte
    Text3.Text = App.Path & "\capture.jpg"
Resolucion = "19"
   
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen

Foto.SaveFile App.Path & ("\capture.jpg")

    Open Text3 For Binary Access Read As #1
   
   
    Size = LOF(1)
    ReDim arrData(Size - 1)
   
    'Leemos y almacenamos todo el fichero en el array
    Get #1, , arrData
    'Cerramos
    Close


Open App.Path & "\capture.avi" For Binary As #1

Put #1, , arrData
        Close #1
       
End Sub

EL CLASS1 ES UN CLAS JPG YA LO DEBEN CONOCER ME IMAGINO

[LeandroA]

y cual se supone que es el problema?

[rembolso]

el problema es q no lo grava  y cuando abro el archivo .avi no se reproduce porq el code utilizado es invalido

[LeandroA]

pero vos queres grabar un video de tu escritorio????, a como veo vas muy mal, lo que estas haciendo es guardar una captura en .jpg despues la lees con OPEN y la volves a guardar .AVI, vas muy mal osea estas renombrando el archivo y obio que no se te va a reproducir como un video

como para darte una guia lo primero que deberias hacer es ir guardando todas las capturas en .bmp por ejemplo Captura1.bmp, Captura2.bmp, Captura3.bmp
y despues busca por la web que hay modulos para combertir todas estas capturas en un .avi

mira este link

Saludos

[rembolso]

listo gracias ya solucione el problema