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

    Const BUFFER_SIZE = 16384
    Const nREAD = 1
    Type PacketTable
    hEvent As Long
    Active As Boolean
    Overlap As OVERLAPPED
    Size As Long
    Buffer（BUFFER_SIZE） As Byte
    Length As Long
    Type As Integer
    End Type
    Const RECV_MAX = 32
    Dim RecvTab（RECV_MAX） As PacketTable
    Dim EventTab（RECV_MAX） As Long
    Dim InBuff（1514） As Byte
    Dim OutBuff（1514） As Byte
    Function Bind（hVxD As Long， inBuffer As String） As Boolean
    Dim hEvent As Long
    Dim cbRet As Long
    Dim ovlp As OVERLAPPED