QueryPacket = cbRet
End Function
Function QueryOid（hVxD As Long， ulOid As Long， ulLength As Long） As Long
Dim cbIn As Long
cbIn = 14 + ulLength
Dim cbRet As Long
Dim OidData As PACKET_OID_DATA
OidData.Oid = ulOid
OidData.Length = ulLength
OidData.data = 0
Dim ioctl As Long
Const OID_802_3_PERMANENT_ADDRESS = &H1010101
Const IOCTL_PROTOCOL_QUERY_OID = &H80000000
Const IOCTL_PROTOCOL_STATISTICS = &H80000008
If ulOid 》= OID_802_3_PERMANENT_ADDRESS Then
ioctl = IOCTL_PROTOCOL_QUERY_OID
Else
ioctl = IOCTL_PROTOCOL_STATISTICS
End If
Call CopyMemory（InBuff（0）， OidData， cbIn）
cbRet = QueryPacket（hVxD， ioctl， cbIn， cbIn）
QueryOid = cbRet
End Function
Function GetHardEtherAddr（ByVal hVxD As Long， petheraddr As EtherAddr） As Boolean
Dim nret As Long
Const OID_802_3_CURRENT_ADDRESS = &H1010102
nret = QueryOid（hVxD， OID_802_3_CURRENT_ADDRESS， 6）
If （nret 》 0） Then
Call CopyMemory（petheraddr， InBuff（8）， 6）
GetHardEtherAddr = True