VB如何实现这个抓包功能？

控件下载地址：http://mumayi.999kb.com/pic/2006-06-10/5xs611ibaaxftejwrs2a.rar

解压缩后，根目录为控件，子目录为控件运用的例子

控件说明：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'可根据模式0（属性Mode＝0）获得完整包数据（包括IP头＋TCP/UDP/ICMP头＋实际数据）

'或模式1（属性Mode＝1）获得网络包中的实际数据（不包括IP头、TCP/UDP/ICMP头）

'属性CatchIP为指定要捕捉的IP地址，若为空字符串则捕捉本网卡上可截获的所有数据包（即流经本网段所有数据包）

'只读属性LocalIP为本机IP地址，利用该属性赋给CatchIP，实现仅捕捉本机IP数据

'属性Begin为Boolean类型，当设为True时开始抓包，当设为False则停止抓包

'方法GetIPHeader用于从指定的完整包数据中提取IP头部数据

'方法GetTCPHeader用于从指定的完整包数据中提取TCP头部数据

'方法GetUDPHeader用于从指定的完整包数据中提取UDP头部数据

'方法GetICMPHeader用于从指定的完整包数据中提取ICMP头部数据

'方法GetData用于从指定的完整数据包中获得实际数据

'方法GetDataLen用于从指定的完整数据包中获得实际数据长度

'方法GetIpStr用于转换长整数型IP地址为字符串IP地址

'方法DataCopy用于复制字节数组指定位置开始的指定个数数据

'具有事件RecevAll（Mode＝0时触发此事件），通过参数提供网络完整包数据（包括IP头＋TCP/UDP/ICMP头＋实际数据）

'具有事件Recev（Mode＝1时触发此事件），通过参数提供网络包中的实际数据（不包括IP头、TCP/UDP/ICMP头）

附件中包括CatchX控件源代码以及一个利用此控件制作的Sniffer程序源代码，该程序可以作为使用CatchX控件的样例。

1.VB 是可以抓包的

VB 在抓包的 前提是网卡可以设置混乱模式

2.win7 下抓包 需要 关闭一个 F 开头的服务

3.搜索 VB 封包 可以搜到一些代码

4.所抓的封包是系统中所有的封包，封包是通过端口来区分程序的

---