Else
GetHardEtherAddr = False
End If
End Function
Function SetOid（ByVal hVxD As Long， ByVal ulOid As Long， ByVal ulLength As Long， ByVal data As Long） As Long
Dim cbIn As Long
Dim cbRet As Long
Dim OidData As PACKET_OID_DATA
Dim ioctl As Long
cbIn = 32
If （ulOid = OID_GEN_CURRENT_PACKET_FILTER） Then ioctl = IOCTL_PROTOCOL_SET_OID
OidData.Oid = ulOid
OidData.Length = ulLength
OidData.data = 1
CopyMemory InBuff（0）， OidData， cbIn
cbRet = QueryPacket（hVxD， ioctl， cbIn， cbIn）
SetOid = 0
End Function
Function GetPacket（ByVal hVxD As Long， ByVal ioctl As Long， ByVal cbIn As Long， ByVal cbOut As Long） As Long
Dim hEvent As Long
Dim cbRet As Long
Dim ovlp As OVERLAPPED
Dim result As Long
hEvent = CreateEvent（0， 1， 0， vbNullString）
If hEvent = 0 Then
GetPacket = 0
Exit Function
End If
ovlp.hEvent = hEvent
result = DeviceIoControl（hVxD， ioctl， InBuff（0）， cbIn， OutBuff（0）， cbOut， cbRet， ovlp）
If （result = 0） Then Call GetOverlappedResult（hVxD， ovlp， cbRet， True）
GetPacket = cbRet