下面是抓影像擷取卡影像的表單程式碼
Private Const WM_USER = &H400
Private Const WM_CAP_START = WM_USER
Private Const WM_CAP_GET_CAPSTREAMPTR = WM_CAP_START + 1
Private Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Private Const WM_CAP_SET_OVERLAY = WM_CAP_START + 51
Private Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hwndParent As Long, ByVal nID As Integer) As Long
Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Form_Load()
Dim Ret As Integer
hCapture = capCreateCaptureWindow(vbNullString, WS_CHILD Or WS_VISIBLE, 0, 0, 560, 480, Me.hwnd, 0)
Ret = SendMessage(hCapture, WM_CAP_DRIVER_CONNECT, 0, 0)
Ret = SendMessage(hCapture, WM_CAP_SET_OVERLAY, 1, 0)
End Sub
我的問題是要怎樣把它放到網頁上執行，弄了好久都搞不定
請大家幫忙，謝謝