2011年計算機(jī)等考二級VB輔導(dǎo)知識技巧總結(jié)(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

　　'----------------------源代碼結(jié)束----------------

　　2011年上半年計算機(jī)等級考試報名時間匯總

　　2011計算機(jī)等級考試二級VB考點及習(xí)題匯總

　　2011年計算機(jī)等級考試二級VB基礎(chǔ)教程匯總

　　2011計算機(jī)等考二級VB輔導(dǎo)知識技巧匯總