2011年計算機等考二級VB輔導(dǎo)知識技巧總結(jié)(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考點及習(xí)題匯總

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

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