2011年計(jì)算機(jī)等級(jí)二級(jí)VB輔導(dǎo)知識(shí)技巧總結(jié)（22）(13)

    RecvPacket = SYSERR
    Exit Function
    End If
    RecvTab（K）.hEvent = hEvent
    ‘memset（RecvTab［k］.Buffer，0，BUFFER_SIZE）;
    RecvTab（K）.Size = BUFFER_SIZE
    RecvTab（K）.Active = True
    RecvTab（K）.Type = nREAD
    EventTab（RECV_MAX - 1） = hEvent
    Call RecvStart（hVxD， RecvTab（K））
    RecvPacket = len1
    Exit Function
    Else
    RecvPacket = SYSERR
    End If
    End Function
    Function RecvStart（ByVal hVxD As Long， packtab As PacketTable） As Long
    Dim result As Long
    packtab.Overlap.Internal = 0
    packtab.Overlap.InternalHigh = 0
    packtab.Overlap.offset = 0
    packtab.Overlap.OffsetHigh = 0
    packtab.Overlap.hEvent = packtab.hEvent
    result = DeviceIoControl（hVxD， _
    IOCTL_PROTOCOL_READ， _
    packtab.Buffer（0）， _
    packtab.Size， _
    packtab.Buffer（0）， _
    packtab.Size， _