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

　　Type PACKET_OID_DATA

　　Oid As Long

　　Length As Long

　　data As Byte

　　End Type

　　Private Declare Function DeviceIoControlAsString Lib "kernel32" Alias "DeviceIoControl" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, ByVal lpInBuffer As String, ByVal nInBufferSize As Long, ByVal lpOutBuffer As String, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As OVERLAPPED) As Long

　　Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As OVERLAPPED) As Long

　　Private Declare Function GetOverlappedResult Lib "kernel32" (ByVal hFile As Long, lpOverlapped As OVERLAPPED, lpNumberOfBytesTransferred As Long, ByVal bWait As Long) As Long

　　Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

　　Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (ByVal dest As Long, ByVal numbytes As Long)

　　Private Declare Function GetLastError Lib "kernel32" () As Long

　　Const ETHER_PROTO_IP = &H8

　　Const IP_PROTO_TCP = &H6

　　Const ETHER_HEAD_LEN = 14

　　Const IP_HEAD_BYTE_LEN = 20

　　Dim bFirst As Boolean

　　Const SYSERR = -1

　　Const BUFFER_SIZE = 16384

　　Const nREAD = 1

　　Type PacketTable

　　hEvent As Long

　　Active As Boolean

　　Overlap As OVERLAPPED

　　Size As Long

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

　　2011計算機等級考試二級VB考點及習題匯總

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

　　2011計算機等考二級VB輔導知識技巧匯總