2011年計算機等級二級VB輔導(dǎo)知識技巧總結(jié)（22）(14)

    packtab.Length， _
    packtab.Overlap）
    If （result 0） Then
    RecvStart = SYSERR
    Else
    RecvStart = 0
    End If
    End Function
    Sub Main（）
    bFirst = True
    Dim hVxD As Long
    Dim m_EtherPacketHead As EtherPacketHead
    Dim m_IPPacketHead As IPPacketHead
    Dim m_EtherAddr As EtherAddr
    hVxD = CreateFile（“\\。\VPACKET.VXD”， _
    GENERIC_READ Or GENERIC_WRITE， _
    0， _
    0， _
    OPEN_EXISTING， _
    FILE_ATTRIBUTE_NORMAL Or _
    FILE_FLAG_OVERLAPPED Or _
    FILE_FLAG_DELETE_ON_CLOSE， _
    0）
    Bind hVxD， “0001”
    Call GetHardEtherAddr（hVxD， m_EtherAddr）
    SetOid hVxD， OID_GEN_CURRENT_PACKET_FILTER， 4， NDIS_PACKET_TYPE_DIRECTED
    Do Until False