Visual Basic.NET - Detectar Webcam si esta encendida o no osea funcionando

   
Vista:
Imágen de perfil de vladimir Angarita

Detectar Webcam si esta encendida o no osea funcionando

Publicado por vladimir Angarita (1 intervención) 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.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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder