VB網(wǎng)絡(luò)程序的設(shè)計(jì)說(shuō)明

1、VB,網(wǎng)絡(luò)程序設(shè)計(jì),1,1,網(wǎng)絡(luò)聊天程序任務(wù),1.1,任務(wù)描述,VB,提供了一系列的網(wǎng)絡(luò)編程控件，利用它們，網(wǎng),絡(luò)編程將成為一件快樂(lè)而簡(jiǎn)單的工作,VB,網(wǎng)絡(luò)控件主要有三種,1,Winsok,控件,主要用于編制基于,TCP/IP,或,UDP,協(xié)議的網(wǎng)絡(luò)應(yīng)用程序,2,Internet Transfer,控件,主要以來(lái)傳輸文件,執(zhí)行,FTP,命令以及登錄服務(wù)器等,3,WebBrowser,用于創(chuàng)建瀏覽器,本節(jié)先介紹,Winsok,控件,2,在網(wǎng)絡(luò)編程中最常用的方案是客戶(hù)機(jī),服務(wù)器,模式,Client/Server,簡(jiǎn)稱(chēng),C/S,。這種模式包,含客戶(hù)機(jī)和服務(wù)器兩類(lèi)應(yīng)用程序。其中客戶(hù)應(yīng)用,程序向服務(wù)器請(qǐng)

2、求服務(wù)，而服務(wù)程序通常在一個(gè),眾所周知的地址偵聽(tīng)對(duì)服務(wù)的請(qǐng)求，也就是說(shuō),服務(wù)進(jìn)程一直處于休眠狀態(tài)，直到一個(gè)客戶(hù)提出,了連接請(qǐng)求。此時(shí)，服務(wù)持續(xù)將被喚醒，并對(duì)客,戶(hù)的請(qǐng)求作出適當(dāng)?shù)姆磻?yīng),3,聊天服務(wù)程序,由客戶(hù)端和服務(wù)端兩個(gè)程序,組成，采用,Winsok,控件開(kāi)發(fā)。這兩個(gè)程序可以在,同一臺(tái)計(jì)算機(jī)上運(yùn)行，也可以在網(wǎng)絡(luò)上不同的計(jì),算機(jī)上運(yùn)行。整個(gè)系統(tǒng)的運(yùn)行機(jī)制是,第一步：建立連接,主要過(guò)程是：由客戶(hù)端程序向服務(wù)端程序發(fā),出連接請(qǐng)求，服務(wù)端程序收到并接受連接請(qǐng)求,至此客戶(hù)機(jī)與服務(wù)器創(chuàng)建了數(shù)據(jù)交流通道,第二步：開(kāi)始聊天,主要過(guò)程是：在客戶(hù)機(jī)的“發(fā)送的信息”文,本框中輸入文字時(shí)，服務(wù)器端的“收到的信息,文

3、本框中就會(huì)實(shí)時(shí)地顯示相同的文字，反之亦然,4,1. Winsock,控件主要用來(lái)編制,TCP/IP,或,協(xié)議的通話(huà),程序,答案,UDP,2,在網(wǎng)絡(luò)編程中最常用的方案是,答案：客戶(hù)機(jī),服務(wù)器程序,Client/Server,5,P215,習(xí)題,三、問(wèn)答題,2,簡(jiǎn)述網(wǎng)絡(luò)聊天程序的運(yùn)行過(guò)程,答：網(wǎng)絡(luò)聊天程序的運(yùn)行過(guò)程是,第一步：建立連接,主要過(guò)程是：由客戶(hù)端程序向服務(wù)端程序發(fā),出連接請(qǐng)求，服務(wù)端程序收到并接受連接請(qǐng)求,至此客戶(hù)機(jī)與服務(wù)器創(chuàng)建了數(shù)據(jù)交流通道,第二步：開(kāi)始聊天,主要過(guò)程是：在客戶(hù)機(jī)的“發(fā)送的信息”文,本框中輸入文字時(shí)，服務(wù)器端的“收到的信息,文本框中就會(huì)實(shí)時(shí)地顯示相同的文字，反之亦然,6

