使用VB截获WIN98系列下的IP数据包

tIP:", m_IPPacketHead.DestIP.AddrByte(0) & "." & m_IPPacketHead.DestIP.AddrByte(1) & "." & m_IPPacketHead.DestIP.AddrByte(2) & "." & m_IPPacketHead.DestIP.AddrByte(3)
            End If
        End If
     End If
Loop
Call CloseHandle(hVxD)
End Sub

''----------------------源代码结束-----------------