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

　　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年上半年计算机等级考试报名时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总