4、,1.2,服務(wù)器的界面設(shè)計(jì),1,創(chuàng)建一個(gè)“標(biāo)準(zhǔn),EXE,工程，選中“工程”菜單,的“部件”，在控件中找到,Microsoft Winsock,Control,并將其選中,2,將,Form1,的名稱(chēng)改為,frmSvr,并在其中添加兩個(gè),命令按鈕,Command1,的,Caption,屬性為“退出,Command2,的,Caption,屬性為“發(fā)送”,3,在窗體是添加三個(gè),TextBox,控件，其名稱(chēng)分別為,txtServerIP,txtSend,和,txtReceive,4,在窗體上添加一個(gè),Winsock,控件，將其,Protocol,協(xié)議）屬性設(shè)置為,0,即,sckTCPProtocol,7

5、,1.3,服務(wù)器程序代碼設(shè)計(jì),Private Sub Form_Load(,設(shè)置偵聽(tīng)端口,WinsockServer.LocalPort = 10001,讀取服務(wù)器的,IP,地址,TxtServerIP.Text = WinsockServer.LocalIP,開(kāi)始偵聽(tīng),WinsockServer.Listen,End Sub,Private Sub Command1_Click(,點(diǎn)擊“退出”按鈕后關(guān)閉應(yīng)用程序,Unload Me,End Sub,8,1.3,服務(wù)器程序代碼設(shè)計(jì),Private Sub Command2_Click(,只要,txtSend,文本框的內(nèi)容寫(xiě)好以后就由,Winso

6、ckServer,控件發(fā)送,WinsockServer.SendData TxtSend.Text,End Sub,Private Sub WinsockServer_ConnectionRequest(ByVal requestID,As Long,當(dāng)收到連接請(qǐng)求時(shí),Winsock,處于偵聽(tīng)狀態(tài),此時(shí)應(yīng)該使用,Close,方法關(guān)閉,Winsock,然后使用,Accept,方法接,受連接請(qǐng)求,WinsockServer.Close,WinsockServer.Accept requestID,End Sub,9,1.3,服務(wù)器程序代碼設(shè)計(jì),Private Sub WinsockServer_D

7、ataArrival(ByVal,BytesTotal As Long,當(dāng)客戶(hù)端有信息發(fā)送來(lái)時(shí)，利用,WinsockServer,控件,的,GatData,方法讀取數(shù)據(jù),并將其顯示在,txtReceive,文本框中,Dim MyStr As String,WinsockServer.GetData MyStr,TxtReceive.Text = MyStr,End Sub,10,1.4,客戶(hù)機(jī)程序界面設(shè)計(jì),1,創(chuàng)建一個(gè)新的“標(biāo)準(zhǔn),EXE,工程，并添加,Winsock,控件,2,將,Form1,的名稱(chēng)改為,frmClt,并在其中添加兩個(gè),命令按鈕,Command1,的,Caption,屬性為“退

8、出,Command2,的,Caption,屬性為“連接服務(wù)器,Command3,的,Caption,屬性為“發(fā)送”,3,在窗體是添加四個(gè),TextBox,控件，其名稱(chēng)分別為,txtClientIP,txtServerIP,txtSend,和,txtReceive,4,在窗體上添加一個(gè),Winsock,控件，將其,Protocol,協(xié)議）屬性設(shè)置為,0,即,sckTCPProtocol,11,1.4,客戶(hù)機(jī)的程序代碼設(shè)計(jì),Private Sub,Form_Load(,設(shè)置聊天服務(wù)器的偵聽(tīng)端口,WinsockClient.RemotePort = 10001,讀取本機(jī)的,IP,地址,txtClie

9、ntIP,Text = WinsockClient.LocalIP,End Sub,Private Sub Command1_Click(,點(diǎn)擊“退出”按鈕后關(guān)閉應(yīng)用程序,Unload Me,End Sub,12,1.4,客戶(hù)機(jī)的程序代碼設(shè)計(jì),Private Sub Command2_Click(,根據(jù),txtServerIP,文本框中輸入的服務(wù)器,IP,連接聊,天服務(wù)器,WinsockClient.RemoteHost = txtServerIP.Text,WinsockClient.Connect,End Sub,Private Sub Command3_Click(,輸入,txtSend

10、,文本框的內(nèi)容后由,WinsockServer,控,件發(fā)送,WinsockClient.SendData txtSend.Text,End Sub,13,1.4,客戶(hù)機(jī)的程序代碼設(shè)計(jì),Private Sub WinsockClient_Connect(,如果與服務(wù)器連接成功，則向用戶(hù)提供下列信息,MsgBox,你,成,功,地,與,聊,天,服,務(wù),器,進(jìn),行,了,連,接,vbInformation,End Sub,Private,Sub,WinsockClient_DataArrival(ByVal,BytesTotal,As Long,當(dāng),服,務(wù),器,有,信,息發(fā),送,來(lái),時(shí),利,用,Wins

11、ockClient,控,件,的,GatData,方法讀取數(shù)據(jù),并將其顯示在,txtReceive,文本框中,Dim MyStr As String,WinsockClient.GetData MyStr,txtReceive.Text = MyStr,End Sub,14,演示聊天程序,15,2 Winsock,控件及網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)基礎(chǔ),Winsock,控件是建立在,TCP,協(xié)議的基礎(chǔ)上，能夠完成,遠(yuǎn)程計(jì)算機(jī)間的通信，用途非常廣泛。即使我們對(duì),TCP/IP,TCP,這些知識(shí)不太熟悉，只要理解了網(wǎng)絡(luò)應(yīng),用程序設(shè)計(jì)的一般原理，并對(duì),Winsock,的主要屬性、方,法和事件有所了解，也可以在很短時(shí)

12、間內(nèi)創(chuàng)建一個(gè)簡(jiǎn)單,的網(wǎng)絡(luò)通信程序,16,2.1 Winsock,控件的主要屬性,Winsock,控件主要有八個(gè)屬性,1,BytesReceived,屬性：返回接收到的數(shù)據(jù)。通常用,GetData,方法來(lái)獲取這些數(shù)據(jù),2. LocalHostName,屬性：返回本地計(jì)算機(jī)的名稱(chēng),3. LocalIP,屬性：返回本地計(jì)算機(jī)的,IP,地址,4,LocalPost,屬性：返回或者設(shè)置所用的端口，如果設(shè)置為,0,則使用隨機(jī)端口,5,Protocol,屬性：返回或設(shè)置,Winsock,所用的協(xié)議,TCP,或,UDP,6. RemoteHostName,屬性，返回或設(shè)置遠(yuǎn)程計(jì)算機(jī)的名稱(chēng),7. RemoteH

13、ostIP,屬性，返回遠(yuǎn)程計(jì)算機(jī)的,IP,地址,State,屬性：返回,Winsock,控件的當(dāng)前狀態(tài),17,Winsock,控件的,State,屬性,符號(hào)常數(shù),sckClosed,值,含義,0,關(guān)閉狀態(tài)，缺省值,1,打開(kāi)狀態(tài),2,偵聽(tīng)狀態(tài),sckOpen,sckListening,sckConnectionPending,sckResolvingHost,sckHostResolved,sckConnecting,Sckconnected,sckClosing,sckErros,3,4,5,6,7,8,9,連接狀態(tài),解析主機(jī),以解析的主機(jī),正在連接,已經(jīng)連接,客戶(hù)端正在關(guān)閉連接,錯(cuò)誤,18,

14、3,如果希望得到本地計(jì)算機(jī)的,IP,地址，可以使用,Winsock,控件的,屬性,答案,LocalIP,4. Winsock,控件的,BytesReceived,屬性返回接收到的,數(shù)據(jù)，通常使用,方法來(lái)獲取這些數(shù)據(jù),答案,GetData,3,如果,Winsock1.LocaPort=0,那么應(yīng)用程序,將,答案：使用隨機(jī)端口,19,2.2 Winsock,控件的主要方法,Winsock,控件的方法主要有六個(gè),1. Listen,方法,語(yǔ)法,Winsock,對(duì)象,Listen,作用：使服務(wù)器處于偵聽(tīng)狀態(tài)，等待客戶(hù)訪(fǎng)問(wèn),2. Connect,方法,語(yǔ)法,Winsock,對(duì)象,Connect,遠(yuǎn)程主機(jī)

15、,IP,遠(yuǎn),程端口,作用：用于向遠(yuǎn)程主機(jī)發(fā)出連接請(qǐng)求,3. Accept,方法,語(yǔ)法,Winsock,對(duì)象,Accept RequestID,作用：用于接受一個(gè)連接請(qǐng)求，其中,RequestID,是客戶(hù)機(jī)發(fā)來(lái)的請(qǐng)求信號(hào),20,2.2 Winsock,控件的主要方法,Winsock,控件的方法主要有六個(gè),4. SendData,方法,語(yǔ)法,Winsock,對(duì)象,SendData,數(shù)據(jù),作用：用于發(fā)送數(shù)據(jù),5. GetData,方法,語(yǔ)法,Winsock,對(duì)象,GetData,變量,數(shù)據(jù)類(lèi)型,最大長(zhǎng)度,作用：用來(lái)獲得接收到的數(shù)據(jù),6. Clcse,方法,語(yǔ)法,Winsock,對(duì)象,Close,作用

16、：關(guān)閉當(dāng)前連接,21,5. Winsock1.Listen,語(yǔ)句的含義是,答案,LocalIP,使服務(wù)器處于偵聽(tīng)狀態(tài)，等待客戶(hù)訪(fǎng)問(wèn),22,2.3 Winsock,控件的主要事件,Winsock,控件的事件主要有兩個(gè),1.DataArrival,事件：一旦數(shù)據(jù)到達(dá)，就會(huì)觸發(fā),該事件。它通常與,GetData,方法一起使用，通,過(guò),GetData,方法獲得新到達(dá)的數(shù)據(jù),2,ConnectionRequest,事,件,當(dāng),客,戶(hù),機(jī),使,用,Connect,方法請(qǐng)求連接時(shí)觸發(fā)該事件，它通常,與,Accept,方法一起使用，用來(lái)接受客戶(hù)機(jī)的連,接請(qǐng)求,23,1,一旦數(shù)據(jù)到達(dá)，將首先觸發(fā),Winsock

17、,控件的,A. DataArrival,事件,B. ConnectionRequest,事件,C. DataSand,事件,D. DataGet,事件,答案,B,24,2,要發(fā)送數(shù)據(jù)，通常使用,Winsock,控件的,A. SendData,方法,B. Listen,方法,C. Accept,方法,D. GetData,方法,答案,A,25,3,當(dāng),Winsock,控件處于關(guān)閉狀態(tài)時(shí)，其,State,屬性的,值是,A. 1,B. 0,C. 2,D. 6,答案,B,26,4,當(dāng),Winsock,控件的,LocalPort,屬性的作用是,A,僅返回所有端口,B,僅設(shè)置所有端口,C,返回或設(shè)置所有端

18、口,D,返回或設(shè)置,IP,地址,答案,B,27,5,當(dāng)使用,SendData,將數(shù)據(jù)發(fā)送到主機(jī)后時(shí)，將觸發(fā),的,Winsock,控件的是,A. SendProgress,B. MouseDown,C. Click,D. KeyPress,答案,A,28,2.4,網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)基礎(chǔ),1,基于,Socket,的通信過(guò)程,Winsock,控件是基于,Socket,接口（套接字）創(chuàng)建的,它是現(xiàn)在,TCP/IP,網(wǎng)絡(luò)中最通用的,API,應(yīng)用程序,接口），也是在,Internet,上進(jìn)行應(yīng)用程序開(kāi)發(fā)最,通用的,API,Windows Socket,規(guī)范已成為,Windows,網(wǎng)絡(luò)編程的標(biāo)準(zhǔn),Socket

19、,在計(jì)算機(jī)中提供了一個(gè)通信端口，可以通,過(guò)這個(gè)端口與任何一個(gè)也同樣具有,Socket,接口的,計(jì)算機(jī)進(jìn)行通信。應(yīng)用程序在網(wǎng)絡(luò)上傳輸、接收,的,信,息,都,通,過(guò),這,個(gè),Socket,接,口,來(lái),實(shí),現(xiàn),基,于,Socket,的通信過(guò)程如下頁(yè)圖所示,29,通信細(xì)節(jié),發(fā)送,接收,Socket,應(yīng)用程序,A,Socket,接收,發(fā)送,應(yīng)用程序,B,利用,Socket,進(jìn)行網(wǎng)絡(luò)編程，只需對(duì),Socket,接口進(jìn)行,數(shù)據(jù)的讀寫(xiě)操作，根本不必關(guān)心兩臺(tái)計(jì)算機(jī)間的通,信細(xì)節(jié)就能夠完成數(shù)據(jù)的發(fā)送和接收工作,30,P 215,習(xí)題,三,問(wèn)答題,1,簡(jiǎn)述基于,Socket,的通信過(guò)程,通信細(xì)節(jié),發(fā)送,接收,Soc

20、ket,發(fā)送,應(yīng)用程序,B,接收,Socket,應(yīng)用程序,A,利用,Socket,進(jìn)行網(wǎng)絡(luò)編程，只需對(duì),Socket,接口進(jìn)行數(shù)據(jù)的,讀寫(xiě)操作，根本不必關(guān)心兩臺(tái)計(jì)算機(jī)間的通信細(xì)節(jié)就能夠完,成數(shù)據(jù)的發(fā)送和接收工作,31,2,基于,Winsock,控件的開(kāi)發(fā)模式,VB,提供的,Winsock,控件正是基于,Socket,規(guī)范創(chuàng)建的,利用,Winsock,控件開(kāi)發(fā)網(wǎng)絡(luò)通信系統(tǒng)時(shí)，通常要涉,及到服務(wù)器和客戶(hù)機(jī)兩類(lèi)應(yīng)用程序,1,服務(wù)器程序的開(kāi)發(fā)模式,服務(wù)器程序必須設(shè)置好,LocalPort,屬性，作為偵聽(tīng),端口。該值可設(shè)置成任何一個(gè)整數(shù)，只要其它應(yīng),用程序沒(méi)有使用過(guò)的值即可，單習(xí)慣上應(yīng)大于,1000,使

21、用,Listen,方法使服務(wù)器進(jìn)入偵聽(tīng)狀態(tài)，等待客戶(hù),機(jī)的連接請(qǐng)求,32,2,基于,Winsock,控件的開(kāi)發(fā)模式,1,服務(wù)器程序的開(kāi)發(fā)模式,客戶(hù)機(jī)程序發(fā)出連接請(qǐng)求后，將觸發(fā)服務(wù)器程序,的,ConnectionRequest,事件，該事件得到一個(gè)參數(shù),RequestID,服務(wù)器程序使用,Accept,方法接受客戶(hù)機(jī)程序的,RequestID,請(qǐng)求。至此，服務(wù)器程序就可以使用,SendData,方法向客戶(hù)機(jī)發(fā)送數(shù)據(jù)了,當(dāng)服務(wù)器接收到數(shù)據(jù)時(shí)，會(huì)產(chǎn)生,DataArrival,事件,在該事件中可使用,GetData,方法接收數(shù)據(jù),33,34,3,簡(jiǎn)述基于,Winsock,控件的開(kāi)發(fā)過(guò)程,答,1,服務(wù)器

22、程序的開(kāi)發(fā)模式,服務(wù)器程序必須設(shè)置好,LocalPort,屬性，作為偵聽(tīng)端,口。使用,Listen,方法使服務(wù)器進(jìn)入偵聽(tīng)狀態(tài)，等待,客戶(hù)機(jī)的連接請(qǐng)求。客戶(hù)機(jī)程序發(fā)出連接請(qǐng)求后,將觸發(fā)服務(wù)器程序的,ConnectionRequest,事件，該事,件,得,到,一,個(gè),參,數(shù),RequestID,服,務(wù),器,程,序,使,用,Accept,方法接受客戶(hù)機(jī)程序的,RequestID,請(qǐng)求。至,此，服務(wù)器程序就可以使用,SendData,方法向客戶(hù)機(jī),發(fā)送數(shù)據(jù)了。當(dāng)服務(wù)器接收到數(shù)據(jù)時(shí)，會(huì)產(chǎn)生,DataArrival,事件。在該事件中可使用,GetData,方法,接收數(shù)據(jù),35,3,簡(jiǎn)述基于,Winsock

23、,控件的開(kāi)發(fā)過(guò)程,2,客戶(hù)機(jī)程序的開(kāi)發(fā)模式,首先設(shè)置好,RemoteHost,屬性，用來(lái)指向運(yùn)行服務(wù)器,程序的遠(yuǎn)程計(jì)算機(jī)的的主機(jī)名或,IP,地址。設(shè)置,RemotePort,屬性，用來(lái)指向服務(wù)器程序的偵聽(tīng)端口,號(hào)。使用,Connect,方法向服務(wù)器提出連接請(qǐng)求。如,果服務(wù)器接受了上述請(qǐng)求，客戶(hù)機(jī)程序就會(huì)產(chǎn)生,Connect,事件。連接成功后，就可以根據(jù)需要使用,SendData,方法向服務(wù)器發(fā)送數(shù)據(jù)了。當(dāng)客戶(hù)機(jī)程序,接收的數(shù)據(jù)時(shí)，就會(huì)產(chǎn)生,DataArrival,事件，可以用,GetData,方法接收數(shù)據(jù),36,3,其它網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì),3.1,局域網(wǎng)中保證聯(lián)網(wǎng)計(jì)算機(jī)時(shí)間同步,當(dāng)采用客戶(hù)機(jī),服

24、務(wù)器模式在局域網(wǎng)上開(kāi)發(fā)系統(tǒng)時(shí),必須保證所有計(jì)算機(jī)的時(shí)鐘時(shí)間一致。在就需要用到統(tǒng),一的時(shí)間，以便協(xié)調(diào)工作，最號(hào)的方法就是通過(guò)程序的,方法，解決時(shí)鐘同步的問(wèn)題,37,數(shù)據(jù)服務(wù)器,MyServer,應(yīng)用程序,1,應(yīng)用程序,2,應(yīng)用程序,n,這是某一應(yīng)用系統(tǒng)的網(wǎng)絡(luò)拓補(bǔ)結(jié)構(gòu)，我們可以采用,Winsock,控件解決眾多客戶(hù)機(jī)與數(shù)據(jù)服務(wù)器間的時(shí)間同步問(wèn)題,38,解決時(shí)鐘同步的基本思路是：首先精確調(diào)整服,務(wù)器的時(shí)鐘，然后，當(dāng)客戶(hù)機(jī)啟動(dòng)時(shí)與服務(wù)器連接,并與服務(wù)器“對(duì)時(shí)”。這樣，每當(dāng)執(zhí)行應(yīng)用程序時(shí),客戶(hù)機(jī)就會(huì)與服務(wù)器時(shí)鐘同步了,39,P215,習(xí)題,三、問(wèn)答題,4,如何保證局域網(wǎng)中聯(lián)網(wǎng)的計(jì)算機(jī)同步運(yùn)行,答,解決時(shí)

25、鐘同步的基本思路是：首先精確調(diào)整服,務(wù)器的時(shí)鐘，然后，當(dāng)客戶(hù)機(jī)啟動(dòng)時(shí)與服務(wù)器連接,并與服務(wù)器“對(duì)時(shí)”。這樣，每當(dāng)執(zhí)行應(yīng)用程序時(shí),客戶(hù)機(jī)就會(huì)與服務(wù)器時(shí)鐘同步了,40,1,客戶(hù)機(jī)程序的主要代碼,1,與服務(wù)器建立連接,在客戶(hù)機(jī)主窗體的,Load,事件中連接服務(wù)器程序，具體方法與,聊天程序相同,Private Sub Form_Load(,設(shè)置聊天服務(wù)器的偵聽(tīng)端口,WinsockClient.RemotePort = 10001,讀取本機(jī)的,IP,地址,txtClientIP,Text = WinsockClient.LocalIP,根據(jù),txtServerIP,文本框中輸入的服務(wù)器,IP,連接聊天服

26、務(wù)器,WinsockClient.RemoteHost = txtServerIP.Text,WinsockClient.Connect,如果與服務(wù)器連接成功，則向用戶(hù)提供下列信息,MsgBox,你成功地與聊天服務(wù)器進(jìn)行了連接,End Sub,41,2,其它代碼,Private Sub WinsockClient_DataArrival(ByVal bytesTotal,當(dāng)收到服務(wù)器發(fā)來(lái)的數(shù)據(jù)時(shí)，完成以下工作,1,日期數(shù)據(jù)類(lèi)型接收數(shù)據(jù),2,設(shè)置本機(jī)的系統(tǒng)日期,定義一個(gè)日期類(lèi)型數(shù)據(jù)變量,Dim MyDate As Date,以日期數(shù)據(jù)類(lèi)型接受服務(wù)器日期數(shù)據(jù),WinsockClient.GetDa

27、ta MyDate,VbDate,使本機(jī)的系統(tǒng)日期等于服務(wù)器日期,Date=MyDate,End Sub,42,2,服務(wù)端程序主要代碼,Private Sub WinsockServer_ConnectionRequest _,ByVal RequestID As Long,當(dāng)收到客戶(hù)機(jī)的連接請(qǐng)求時(shí)，完成以下工作,1,結(jié)束,Winsock,的偵聽(tīng)狀態(tài),2,接受連接請(qǐng)求,3,將服務(wù)器的系統(tǒng)日期發(fā)送給客戶(hù)機(jī),WinsockServer.Close,WinsockServer.Accept RequestID,將系統(tǒng)當(dāng)前的時(shí)間,Date,發(fā)送給提出請(qǐng)求的客戶(hù)機(jī),WinsockServer.SendDate,End Sub,43,3.2 Web,瀏覽器,1,一個(gè)簡(jiǎn)單的瀏覽器應(yīng)用程序示例,1,創(chuàng)建一個(gè)新的“標(biāo)準(zhǔn),EXE,工程。利用“工程”菜單的,部件”選項(xiàng)添加,Windows,Internet,Controls,以獲得對(duì),WebBrowser,控件的支持,2,在,Form1,窗口上添加,Text1,Command1,和,WebBrowser1,等,控件,3,在,Command1,控件的,Click,事件中，添加如下代碼,Private Sub Command1_Click(,連接要瀏覽的網(wǎng)站地址,WebBrowser1.Navigate Te