[推薦]幾句代碼實現控制攝像頭,有攝像頭的進哦 網上有很多控制攝像頭的源程序,但都比較復雜,其實如果只是簡單的打開關閉攝像頭,完全用不著那么多代碼,只用幾句就可以實現,以下是代碼和源程序. Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long Private Const GET_FRAME As Long = 1084 Private Const COPY As Long = 1054 Private Const CONNECT As Long = 1034 Private Const DISCONNECT As Long = 1035 Private CapHwnd As Long Private Sub Command1_Click() '打開攝像頭 CapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 640, 480, Me.hwnd, 0) DoEvents SendMessage CapHwnd, CONNECT, 0, 0 Timer1.Enabled = True End Sub Private Sub Command2_Click() '停止攝像頭 DoEvents SendMessage CapHwnd, DISCONNECT, 0, 0 Timer1.Enabled = False End Sub Private Sub Command3_Click() '截圖 SavePicture Picture1.Image, App.Path & "\\Image" & Date$ & " " & Int(Timer) & ".bmp" End Sub Private Sub Timer1_Timer()        'timer1.Interval=50 On Error Resume Next SendMessage CapHwnd, GET_FRAME, 0, 0 SendMessage CapHwnd, COPY, 0, 0 Picture1.Picture = Clipboard.GetData Clipboard.Clear End Sub