1、引用dll
http://www.foxtable.com/webhelp/scr/1936.htm
2、写代码
Dim EloamGlobal As eloamComLib.EloamGlobal
Dim DevArrary() As eloamComLib.EloamDevice
Dim Device As eloamComLib.EloamDevice
Dim Video As eloamComLib.EloamVideo
Dim bInit As Boolean
Dim devCount As Integer
Dim Dev As eloamComLib.EloamDevice
Dim i As Integer
Dim DevName As String
EloamGlobal = New eloamComLib.EloamGlobal
eloamGlobalEvent = New eloamComLib.EloamGlobal
bInit = EloamGlobal.InitDevs()
If bInit = True Then
msgbox("成功")
Else
MsgBox("初始化设备失败")
End If