2011年计算机等考二级VB辅导知识技巧总结(22)

　　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辅导知识技巧汇总