文檔介紹：

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

內(nèi)容來(lái)自淘豆網(wǎng)www.taodocs.com轉(zhuǎn)載請(qǐng)標(biāo)明出處.

總結(jié)

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

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