文檔介紹：

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

內容來自淘豆網www.taodocs.com轉載請標明出處.

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。