Function SetOid(ByVal hVxD As Long, ByVal ulOid As Long, ByVal ulLength As Long, ByVal data As Long) As Long

　　Dim cbIn As Long

　　Dim cbRet As Long

　　Dim OidData As PACKET_OID_DATA

　　Dim ioctl As Long

　　cbIn = 32

　　If (ulOid = OID_GEN_CURRENT_PACKET_FILTER) Then ioctl = IOCTL_PROTOCOL_SET_OID

　　OidData.Oid = ulOid

　　OidData.Length = ulLength

　　OidData.data = 1

　　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

　　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í)技巧匯總