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

End Function
    Function RecvPacket（ByVal hVxD As Long， ByVal pbuf As Variant） As Long
    Dim hEvent As Long
    Dim I As Long， J As Long， K As Long
    Dim len1 As Long
    If （bFirst） Then
    For I = 0 To RECV_MAX - 1
    hEvent = CreateEvent（0， 1， 0， vbNullString）
    If （hEvent = 0） Then
    MsgBox “ERROR”
    RecvPacket = SYSERR
    Exit Function
    End If
    RecvTab（I）.hEvent = hEvent
    RecvTab（I）.Size = BUFFER_SIZE
    RecvTab（I）.Active = True
    RecvTab（I）.Type = nREAD
    EventTab（I） = hEvent
    Call RecvStart（hVxD， RecvTab（I））
    Next
    bFirst = False
    End If
    I = WaitForMultipleObjectsEx（RECV_MAX， EventTab（0）， 0， INFINITE， 0）