Detectar Webcam si esta encendida o no osea funcionando
Publicado por vladimir Angarita (3 intervenciones) el 30/09/2015 22:57:40
Como detectar si la web cam esta encendida, quisiera hacer un programita tipo demonio que detecta en el momento en que se enciende la camara web, aqui hay una programacion que estaba desarrollando gracias a un ejemplo lo comparto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Imports AForge.Video.DirectShow
Imports AForge.VideoImports System.Collections.Generic
Imports System.ComponentModelImports System.DataImports System.DrawingImports System.Drawing.Imaging
Imports System.TextImports System.Windows.Forms
Imports System.ThreadingImports AForge
Imports AForge.ImagingImports AForge.Video.VFW
Imports AForge.Vision.Motion
Sub Busca_Dispositivos()
Disp_Video = New FilterInfoCollection(FilterCategory.VideoInputDevice)
If Disp_Video.Count = 0 Then
Dispositivos_Disponibles = FalseElse
Dispositivos_Disponibles = TrueCarga_Dispositivos()
Button_iniciar.Enabled = True
End If
End Sub
Sub Carga_Dispositivos()
For i As Integer = 0 To Disp_Video.Count - 1
combo_dispositivos.Items.Add(Disp_Video(i).Name.ToString())
Next
combo_dispositivos.Text = combo_dispositivos.Items(0).ToString()
End Sub
Private Sub Tim_audit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tim_audit.Tick
Try
Carga_Dispositivos()
Busca_Dispositivos()
If FuenteDeVideo.IsRunning ThenLabel2.Text = "Activo"
Else
Label2.Text = "NO Activo"
End If
Catch ex As Exception
Label2.Text = "NO Activo"
End Try
End Sub
Valora esta pregunta
0