2011年計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧總結(jié)(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年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總