Sign in to follow this  
Followers 0
ESATU

Webcam Detection

3 posts in this topic

how to detect the presence of a webcam on a PC with message box Yes or No.? Please...

* Win XP, Vista, Win 7 & 8

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

Please use the search button :)

'?do=embed' frameborder='0' data-embedContent>>

a little bit modified:

MsgBox(0,"", IsWebcamPresent())

Func IsWebcamPresent()
    $StructName = DllStructCreate("char[1024]")
    $StructDesc = DllStructCreate("char[1024]")
    For $i = 0 To 9
        $aRslt = DllCall("Avicap32.dll", "bool", "capGetDriverDescription", "dword", $i, "ptr", DllStructGetPtr($StructName), "dword", DllStructGetSize($StructName), "ptr", DllStructGetPtr($StructDesc), "dword", DllStructGetSize($StructDesc))
        If Not @error Then
            If $aRslt[0] Then Return True
        EndIf
    Next
    Return False
EndFunc
Edited by Unc3nZureD
1 person likes this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0