End If
　　If (0 = GetOverlappedResult(hVxD, ovlp, cbRet, 0)) Then
　　If (GetLastError() = ERROR_IO_INCOMPLETE) Then
　　MsgBox "ok2"
　　Else
　　Call CloseHandle(hEvent)
　　Exit Function
　　End If
　　End If
　　result = GetOverlappedResult(hVxD, ovlp, cbRet, 1)
　　End If
　　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
　　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

上一页12345下一页