利用VB进行服务器编程实例汇 总
现在大多数语言都支持客户-服务器模式编程,其中VB给我们提供了很好的客户-服
务器编程方式。下面我们用 VB来实现TCP/IP网络编程。
Socket进行网络通信时,其中一个必须TCP/ IP协议是In ternet 最重要的协议。VB提供了 Win Sock控件,用于在TCP/ IP
Socket进行网络通信时,其中一个必须
创建Socket服务器侦听,而另一个必须创建Socket客户去连接服务器。这样两个程序 就可以进行通信了
1 ?创建服务器,首先创建一个服务端口号。并开始侦听是否有客户请求连接。
建立一窗体,并向其增加一个 Win sock控件(可在工程菜单中的部件项来添加此控
件),添加两文本框Text1,Text2,和一按钮
件)
Private Sub Form_Load()
SockServer.LocalPort = 2000'服务器端口号,最好大于 1000
SockServer 丄iste n'开始侦听
End Sub
Private Sub Form_Unl oad(Ca ncel As In teger)
SockServer.Close
End Sub
Private Sub SockServer_Close()
SockServer.Close
End Sub
Private Sub SockServer_C onn ectio nRequest(ByVal requestID As Long) SockServer.Close
SockServer.Accept requestID'表示客户请求连接的 ID号
End Sub
'当客户向服务器发送数据到达后,产生DataArrival事件,在事件中接收数 据,GetData方法接收数据。
Private Sub SockServer_Data
Arrival(ByVal bytesTotal As Long)
Dim s As Stri ng
SockServer.GetData s
Text1.Text = s
End Sub
当我需要向客户发送数据时,只需调用Se ndData方法。
Private Sub Comma nd1_Click()
SockServer .Se ndData Text2.Text
End Sub
2?创建客户。要创建客户连接服务器,首先设置服务器主机名,如IP地址、域名
或计算机名,然后设置服务器端口,最后连接服务器。
建立一窗体,并向其增加一个 Win sock控件(可在工程菜单中的部件项来添加此控
件),取名为:SockCI。添加两文本框 Text1,Text2,和一按钮Command1
Private Sub Form_Load()
SockCl.RemoteHost = '
'表示服务器主机名
SockCl.RemotePort = 2000
'表示服务器端口名
SockCl.Co nnect
'连接到服务器
EndSub
End
Private Sub Form_Unl oad(Ca ncel As In teger) SockCl.Close
End Sub
Private Sub SockCl_Close() SockCl.Close
End Sub
Private Sub SockCI_DataArrival(ByVal bytesTotal As Long) Dim s As Stri ng
SockCl.GetData s '接收数据到文本框中 Text1.Text = s
End Sub
Private Sub Comma nd1_Click()
SockCl.Se ndData Text2.Text'向服务器发送数据
End Sub
3.进行通信。把这两个窗体分别编译成两个 EXE文件,服务器Server.exe和客户 Clie nt.exe程序,并把它们分别安装在服务器端和客户端,这样就可以实现两者通信
了。
VB Socket编程(Winsock控件创建TCP/IP客户机/服务器程序)
Win sock控件建立在TCP UDP协议的基础上,完成与远程计算机的通信。即使对 TCP/IP不太熟悉的用户,使用该控件也可以在十几分钟内创建一个简单的客户机/服
务器程序。下面我们对 Win sock控件的事件、方法、属性按其在程序中出现的顺序分别 作详细的介绍,以便更好地理解程序源代码。
下面是Win sock控件的相关属性,方法和事件。(略去一些暂用不到的)
属性
LocalHostName |本地机器名
LocallP | 本地机器IP地址
LocalPort |本地机器通信程序的端口 (0
RemoteHos