hola . tengo grandes problemas para grabar el scritorio desde mi aplicacion .
no c si habra algun surce q me puedan dar .
mi codigo
CitarOption 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
y cual se supone que es el problema?
el problema es q no lo grava y cuando abro el archivo .avi no se reproduce porq el code utilizado es invalido
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 (http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/capturador-de-pantalla-en-avi.htm)
Saludos
listo gracias ya solucione el problema