|
|
网站建设 下载中心 社区论坛 信息公告 MY小屋 | |
 |
联系我们 设为首页 加入收藏 |
 |
|
 |
 |
 |
 |
 当前位置：首页>>编程开发>>VB编程>>正文 |
|
|||
注:打开慢时请稍等
用Visual Basic实现P2Phttp://www.iyit.net 日期：2007-5-19 8:57:02 来源： 点击： |
使用Winsock控件时,通信的双方需要选定相同的协议。TCP协议适用于传送大容量、需要安全性保证的数据文件，而UDP协议适用于需要分别与很多下属通信,或者建立的连接比较多且为时变的情况,特别是在数据量很小的时候。设定时可以使用Winsock1.Protocol =sckTCPProtocol方法,首先要找到你的计算机的名称,并把它添入Winsock的LocalHost属性中。 创建一个应用程序时,首先要确定你建立的是客户方应用还是服务器服务,只有建立的服务器应用开始工作,并进入监听状态时,客户应用程序才开始建立连接,进入正常的通信状态。笔者建立了一个应用程序,它的功能是当客户方的鼠标移动时,服务器应用程序上能够实时显示该鼠标的位置。 下面是建立服务器应用的方法: 1.创建一个新的标准EXE文件; 2.加入一个Winsock控件; 3.加入如下代码: Private Sub Form Load() tcpServer.LocalPort = 1001 tcpServer.Localhost = "servser" tcpServer.remotePort = 1002 tcpServer.Localhost = "klint" tcpServer.Listen End Sub ′连接检查 Private Sub tcpServer ConnectionRequest(ByVal requestID As Long) If tcpServer.State ＜＞ sckClosed Then tcpServer.Close tcpServer.Accept requestID End Sub ′发送数据 Private Sub frmserver monsemove(x,y) tcpServer.SendData "x"&str(x) tcpServer.SendData "y"&str(y) End Sub 建立客户应用的方法为: 1.创建一个新的标准EXE文件; 2.加入一个Winsock控件; 3.加入两个Text框——txtx和txty; 4.加入如下代码: Private Sub Form Load() tcpServer.LocalPort = 1002 tcpServer.Localhost = "klint" tcpServer.remotePort = 1001 tcpServer.Localhost = "servser" tcpServer.Listen End Sub ′连接检查 Private Sub tcpklint ConnectionRequest (ByVal requestID As Long) If tcpklint.State ＜＞ sckClosed Then tcpklint.Close tcpklint.Accept requestID End Sub 接收数据 Private Sub tcpClient DataArrival (ByVal bytesTotal As Long) Dim strData As String tcpklint.GetData strData if left(strData,1)="X"then txt x.Text = strData else txt y.Text = strData endif End Sub 以上例程实现的是一个非常简单的点对点通信,在此基础上略加改造,可以形成功能复杂的实时计算机网络A-A交互通信系统,用于控制、图形仿真等。VB中Winsock给我们提供了一种简便的数据传送方法,使我们得以轻松地实现网络点对点通信。 编辑： [发送给好友] [打印本页] [关闭窗口] [返回顶部] 上一篇：VB中运用反射原理优化程序代码 下一篇：没有了 转载请注明来源：www.iyit.net 特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
| 相关文章 | ||||
 |
设置首 页 - 版权声明 - 广告服务 - 关于我们 - 联系我们 - 友情连接 |  |
| |||||||
易特网络技术