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

控件下载地址：

创新互联从2013年成立，是专业互联网技术服务公司，拥有项目网站设计制作、成都网站设计网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元吉安做网站,已为上家服务,为吉安各地企业和个人服务,联系电话:028-86922220

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

控件说明：

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

'可根据模式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控件的样例。

vb 抓包问题

你提供的网页如下图了，你说导出数据，到底导出什么数据？？？？你一定要图文并茂好好表述清楚自己的问题，否则大家难回答。

用vb.net实现网络通信

用 vb.net socket通信

Dim th As Threading.Thread

2 Dim tcpl As System.Net.Sockets.TcpListener

3

4 Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

5 th = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf MyListen))

6 th.Start()

7 End Sub

8

9 Public Sub SendMessage()Sub SendMessage(ByVal IP As String, ByVal SendMsg As String)

10 Try

11 If IP "" Then

12 Dim tcpc As New System.Net.Sockets.TcpClient(IP, 5656)

13 Dim tcpStream As Net.Sockets.NetworkStream = tcpc.GetStream

14 Dim reqStream As New IO.StreamWriter(tcpStream)

15 reqStream.Write(SendMsg)

16 reqStream.Flush()

17 tcpStream.Close()

18 tcpc.Close()

19 End If

20 Catch ex As Exception

21 MsgBox(ex.Message.ToString)

22 End Try

23 End Sub

24 Private Sub MyListen()Sub MyListen()

25 Try

26 Dim ipAddress As System.Net.IPAddress = System.Net.Dns.Resolve(System.Net.Dns.GetHostName).AddressList(0)

27 tcpl = New System.Net.Sockets.TcpListener(ipAddress, 5656)

28 tcpl.Start()

29 While True

30 Dim s As System.Net.Sockets.Socket = tcpl.AcceptSocket()

31 Dim MyBuffer(1024) As Byte

32 Dim i As Integer

33 i = s.Receive(MyBuffer)

34 If i 0 Then

35 Dim lstrRec As String

36 Dim j As Integer

37 For j = 0 To i - 1

38 TextBox1.Text += Chr(MyBuffer(j)) ","

39 Next

40 End If

41 End While

42 Catch ex As Exception

43 MsgBox(ex.Message.ToString)

44 End Try

45 End Sub

46

47 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

48 SendMessage("192.168.0.61", TextBox2.Text)

49 End Sub

网站栏目：vb.net抓包发包 net 抓包
网站网址：http://chengdu.cdxwcx.cn/article/hjpssi.html