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

DoEvents
    ’result = GetPacket（hVxD， IOCTL_PROTOCOL_READ， 1514， 1514）
    result = RecvPacket（hVxD， OutBuff）
    If result = 0 Then Exit Do
    If result SYSERR Then
    Call CopyMemory（m_EtherPacketHead， OutBuff（0）， ETHER_HEAD_LEN）
    If m_EtherPacketHead.ServType = ETHER_PROTO_IP Then
    Call CopyMemory（m_IPPacketHead， OutBuff（ETHER_HEAD_LEN）， IP_HEAD_BYTE_LEN）
    If m_IPPacketHead.Proto = IP_PROTO_TCP Then
    Debug.Print “SourIP：”， m_IPPacketHead.SourIP.AddrByte（0） & “?！?& m_IPPacketHead.SourIP.AddrByte（1） & “?！?& m_IPPacketHead.SourIP.AddrByte（2） & “?！?& m_IPPacketHead.SourIP.AddrByte（3）
    Debug.Print “DestIP：”， m_IPPacketHead.DestIP.AddrByte（0） & “。” & m_IPPacketHead.DestIP.AddrByte（1） & “。” & m_IPPacketHead.DestIP.AddrByte（2） & “。” & m_IPPacketHead.DestIP.AddrByte（3）
    End If
    End If
    End If
    Loop
    Call CloseHandle（hVxD）
    End Sub