Ayuda capturar una foto y guardarla al disco desde una webcam

[depr05]

Hola, mi problema es el siguente necesito tomar una foto con mi webcam y guardarla al disco duro, pero no consigo ningun ejemplo agradeceria a la persona que me pueda indicar en donde puedo encontrar esa información, de antemano gracias....

[GeoAvila]

yo tengo un ejemplo de captura de imagenes de una webcam, talvez le podes sacar raja..
nos vemos..

[vbx3m]

Encontre este codigo pruebalo para ver...

Const WM_CAP_EDIT_COPY As Long = WM_CAP + 30
Dim hHwnd As Long ' Handle to preview window

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub guardar_Click()
Dim bm As Image

SendMessage hHwnd, WM_CAP_EDIT_COPY, 0, 0
Picture1.Picture = Clipboard.GetData

CommonDialog1.CancelError = True
CommonDialog1.FileName = "Webcam1"
CommonDialog1.Filter = "Bitmap |*.bmp|JPEG |*.jpeg"

CommonDialog1.ShowSave

SavePicture Picture1.Image, CommonDialog1.FileName
End Sub

Me avisas que tal...

[depr05]

Gracias por el código lo probe péro no funciono, de todas formas gracias cual quier cosa que necesites me avisas...

Saludos...