13518219792
用 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
网上很多相关的现成的代码
你需要知道的一点是数据接收不是接收一次就完了 接收端根本不知道数据什么时候要过来 所以数据端应该一直重复着"等待-接收"的过程 于是就有了要在线程中接收数据的代码
，如果客户终端非常多的时候，这就会是一项很麻烦的工作，一方面要安排我们的应用程序，另一方面要安装Oracle客户端，而且还要对Oracle客户端进行NET EASY配置，真是不胜其烦。
为此我研究了很久，现在终于做到了可以把Oracle客户端和应用程序一起打包，又自己用程序来配置NET EASY，刚好前两天有两个小弟问我如何把客户端打包和用程序配置NET EASY的问题，我今天就在这里说一下。
由于时间问题，今天就只能讲一下客户端打包的问题，另一个问题我会在下一篇给大家讲一下。
1、打包要知道的问题：
A、要打包哪些文件。
B、如何修改注册表。
C、如何设置环境变量。
D、打包使用哪些工具。
2、打包要使用的文件：
我们先找一个装有Oracle的机器，把以下的文件打包。为了保证Oracle能正常访问，我们需要保持原目录结构不变。
A、$ORACLE_HOMEBIN下边所有DLL，IMP.EXE，EXP.EXE，SQLPLUS.EXE，SQLPLUSW.EXE。($ORACLE_HOME指的是ORACLE的主目录,比如D:ORACLEORA8I)。
B、$ORACLE_HOMEnetwork目录下的三个目录：Admin、mesg、tnsapi，把它们全部打包。
C、$ORACLE_HOMEocommonnls目录。
D、$ORACLE_HOMEoracoremesg目录。
E、$ORACLE_HOMEsqlplus下的两个目录：admin、mesg。
3、如何修改注册表：
为不麻烦，我们可以把这个装有Oracle的机器的注册表里边Oracle信息照搬过来。全部照抄。
4、如何设置环境变量：
设置环境变量，我们要在PATH前边加上$ORACLE_HOMEBIN;
5、使用哪些打包工具：
我个人比较喜欢的工具是WiseInstaller，它的功能很强大，能导入整个文件目录（我感觉这一点比Install shilled要好）、导入注册表、也可以设置环境变量，以及设置NT服务等等（我好象是给它做广告似的）。
我们现在就可以使用它来做我们的客户端了。
第一步，先把我说的这些文件目录全部导入到我们的安装工程中去。
第二步，找到设置注册表选项，导入注册表中HKEY_LOCAL_MACHINESOFTWAREORACLE下边所有的注册表值。
第三步，找到环境变量设置选项，在它的PATH那里加上$ORACLE_HOMEBIN。这里的$ORACLE_HOME用来代替。
做完这一切，编译，发布，完成。
6、如何用手工来修改NET EASY：
现在假设我们已经做完了这个安装包，并且把它安装到了我们的电脑上边，那么，在开始菜单上是没有ORACLE这个选项的，如何设置Oracle NET EASY呢？
我们现在暂时可以这样做：
打开我们的Oracle客户端的安装目录，找到NETWORKADMIN子目录下边的tnsnames.ora这个文件，直接对它进行编辑就行了。
比如，我们现在想配置一个叫做NTSERVER的服务名，我们就可以这样写：
NTSERVER =
(DESCRIPTION =
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = 机器名)(PORT = 端口号))
)
(CONNECT_DATA =
(SERVICE_NAME = 全局数据库名)
)
)
然后，直接把它加到tnsnames.ora这个文件的后边就行了。
如果NTSERVER这个服务名已经存在的话，我们可以直接修改它的机器名、端口号和全局数据库名就可以了。
你说的操作是像人一样用鼠标点击网页？
直接应该是不行的，可以考虑先抓包分析数据包，在模拟浏览器发送请求获取数据，然后进行相应处理
微软的 InstallShield 2011
打包注册表项，运行库，程序文件.....
{最好在XP-X86 环境下打包，上下兼容}
PS：其实自己也能做，就像读取文本再写进去过程中加下密，
就像RAR，然后利用一个可执行程序进行解压{俗称-安装，术语-封装}
在文库里搜索一下 封装教程 内容更多
建议和 加壳 一起学，
那需要软件对接！ 然后获得控件名称，获取内容！比较复杂！！！
