没有合适的资源?快使用搜索试试~ 我知道了~
温馨提示


试读
16页
这是本人用VB编写的《基于WinSock控件的TCP/UDP程序设计》实验教程。WinSock控件能够通过UDP协议(用户数据报协议)或TCP协议(数据传输协议)连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样,WinSock控件运行时没有一个可视的界面。此教程分别用TCP和UDP协议开发了网络聊天软件,通过学习此教程可以让初学者在动手敲代码的过程中对TCP和UDP的通信原理有一个比较深入的了解
资源推荐
资源详情
资源评论






















基于 WinSock 控件的 TCP/UDP 程序设计
—— VB 实现
WinSock 控件能够通过 UDP 协议(用户数据报协议)或 TCP 协议(数据传输协议)
连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。
就像定时器控件一样,WinSock 控件运行时没有一个可视的界面。下面就是分别用 TCP
和 UDP 协议来创建的网络聊天软件。
TCP 协议
网络聊天程序的运行过程及原理
第一步:建立连接
主要过程是:由客户端程序向服务端程序发出连接请求,服务端程序收到并接受连
接请求,至此客户机与服务器创建了数据交流通道。
第二步:开始聊天
主要过程是:在客户机的“发送的信息”文本框中输入文字时,服务器端的“收到
的信息”文本框中就会实时地显示相同的文字,反之亦然。
服务器的界面设计
1.创建一个“标准 EXE”工程,选中“工程”菜单的“部件”,在控件中找到
Microsoft Winsock Control 并将其选中。

2.将 Form1 的名称改为 Form_Load(),并在其中添加两个命令按钮(Command1 的
Caption 属性为“退出”,Command2 的 Caption 属性为“发送”)。
3.在窗体是添加三个 TextBox 控件,其名称分别为 txtServerIP,txtSend 和
txtReceive。
4.在窗体上添加一个 Winsock 控件,将其 Protocol(协议)属性设置为 0(即
sckTCPProtocol)。
服务器端的源代码:
Private Sub Form_Load()
'设置侦听端口
WinsockServer.LocalPort = 10001
'读取服务器的 IP 地址
txtServerIP.Text = WinsockServer.LocalIP
'开始侦听
WinsockServer.Listen
End Sub

Private Sub Command1_Click()
'点击“退出”按钮后关闭应用程序
Unload Me
End Sub
Private Sub Command2_Click()
'只要 txtSend 文本框的内容写好以后就由 WinsockServer 控件发送
WinsockServer.SendData txtSend.Text
End Sub
Private Sub WinsockServer_ConnectionRequest(ByVal requestID As Long)
'当收到连接请求时,Winsock 处于侦听状态
'此时应该使用 Close 方法关闭 Winsock,然后使用 Accept 方法接受连接请求
WinsockServer.Close
WinsockServer.Accept requestID

End Sub
Private Sub WinsockServer_DataArrival(ByVal BytesTotal As Long)
'当客户端有信息发送来时,利用 WinsockServer 控件的 GatData 方法读取数据
'并将其显示在 txtReceive 文本框中
Dim MyStr As String
WinsockServer.GetData MyStr
txtReceive.Text = MyStr
End Sub
运行界面如下图:
客户端的界面设计
剩余15页未读,继续阅读
资源评论


ZOU_ZH
- 粉丝: 0
- 资源: 11
上传资源 快速赚钱
我的内容管理 展开
我的资源 快来上传第一个资源
我的收益
登录查看自己的收益我的积分 登录查看自己的积分
我的C币 登录后查看C币余额
我的收藏
我的下载
下载帮助


安全验证
文档复制为VIP权益,开通VIP直接复制
