[一]
Imports System. Windows. Forms Imports System. Drawing Public Class WebCamera #Region "Api/constants" Private Const WS_CHILD As Integer = &H40000000 Private Const WS_VISIBLE As Integer = &H10000000 Private Const SWP_NOMOVE As Short = &H2S Private Const SWP_NOZORDER As Short = &H4S Private Const WM_USER As Short = &H400S Private Const WM_CAP_DRIVER_CONNECT As Integer = WM_USER + 10 Private Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_USER + 11 Private Const WM_CAP_SET_VIDEOFORMAT As Integer = WM_USER + 45 Private Const WM_CAP_SET_PREVIEW As Integer = WM_USER + 50 Private Const WM_CAP_SET_PREVIEWRATE As Integer = WM_USER + 52 Private Const WM_CAP_GET_FRAME As Long = 1084 Private Const WM_CAP_COPY As Long = 1054 Private Const WM_CAP_START As Long = WM_USER Private Const WM_CAP_STOP As Long = (WM_CAP_START + 68 ) Private Const WM_CAP_SEQUENCE As Long = (WM_CAP_START + 62 ) Private Const WM_CAP_SET_SEQUENCE_SETUP As Long = (WM_CAP_START + 64 ) Private Const WM_CAP_FILE_SET_CAPTURE_FILEA As Long = (WM_CAP_START + 20 ) Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Short, ByVal lParam As String ) As Integer Private 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 Private 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