vb 拦截数据包

[名称] 使用VB在WIN2K下截获IP数据包

[数据来源] 作者：天同

[源代码内容]

为了方便广大VB爱好者也能向C语言一样能截获IP包，本人特地写了以下的源代码，以供VB开发者参考。

以下是在VB中截获WIN2000下TCP/IP包的源代码，在VB6.0,win2000下测试通过，需要注意的地方是，1.必须和本地的一块网卡,2.每次获取数据后必须有一段延时。3.数据取到之后放在Buff的数组中。4.把以下的代码放在一个模块中就可以了。
'代码开始
Declare Function bind Lib "ws2_32.dll " (ByVal s As Long, addr As SOCK_ADDR, ByVal namelen As Long) As Long
Declare Function closesocket Lib "ws2_32.dll " (ByVal s As Long) As Long
Declare Function connect Lib "ws2_32.dll " (ByVal s As Long, name As SOCK_ADDR, ByVal namelen As Integer) As Long
Declare Function inet_addr Lib "ws2_32.dll " (ByVal cp As String) As Long
Declare Function htons Lib "ws2_32.dll " (ByVal hostshort As Integer) As Integer
Declare