Jump to content
Sign in to follow this  
ESATU

Webcam Detection

Recommended Posts

ESATU

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
Unc3nZureD

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
  • Like 1

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.