文檔介紹：

利用VB進行服務(wù)器編程實例匯總現(xiàn)在大多數(shù)語言都支持客戶-服務(wù)器模式編程,其中VB給我們提供了很好的客戶-服務(wù)器編程方式。下面我們用VB來實現(xiàn)TCP/IP網(wǎng)絡(luò)編程。 TCP/最重要的協(xié)議。VB提供了WinSock控件,用于在TCP/IP的基礎(chǔ)上進行網(wǎng)絡(luò)通信。當兩個應(yīng)用程序使用Socket進行網(wǎng)絡(luò)通信時,其中一個必須創(chuàng)建Socket服務(wù)器偵聽,而另一個必須創(chuàng)建Socket客戶去連接服務(wù)器。這樣兩個程序就可以進行通信了。 1.創(chuàng)建服務(wù)器,首先創(chuàng)建一個服務(wù)端口號。并開始偵聽是否有客戶請求連接。建立一窗體,并向其增加一個Winsock控件(可在工程菜單中的部件項來添加此控件),添加兩文本框Text1,Text2,mand1。 PrivateSubForm_Load() SockServer.LocalPort=2000′服務(wù)器端口號,最好大于1000 SockServer.Listen′開始偵聽 EndSub PrivateSubForm_Unload(CancelAsInteger) SockServer.Close EndSub PrivateSubSockServer_Close() SockServer.Close EndSub PrivateSubSockServer_ConnectionRequest(ByValrequestIDAsLong) SockServer.Close SockServer.AcceptrequestID′表示客戶請求連接的ID號 EndSub ′當客戶向服務(wù)器發(fā)送數(shù)據(jù)到達后,產(chǎn)生DataArrival事件,在事件中接收數(shù)據(jù),GetData方法接收數(shù)據(jù)。 PrivateSubSockServer_Data Arrival(ByValbytesTotalAsLong) DimsAsString SockServer.GetDatas Text1.Text=s EndSub 當我需要向客戶發(fā)送數(shù)據(jù)時,只需調(diào)用SendData方法。 mand1_Click() SockServer.SendDataText2.Text EndSub 2.創(chuàng)建客戶。要創(chuàng)建客戶連接服務(wù)器,首先設(shè)置服務(wù)器主機名,如IP地址、域名或計算機名,然后設(shè)置服務(wù)器端口,最后連接服務(wù)器。建立一窗體,并向其增加一個Winsock控件(可在工程菜單中的部件項來添加此控件),取名為:SockC1。添加兩文本框Text1,Text2,mand1。 PrivateSubForm_Load() SockCl.RemoteHost=′127.0.0.1″′表示服務(wù)器主機名 SockCl.RemotePort=2000 ′表示服務(wù)器端口名 SockCl.Connect ′連接到服務(wù)器EndSub PrivateSubForm_Unload(CancelAsInteger) SockCl.Close EndSub PrivateSubSockCl_Close() SockCl.Close EndSub PrivateSubSockCl_DataArrival(ByValbytesTotalAsLong) DimsAsString SockCl.GetDatas′接收數(shù)據(jù)到文本框中 Text1.Text=s EndSub mand1_Click() SockCl.SendDataText2.Text′向服務(wù)器發(fā)送數(shù)據(jù) EndSub 3.進行通信。把這兩個窗體分別編譯成兩個EXE文件,服務(wù)器Server.exe和客戶Client.exe程序,并把它們分別安裝在服務(wù)器端和客戶端,這樣就可以實現(xiàn)兩者通信了。VBSocket編程(Winsock控件創(chuàng)建TCP/IP客戶機/服務(wù)器程序)Winsock控件建立在TCP、UDP協(xié)議的基礎(chǔ)上,完成與遠程計算機的通信。即使對TCP/IP不太熟悉的用戶,使用該控件也可以在十幾分鐘內(nèi)創(chuàng)建一個簡單的客戶機/服務(wù)器程序。下面我們對Winsock控件的事件、方法、屬性按其在程序中出現(xiàn)的順序分別作詳細的介紹,以便更好地理解程序源代碼。下面是Winsock控件的相關(guān)屬性,方法和事件。(略去一些暫用不到的)*屬性-------------------------------------------------------------------------LocalHostName|本地機器名LocalIP|本地機器IP地址LocalPort|本地機器通信程序的端口(0

內(nèi)容來自淘豆網(wǎng)www.taodocs.com轉(zhuǎn)載請標明出處.

總結(jié)

以上是生活随笔為你收集整理的vb学生管理系统服务器编程,利用VB进行服务器编程实例汇总.doc的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。