Detectar Webcam si esta encendida o no


05 de Octubre del 2015

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:

 

Imports AForge.Video.DirectShow
Imports AForge.Video
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Text
Imports System.Windows.Forms
Imports System.Threading

Imports AForge
Imports AForge.Imaging
Imports AForge.Video.VFW
Imports AForge.Vision.Motion
Sub Busca_Dispositivos()
Disp_Video = New FilterInfoCollection(FilterCategory.VideoInputDevice)

If Disp_Video.Count = 0 Then
Dispositivos_Disponibles = False
Else
Dispositivos_Disponibles = True
Carga_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 Then
Label2.Text = "Activo"
Else
Label2.Text = "NO Activo"
End If
Catch ex As Exception
Label2.Text = "NO Activo"

End Try
End Sub