壹個VB攝像頭源代碼，如下:
私人？申報？功能？capCreateCaptureWindow？Lib？“avicap32.dll”？_
別名？“capCreateCaptureWindowA”？(?_
ByVal？lpszWindowName？作為？弦，？_
ByVal？dwStyle？作為？龍，？_
ByVal？x？作為？龍，？_
ByVal？y？作為？龍，？_
ByVal？nWidth？作為？龍，？_
ByVal？高度？作為？龍，？_
ByVal？hWndParent？作為？龍，？_
ByVal？nID？作為？龍)？作為？長的
私人？Const？WS_CHILD？=?& ampH40000000
私人？Const？WS_VISIBLE？=?& ampH10000000
私人？Const？WM_USER？=?& ampH400
私人？Const？WM_CAP_START？=?& ampH400
私人？Const？WM_CAP_EDIT_COPY？=?(WM_CAP_START？+?30)
私人？Const？WM_CAP_DRIVER_CONNECT？=?(WM_CAP_START？+?10)
私人？Const？WM_CAP_SET_PREVIEWRATE？=?(WM_CAP_START？+?52)
私人？Const？WM_CAP_SET_OVERLAY？=?(WM_CAP_START？+?51)
私人？Const？WM_CAP_SET_PREVIEW？=?(WM_CAP_START？+?50)
私人？Const？WM_CAP_DRIVER_DISCONNECT？=?(WM_CAP_START？+?11)
私人？預覽_句柄？作為？長的
私人？申報？功能？SendMessage？Lib？“用戶32”？_
別名？“SendMessageA”？(?_
ByVal？hwnd？作為？龍，？_
ByVal？wMsg？作為？龍，？_
ByVal？wParam？作為？龍，？_
lParam？作為？任何)？作為？長的
私人？功能？CapturePicture(nCaptureHandle？作為？龍)？作為？標準圖片
剪貼板。清楚的
SendMessage？nCaptureHandle，？WM_CAP_EDIT_COPY，？0,?0
設置？抓圖？=?剪貼板。獲取數據
結束？功能
私人？Sub？cmdCap_Click()
圖片1。圖片？=?捕獲圖片(預覽_句柄)
結束？潛水艇
私人？Sub？cmdSave_Click()
開？錯誤？簡歷？然後
保存圖片？圖片1。圖片，？" C:\ "？& amp？格式(日期、“dd-MM-yyyy”)？& amp？"?"？& amp？格式(時間，？“hh-mm-ss”)？& amp？".bmp "
結束？潛水艇
私人？Sub？Form_Load()
預覽_句柄？=?capCreateCaptureWindow("Video "，WS_CHILD？+?WS_VISIBLE，？2,?2,?320,?240,?Me.hwnd，？1)
SendMessage？預覽_句柄，？WM_CAP_DRIVER_CONNECT，？0,?0
SendMessage？預覽_句柄，？WM_CAP_SET_PREVIEWRATE，？1,?0
SendMessage？預覽_句柄，？WM_CAP_SET_PREVIEW，？1,?0
結束？潛水艇
私人？Sub？Form_Unload(取消？作為？整數)
SendMessage？預覽_句柄，？WM_CAP_DRIVER_DISCONNECT，？0,?0
結束？潛水艇