【正文】
( 1)與服務(wù)器建立連接 參見網(wǎng)絡(luò)聊天開發(fā)程序 ( 2)其他代碼 Private Sub WinsockClient_DataArrival(ByVal bytesTotal As Long) Dim MyDate As Date MyDate,vbDate Date =MyDate:End Sub 其他網(wǎng)絡(luò)應(yīng)用程序設(shè)計 局域網(wǎng)中保證聯(lián)網(wǎng)計算機(jī)時間同步 服務(wù)器端主要程序代碼 Private Sub WinsockServer_ConnectionRequest (ByVal requestID As Long) requestID Date End Sub 其他網(wǎng)絡(luò)應(yīng)用程序設(shè)計 Web瀏覽器 一個簡單的瀏覽器應(yīng)用程序 ( 1)創(chuàng)建一個“標(biāo)準(zhǔn) EXE”工程。打開“工程”菜單的“部件”命令,添加“ Windows Inter Controls” ( 2)添加 Text Command WebBrowser1控件 ( 3)在 Command1的 Click事件中添加代碼: ( 4)運行程序,在 Text1文本框中輸入網(wǎng)址后,單擊 Command1連接按鈕。 小結(jié) 1.掌握 Winsock控件的基本用法 了解網(wǎng)絡(luò)應(yīng)用程序設(shè)計的基礎(chǔ)知識 了解網(wǎng)絡(luò)聊天應(yīng)用程序的開發(fā)過程