result = DeviceIoControl(hVxD, ioctl, InBuff(0), cbIn, InBuff(0), cbOut, cbRet, ovlp)

　　If result = 0 Then

　　If (GetLastError() = ERROR_IO_PENDING) Then

　　MsgBox "Ok0"

　　Else

　　Call CloseHandle(hEvent)

　　Exit Function

　　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

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

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

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

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