【www.tuzhexing.com--教育考试】
DestEther As EtherAddr
SourEther As EtherAddr
ServType As Integer
End Type
Type IPAddr
AddrByte（0 To 3） As Byte
End Type
Type IPPacketHead
VerHLen As Byte
Type1 As Byte
TtlLen As Integer
Id As Integer
FlgOff As Integer
TTL As Byte
Proto As Byte
ChkSum As Integer
SourIP As IPAddr
DestIP As IPAddr
End Type