CopyMemory InBuff(0), OidData, cbIn
　　cbRet = QueryPacket(hVxD, ioctl, cbIn, cbIn)
　　SetOid = 0
　　End Function
　　Function GetPacket(ByVal hVxD As Long, ByVal ioctl As Long, ByVal cbIn As Long, ByVal cbOut As Long) As Long
　　Dim hEvent As Long
　　Dim cbRet As Long
　　Dim ovlp As OVERLAPPED
　　Dim result As Long
　　hEvent = CreateEvent(0, 1, 0, vbNullString)
　　If hEvent = 0 Then
　　GetPacket = 0
　　Exit Function
　　End If
　　ovlp.hEvent = hEvent
　　result = DeviceIoControl(hVxD, ioctl, InBuff(0), cbIn, OutBuff(0), cbOut, cbRet, ovlp)
　　If (result = 0) Then Call GetOverlappedResult(hVxD, ovlp, cbRet, True)
　　GetPacket = cbRet
　　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)
　　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

上一页2345下一页