13518219792
控件下载地址：
创新互联从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.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
