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)

　　If (I = WAIT_FAILED) Then

　　MsgBox "error WaitForMultipleObjectsEx"

　　RecvPacket = SYSERR

　　Exit Function

　　End If

　　For J = 0 To RECV_MAX - 1

　　If (EventTab(I) = RecvTab(J).hEvent) Then Exit For

　　Next

　　K = J

　　If (RecvTab(K).Type = nREAD And RecvTab(K).Active = True) Then

　　Call GetOverlappedResult(hVxD, RecvTab(K).Overlap, RecvTab(K).Length, 0)

　　If (RecvTab(K).Length > BUFFER_SIZE) Then RecvTab(K).Length = BUFFER_SIZE

　　Call CopyMemory(OutBuff(0), RecvTab(K).Buffer(0), RecvTab(K).Length)

　　len1 = RecvTab(K).Length

　　Call CloseHandle(RecvTab(K).hEvent)

　　For J = I + 1 To RECV_MAX - 1

　　EventTab(I) = EventTab(J)

　　I = I + 1

　　Next

　　hEvent = CreateEvent(0, 1, 0, vbNullString)

　　If (hEvent = 0) Then

　　MsgBox "ERROR CREATEEVENT"

　　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

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

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

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

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