Cita de: renga73 en 18 Marzo 2006, 11:22 AM
Ya hice andar para poder capturar una imagen. Ahora nesecitaria q en vez de una me capture unas 30 imagenes en forma secuencial. Osea como hacer un video pero en imagenes y q esto sea automatico obvio
aprovechando lo código de goobye lo puedes hacer de la seguinte forma :
adicionas 3 variables :
- Indice As Integer
- Indice2 As Integer
- Full as Boolean
en seguida modificas el código en "Private Sub Timer1_Timer" :
SendMessage hWndCap, GET_FRAME, 0, 0
SendMessage hWndCap, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
If Full = False Then
Call SavePicture(Clipboard.GetData, "Directorio\Nombre Imagen" & Indice2 + Indice & ".jpg") ' el directorio y el nombre de la imagen que quieres ir a poner
DoEvents
End If
Clipboard.Clear
'esto código sirve para la imagen guardada no tener siempre lo mismo nombre Ex: img0.jpg...img1.jpg...img2.jpg....img40.jpg...
If Indice < 32500 Then
Indice = Indice + 1
ElseIf Indice = 32500 And Indice2 < 32500 Then
Indice2 = Indice2 + 1
ElseIf Indice = 32500 And Indice2 = 32500 Then
Full = True
End If