最新使用vb設(shè)計(jì)聊天室多點(diǎn)對(duì)多點(diǎn)網(wǎng)絡(luò)程序設(shè)計(jì)(更新版)
【正文】 ction = True Status 偵察... 連接. SendData Accepted, Exit SubIDERROR: MsgBox , vbCriticalEnd Sub主要作用：判斷是否接收信息。 vbCrLf //發(fā)送過來的信息，換行顯示End Sub圖3 編輯服務(wù)端主窗口客戶端：Option Explicit //強(qiáng)制聲明變量Private Sub Command1_Click()If = 7 And Then //winsock=7表示已連接 //發(fā)送數(shù)據(jù) = amp。ListenSenddata：發(fā)送數(shù)據(jù)。格式：對(duì)象。那么該如何使用Winsock控件呢？它可以被應(yīng)用在那些類型的應(yīng)用程序之中呢？以下所列出的內(nèi)容，是這個(gè)控件可以應(yīng)用的大致范圍：*將客戶端所收集的數(shù)據(jù)，傳送給主機(jī)端。有些屬性可以在設(shè)計(jì)時(shí)通過屬性窗口來設(shè)置，不用編寫任何代碼；而有些屬性則必須通過編寫代碼，在運(yùn)行程序的同時(shí)進(jìn)行設(shè)置。例如，在命令按鈕（Command Button）這一對(duì)象上可能發(fā)生鼠標(biāo)單擊（Click）、鼠標(biāo)移動(dòng)（Mouse Move）、鼠標(biāo)按下（Mouse Down）等鼠標(biāo)事件，也可能發(fā)生鍵盤按下（Key Down）等鍵盤事件。課 程 設(shè) 計(jì) 任 務(wù) 書 ，根據(jù)網(wǎng)絡(luò)數(shù)據(jù)傳輸原理設(shè)計(jì)聊天室軟件，具體要求：1) 學(xué)習(xí)計(jì)算機(jī)網(wǎng)絡(luò)連接原理； 2) 學(xué)習(xí)網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)幕驹恚?3) 學(xué)習(xí)網(wǎng)絡(luò)連接的底層協(xié)議； 4) 設(shè)計(jì)聊天室軟件； 5) 面向用戶的操作界面； 6) 具有文件共享功能。事件又可分為鼠標(biāo)事件和鍵盤事件?？梢酝ㄟ^屬性改變對(duì)象的特性。在執(zhí)行過程之中，不會(huì)具有任何選用、可見的控件。Bina端口號(hào)，ip地址close：關(guān)閉連接。格式：對(duì)象。 strdata amp。Private Sub Form_Load() = Port bInconnection = False Status 偵察.... (沒有連接)End Sub主要作用：設(shè)置連接端口并偵察網(wǎng)絡(luò)。 a 4169 byte string of ining data Put 1, , NewArrival$ txtView = txtView amp。圖5 編輯服務(wù)端文件傳輸窗口傳輸窗口（客戶端）：Private Sub cmdConnect_Click() bReplied = False , 1256 lTIme = 0 While (Not bReplied) And (lTIme 100000) DoEvents lTIme = lTIme + 1 Wend If lTIme = 100000 Then MsgBox 找不到服務(wù)器！, vbCritical, Connection Error Exit Sub End If = True = TrueEnd Sub主要作用：實(shí)現(xiàn)與服務(wù)器的連接。 close the file Close 1 Status 文件發(fā)送成功... Pause 3000 Status Connected. Case Else Put 1, , NewArrival$ txtView = txtView am
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1