利用WinSock实现简单网络编程
2006-09-05 16:38
519 查看
利用WinSock可以实现TCP、UDP协议通信。我们知道,网络通信要找三个地址即网络地址、主机地址、服务地址(端口号)。通过机器的IP地址和子网掩码计算可以得到网络和主机地址。而每个机器的服务地址(端口号)有65536个。下面就谈一下怎样利用WinSock实现网络通信。
服务器端程序编写:建立一个窗体,添加一个Text控件用于存放发送信息的内容、一个命令按钮(cmdSend)用于发送信息、两个WinSock控件(sckListen,sckServer),一个用于监听、一个用于接受。把sckServer的Localport 属性设为8001(一定不要和sckListen的端口号一样即可)。
程序代码如下:
Private Sub cmdSend_Click()
sckServer.SendData Text1.Text
End Sub
Private Sub Form_Load()
sckListen.LocalPort = 8000
sckListen.Listen
End Sub
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
sckServer.Accept requestID
cmdSend.Enabled = True
End Sub
Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim s As String
sckServer.GetData s, vbString, bytesTotal
MsgBox s
End Sub
工作站端程序编写:建立一个窗体,添加一个Text控件用于存放发送信息的内容、一个命令按钮(cmdSend)用于发送信息、一个WinSock控件(sckClient)用于接受信息。把sckClient的Localport 属性设为8002。
程序代码如下:
Private Sub cmdSend_Click()
sckClient.SendData Text1.Text
End Sub
Private Sub Form_Load()
Dim sIP As String
sIP = InputBox("Please Input IP address", sckClient.LocalIP)
sckClient.Connect sIP, 8000
End Sub
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim s As String
sckClient.GetData s, vbString, bytesTotal
MsgBox s
End Sub
使用方法:在服务器端启动服务程序,运行工作站程序,输入服务器主机的IP地址,在Text 框中输入要发送的内容,单击发送命令按钮,此时服务器就会接受到信息。这时在服务器的文本框输入发送的内容,单击发送命令按钮,此时工作站就会接受到信息。
当然,这只是个简单的测试程序,在实际应用中可以利用变量、数据库等做很多事情。同时这个程序只能一对一的传送,想实现一个服务器多个工作站方式,可以在服务器端多建立几个Winsock接收控件,一个控件对应一个工作站,但要注意,Winsock控件的Localport 属性要不一样。即一个端口对应一个服务。
服务器端程序编写:建立一个窗体,添加一个Text控件用于存放发送信息的内容、一个命令按钮(cmdSend)用于发送信息、两个WinSock控件(sckListen,sckServer),一个用于监听、一个用于接受。把sckServer的Localport 属性设为8001(一定不要和sckListen的端口号一样即可)。
程序代码如下:
Private Sub cmdSend_Click()
sckServer.SendData Text1.Text
End Sub
Private Sub Form_Load()
sckListen.LocalPort = 8000
sckListen.Listen
End Sub
Private Sub sckListen_ConnectionRequest(ByVal requestID As Long)
sckServer.Accept requestID
cmdSend.Enabled = True
End Sub
Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
Dim s As String
sckServer.GetData s, vbString, bytesTotal
MsgBox s
End Sub
工作站端程序编写:建立一个窗体,添加一个Text控件用于存放发送信息的内容、一个命令按钮(cmdSend)用于发送信息、一个WinSock控件(sckClient)用于接受信息。把sckClient的Localport 属性设为8002。
程序代码如下:
Private Sub cmdSend_Click()
sckClient.SendData Text1.Text
End Sub
Private Sub Form_Load()
Dim sIP As String
sIP = InputBox("Please Input IP address", sckClient.LocalIP)
sckClient.Connect sIP, 8000
End Sub
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim s As String
sckClient.GetData s, vbString, bytesTotal
MsgBox s
End Sub
使用方法:在服务器端启动服务程序,运行工作站程序,输入服务器主机的IP地址,在Text 框中输入要发送的内容,单击发送命令按钮,此时服务器就会接受到信息。这时在服务器的文本框输入发送的内容,单击发送命令按钮,此时工作站就会接受到信息。
当然,这只是个简单的测试程序,在实际应用中可以利用变量、数据库等做很多事情。同时这个程序只能一对一的传送,想实现一个服务器多个工作站方式,可以在服务器端多建立几个Winsock接收控件,一个控件对应一个工作站,但要注意,Winsock控件的Localport 属性要不一样。即一个端口对应一个服务。
相关文章推荐
- 利用WinSock实现简单网络编程
- DirectX编程:C#中利用Socket实现网络语音通信[初级版本]
- Linux 网络编程基础 客户端/服务器的简单实现
- DirectX编程:C#中利用Socket实现网络语音通信
- DirectX编程:C#中利用Socket实现网络语音通信[初级版本]
- linux网络编程之socket(六):利用recv和readn函数实现readline函数
- java网络编程六:DatagramSocket类简单实现文件下载
- 网络编程--python 实现简单的UDP客户端和服务端
- 一个使用监听器模式实现的J2ME网络编程框架,包括一个简单的登录功能实现(含源代码)
- Linux 网络编程基础(一) ---------------客户端/服务器的简单实现
- 一些利用递归思想的简单编程题(JS实现)
- Python 网络编程---简单的服务器与客户端实现---阻塞式编写
- linux网络编程之socket(六):利用recv和readn函数实现readline函数
- C# 网络编程(1)——C# 简单实现局域网内通信
- .Net网络通讯编程[利用Socket实现字串、文件、序列化对象传输]--使用封装的网络服务1[使用IE浏览本页]
- Java网络编程:简单聊天机器人实现案例
- windows网络编程【003】实现简单WSASocket的C/S结构
- Linux网络编程之进程、线程池及实现简单线程池
- 基于visual c++之windows核心编程代码分析(59)实现网络简单代理编程
- java网络编程:DatagramSocket类简单实现文件下载