用Visual Basic也可以实现P2P
添加时间: 2006-2-16 4:51:53 作者: VB教程 阅读次数:61 来源: http://www.d9soft.com
使用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做定时断线程序
相关文章: