Ariadne's Thread [Encuentra tu pendrive robado :D]

[BlackZeroX]

.

Código (Vb) [Seleccionar] Expandir


Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const WM_USER = &H400
Private Const WM_CAP_START = WM_USER
Private Const WM_CAP_FILE_SAVEDIB = WM_CAP_START + 25
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_DLG_VIDEOSOURCE = WM_CAP_START + 42
...
Dim hWndCap as long
Dim RutaTMP as string
   RutaTMP=StrConv("c:\foto.bmp",vbFromUnicode)
   hWndCap = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 160, 120, Me.hwnd, 0)
   if hWndCap <> 0 then
       SendMessage hWndCap, WM_CAP_DRIVER_CONNECT, 0, 0
       SendMessage hWndCap, GET_FRAME, 0, 0
       SendMessage hWndCap, DISCONNECT, 0, 0
       SendMessage hWndCap, WM_CAP_FILE_SAVEDIB, 0, byval StrPtr(RutaTMP)
       DestroyWindow hWndCap
       ' // Aqui se mandaria la foto...
   end if



Temibles Lunas!¡.
.

[Elemental Code]

Blackzero, te puedo hacer un monumento???


a pesar de que tu codigo no funciono logre entender y adaptar el de leandro gracias a la version simplificada tuya ^^

Gracias

PD: necesito un form si o si no? :S

[BlackZeroX]

@Elemental Code

No tengo WebCam asi que no puedo probar el susodicho codigo, por otro lado no creo uqe nesesites una form, me.hwnd puedes pasarle un byval &H0 o crear una ventana con el API Createwindows... aun asi no creo que nesesites el hWnd de una ventana...

P.D.: inclusive probe con emuladores de Webcam y no me funciono ni el de LeandroA... intentare adaptar mi celular...

Dulces Lunas!¡.

[Elemental Code]

!!!!

Funciona con &H0 desde modulo

si queres despues te mando como adapte lo de leandro para que saque una foto.