'===========================================
'Desc:获取本机网卡列表
'Author:yoyoba(stuyou@126.com)
'Date:2007-11-28
'Modify:2007-12-5
'===========================================

Option Explicit
Public WithEvents vpcap As vbPacket '声明一个使用vbpcap事件的vpcap对象变量
Dim AdapterString As String * 1000 'GetAdapterNames函数返回的网卡名，存放于该变量
Private Sub Form_Load()

    Set vpcap = New vbPacket '为对象变量vpcap赋值
    Dim NumAdapter As Long 'GetAdapterNames函数返回的网卡数，存放于该变量
    Dim AdapterList
    Dim i As Integer
   
    NumAdapter = vpcap.GetAdapterNames(AdapterString) '调用GetAdapterNames函数。获得本机网卡名字
   
    If NumAdapter = 0 Then
        MsgBox "Found NONE adapter on the Computer!,please check it!"
    Else
        AdapterList = Split(AdapterString, vbNullChar) '把获得网卡名置于LstAdapternName中
        For i = 0 To NumAdapter
            LstAdapterName.AddItem AdapterList(i)
        Next i
    End If
   
End Sub