VB crea un programa de cámara de fotografía y vídeo

El código anterior es el que he usado. Win7 también debería admitirlo. Puedes probarlo

Función de declaración privada SendMessage Lib "USER32" Alias ​​​​"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long). , ByVal wParam siempre, lParam como cualquiera) mientras

Función de declaración privada capCreateCaptureWindow mientras, lParam como cualquier ByVal wParam mientras, lParam como cualquiera) mientras

Función de declaración privada capCreateCaptureWindow Lib "avicap32 .dll" Alias ​​​​" capCreateCaptureWindowA" (ByVal lpszWindowName como cadena, ByVal dwStyle mientras, ByVal X mientras, ByVal Y mientras, ByVal nWidth mientras, ByVal nHeight mientras, ByVal hwndParent mientras, ByVal nID Mientras) Mientras

Const privada GET_FRAME Mientras = 1084

Const privada COPY Mientras = 1054

Const privada CONNECT Mientras = 1034

PrivateConst DISCONNECT siempre = 1035

Private CapHwnd siempre

Private Sub Command1_Click() 'Botón de captura de pantalla

En caso de error, reanudar siguiente

SendMessage CapHwnd, GET_FRAME, 0, 0

SendMessage CapHwnd, COPY, 0, 0

Image2.Picture = Clipboard.GetData

Portapapeles .Clear

End Sub

Private Sub Form_Load()

'Abre la cámara

CapHwnd = capCreateCaptureWindow ("WebcamCapture", 0 , 0, 320, 240, Me.hwnd, 0)

DoEvents

SendMessage CapHwnd, CONNECT, 0, 0

Timer1.Enabled = True

End Sub

Sub privado Form_Unload(Cancelar como entero)

'Detener la cámara

DoEvents: SendMessage Cap

Hwnd, DISCONNECT, 0, 0

Timer1.Enabled = False

End Sub

Sub Timer1_Timer() privado 'timer1.Interval=50

En caso de error, reanudar siguiente

SendMessage CapHwnd, GET_ FRAME, 0, 0

SendMessage CapHwnd, COPY, 0, 0

Imagen1.Imagen = Portapapeles .p>'Private Sub Timer2_Timer()

'Static z

'z = z 1

'SavePicture Image1.Picture, "c:\1\ amp"; z amp; ".BMP" ' Guarda la imagen en un archivo.

'Fin del subtítulo'