Jump to content
Sign in to follow this  

Webcam Detection

Recommended Posts

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

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
    Return False
Edited by Unc3nZureD

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  

  • Create New...