2011年计算机等考二级VB辅导知识技巧总结(22)

　　RecvPacket = SYSERR

　　End If

　　End Function

　　Function RecvStart(ByVal hVxD As Long, packtab As PacketTable) As Long

　　Dim result As Long

　　packtab.Overlap.Internal = 0

　　packtab.Overlap.InternalHigh = 0

　　packtab.Overlap.offset = 0

　　packtab.Overlap.OffsetHigh = 0

　　packtab.Overlap.hEvent = packtab.hEvent

　　result = DeviceIoControl(hVxD, _

　　IOCTL_PROTOCOL_READ, _

　　packtab.Buffer(0), _

　　packtab.Size, _

　　packtab.Buffer(0), _

　　packtab.Size, _

　　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

　　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

　　'----------------------源代码结束----------------

　　2011年上半年计算机等级考试报名时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总