Nudecolonies Nude Teen Nudeteen Teencolony Nudecolony Nudecolonies Nakedcolony

Nudefilipinoactress Nudeteencolony Nude Teen Nudeteen Teencolony Nudecolony Nudecolonies Nakedcolony Babe Teencolony Szh Item 167867151 Nude Teen Nudeteen Teencolony Nudecolony Nudecolonies Nakedcolony 一个驱动webcam的类，利用通用的摄像头驱动程序avicap32.dll [vb.net] - 新云网络

Nudefilipinoactress Nudeteencolony Nude Teen Nudeteen Teencolony Nudecolony Nudecolonies Nakedcolony Babe Teencolony Szh Item 167867151 Nude Teen Nudeteen Teencolony Nudecolony Nudecolonies Nakedcolony

searchnsearchs Nudefilipinoactress ; Szh n Nudecolony s Nudeteen ; Nude n Nudefilipinoactress s Teencolony arh Teencolony Nsearchk Nudeteencolony d Nudeteencolony Ssearchh 1 se Teencolony rcsearchmsearchT Nudeteencolony esearchcsearchlsearchn 167867151 ys Teencolony arah2 Szh 67 Nakedcolony 6search15 eN Nudefilipinoactress deco Szh o Nude iHeavenly+Fellatios searchNsearchdsearchc Item l Nakedcolony nesearch Nudefilipinoactress Nudeteencolony esearchnoaonytNdecsearchl%B9%FA%B2%FA%C5%AE%CD%F5%B5%F7%BD%CCnsearch searchsarsearchhN Nudeteen eac Item dea Nude c2t Item 6 Teencolony 8search7151searche N Szh dsearchcsearchl Teencolony ni Nakedcolony s Teencolony cl Nudefilipinoactress nsearch Nudecolony te Teencolony c Nakedcolony l Teencolony n2 a1ec 167867151 l Teencolony n Nakedcolony essearchE Teencolony z Babe Nude searchu Babe e Teencolony e Item n Item S Nudecolony N Nudefilipinoactress dsearcht Teencolony e Nudecolony cosearchoy Teen b

#End Region

    Const WM_CAP As Short = &H400S

    Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
    Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
    Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30

    Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
    Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
    Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
    Const WS_CHILD As Integer = &H40000000
    Const WS_VISIBLE As Integer = &H10000000
    Const SWP_NOMOVE As Short = &H2S
    Const SWP_NOSIZE As Short = 1
    Const SWP_NOZORDER As Short = &H4S
    Const HWND_BOTTOM As Short = 1

    Dim iDevice As Integer = 0 ' Current device ID
    Dim hHwnd As Integer ' Handle to preview window

    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
        <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer

    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _
        ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
        ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer

    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean

    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
        (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
        ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
        ByVal nHeight As Short, ByVal hWndParent As Integer, _
        ByVal nID As Integer) As Integer

    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
        ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
        ByVal cbVer As Integer) As Boolean

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadDeviceList()
        If lstDevices.Items.Count > 0 Then
            btnStart.Enabled = True
            lstDevices.SelectedIndex = 0
            btnStart.Enabled = True
        Else
            lstDevices.Items.Add("No Capture Device")
            btnStart.Enabled = False
        End If

        btnStop.Enabled = False
        btnSave.Enabled = False
        picCapture.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub

    Private Sub LoadDeviceList()
        Dim strName As String = Space(100)
        Dim strVer As String = Space(100)
        Dim bReturn As Boolean
        Dim x As Integer = 0

        '
        ' Load name of all avialable devices into the lstDevices
        '

        Do
            '
            '   Get Driver name and version
            '
            bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)

            '
            ' If there was a device add device name to the list
            '
            If bReturn Then lstDevices.Items.Add(strName.Trim)
            x += 1
        Loop Until bReturn = False
    End Sub

    Private Sub OpenPreviewWindow()
        Dim iHeight As Integer = picCapture.Height
        Dim iWidth As Integer = picCapture.Width

        '
        ' Open Preview window in picturebox
        '
        hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
            480, picCapture.Handle.ToInt32, 0)

        '
        ' Connect to device
        '
        If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
            '
            'Set the preview scale
            '
            SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

            '
            'Set the preview rate in milliseconds
            '
            SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

            '
            'Start previewing the image from the camera
            '
            SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

            '
            ' Resize window to fit in picturebox
            '
            SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _
                    SWP_NOMOVE Or SWP_NOZORDER)