簡(jiǎn)單局域網(wǎng)聊天工具.doc

TCP/IP協(xié)議及網(wǎng)絡(luò)編程技術(shù)設(shè)計(jì)報(bào)告簡(jiǎn)單局域網(wǎng)聊天工具摘要：本項(xiàng)目是在Visual Basic 6.0環(huán)境中，利用Winsock控件開(kāi)發(fā)一個(gè)基于局域網(wǎng)的聊天工具。具體內(nèi)容是局域網(wǎng)內(nèi)部的聊天軟件，基于VB編程的基礎(chǔ)上，利用Winsock控件，選擇TCP協(xié)議提供可靠的、面向連接的傳輸控制，選擇協(xié)議的配置，確定你的計(jì)算機(jī)名 ，然后進(jìn)行連接。本組完成的局域網(wǎng)聊天工具。關(guān)鍵詞： Winsock控件， TCP協(xié)議，局域網(wǎng)聊天工具隨著網(wǎng)絡(luò)技術(shù)的發(fā)展和國(guó)際互聯(lián)網(wǎng)在全球的開(kāi)通，計(jì)算機(jī)在教學(xué)領(lǐng)域中的應(yīng)用得到了迅速地發(fā)展，多種類(lèi)型的網(wǎng)校、教育網(wǎng)站、網(wǎng)絡(luò)遠(yuǎn)程教育學(xué)院如雨后春筍般蓬勃興起，使得網(wǎng)上教育成為當(dāng)今教育的熱點(diǎn)。人們禁不住向往著一個(gè)全新的教育體制基于Internet/Intranet教育網(wǎng)的教育體制，在這種體制下，不受時(shí)間、空間和地域的限制，不受應(yīng)用軟件的限制，通過(guò)計(jì)算機(jī)網(wǎng)絡(luò)可擴(kuò)展至全社會(huì)的每一個(gè)角落，甚至是全世界，這是真正意義上的開(kāi)放大學(xué)。在基于Internet的教育網(wǎng)絡(luò)環(huán)境下，方便教師對(duì)學(xué)生作業(yè)的管理，同時(shí)可以最大限度地發(fā)揮學(xué)習(xí)者的主動(dòng)性、積極性、探索精神，既可以進(jìn)行個(gè)性化教學(xué)，又可以通過(guò)各種協(xié)作式教學(xué)策略的運(yùn)用而實(shí)現(xiàn)。為了提高對(duì)計(jì)算機(jī)網(wǎng)絡(luò)知識(shí)的了解和對(duì)計(jì)算機(jī)編程的進(jìn)一步熟悉，為明年的畢業(yè)設(shè)計(jì)未雨綢繆做好良好的準(zhǔn)備和經(jīng)驗(yàn)，以及今后工作中的實(shí)際問(wèn)題的面對(duì)和解決。由實(shí)訓(xùn)老師給我們布置的課程設(shè)計(jì)在Visual Basic 6.0環(huán)境中，利用Winsock控件開(kāi)發(fā)一個(gè)基于局域網(wǎng)的聊天工具。使我們，在實(shí)際的設(shè)計(jì)中自我提高。1 設(shè)計(jì)思路1.1設(shè)計(jì)要求為了提高我們對(duì)計(jì)算機(jī)網(wǎng)絡(luò)知識(shí)的了解，和對(duì)編程的進(jìn)一步熟悉，由實(shí)訓(xùn)老師給我們布置的課程設(shè)計(jì)的目標(biāo)為在Visual Basic 6.0環(huán)境中，利用Winsock控件開(kāi)發(fā)一個(gè)基于局域網(wǎng)的聊天工具。 本項(xiàng)目是在Visual Basic 6.0環(huán)境中，利用Winsock控件開(kāi)發(fā)一個(gè)基于局域網(wǎng)的聊天工具。具體內(nèi)容是局域網(wǎng)內(nèi)部的聊天軟件，基于VB編程的基礎(chǔ)上，利用Winsock控件，選擇TCP協(xié)議提供可靠的、面向連接的傳輸控制，選擇協(xié)議的配置，確定你的計(jì)算機(jī)名 ，然后進(jìn)行連接，最后完成的局域網(wǎng)聊天工具，能很好地實(shí)現(xiàn)局域網(wǎng)內(nèi)部的信息傳輸方面的各項(xiàng)功能和系統(tǒng)調(diào)用。1.2設(shè)想實(shí)現(xiàn)功能開(kāi)發(fā)局域網(wǎng)聊天工具，設(shè)想功能如下：（1）提供基本的文本編輯功能，使用戶(hù)可以方便的編輯要發(fā)送的信息。（2）能夠?qū)⒕庉嫼玫奈谋拘畔?，利?Winsock 控件發(fā)送到局域網(wǎng)中指定 IP 地址的 設(shè)備上。（3）能夠顯示通過(guò) Winsock 控件接收到的信息，并利用 IP 地址（或用戶(hù)名）加以區(qū)分。（4）實(shí)現(xiàn)點(diǎn)對(duì)點(diǎn)和廣播信息的發(fā)送功能。（5）設(shè)計(jì)一個(gè)良好的人機(jī)交互環(huán)境。（6）記錄并顯示每一條信息。（7）實(shí)現(xiàn)上網(wǎng),聽(tīng)音樂(lè),文件傳輸,記事本等功能（8）在信息中字體顏色,修改背景色。1.3方案實(shí)現(xiàn)在Visual Basic 6.0環(huán)境中，利用Winsock控件開(kāi)發(fā)一個(gè)基于局域網(wǎng)的聊天工具。2 設(shè)計(jì)過(guò)程2.1軟件系統(tǒng)結(jié)構(gòu)2.2具體軟件功能本系統(tǒng)已實(shí)現(xiàn)的功能如下：（1）實(shí)現(xiàn)局域網(wǎng)內(nèi)，用戶(hù)可以進(jìn)行基本的文本編輯功能。（2）可以方便的編輯要發(fā)送的信息，修改字體，表情，字體大小，貼圖等。（3）在聊天室里進(jìn)行聊天 ，為用戶(hù)提供簡(jiǎn)單方便的操作界面。（4）實(shí)現(xiàn)了背景色修改，聊天記錄功能，顯示服務(wù)器IP，在線(xiàn)人數(shù)。（5）選擇兩個(gè)選項(xiàng)按鈕，可以選擇是選擇鍵發(fā)送消息，還是回車(chē)發(fā)送。（6）可以顯示局域網(wǎng)內(nèi)在線(xiàn)人數(shù)，以及服務(wù)器地址。2.3服務(wù)器Private Sub send_Click() 發(fā)送信息If Textaddr.Text = ThenMsgBox 請(qǐng)輸入對(duì)方IP地址！ElseCommandcall.Visible = FalseDim Txt3 As StringWinsockclient.SendData Textsend.TextTxt3 = Textsend.TextTextsend.Text = Txt3 = 阿貍說(shuō): + time + Chr$(13) + Chr$(10) + + Txt3If (Textreceive.Text = ) ThenTextreceive.Text = Txt3ElseTextreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt3End IfTextreceive.SelStart = Len(Textreceive)StatusBar.SimpleText = 狀態(tài)：通信中。End IfEnd SubPrivate Sub Winsockclient_DataArrival(ByVal bytesTotal As Long) socket控件的信息接收Dim Txt1 As StringWinsockclient.GetData Txt1, vbStringTxt1 = 對(duì)方IP： + Textaddr.Text + 說(shuō): + time + Chr$(13) + Chr$(10) + + Txt1If (Textreceive.Text = ) ThenTextreceive.Text = Txt1ElseTextreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt1End IfTextreceive.SelStart = Len(Textreceive)StatusBar.SimpleText = 狀態(tài)：通信中。End Sub2.4 客戶(hù)端發(fā)送數(shù)據(jù)Private Sub CmdSend_Click()Dim Txt4 As StringDim Index As IntegerSock(Index).SendData Textsend.TextTxt4 = Textsend.TextTextsend.Text = Txt4 = 我說(shuō)： + time + Chr$(13) + Chr$(10) + + Txt4If (Textreceive.Text = ) ThenTextreceive.Text = Txt4ElseTextreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt4End IfTextreceive.SelStart = Len(Textreceive)StatusBar.SimpleText = 狀態(tài)：通信中。End Sub 接收數(shù)據(jù) Private Sub Sock_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim Txt2 As String Labelstatus.Caption = 數(shù)據(jù)來(lái)自 & Index Sock(Index).GetData Txt2, vbString Txt2 = 對(duì)方IP： + Textaddr.Text + 說(shuō): + time + Chr$(13) + Chr$(10) + + Txt2 If (Textreceive.Text = ) Then Textreceive.Text = Txt2 Else Textreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt2 End If Textreceive.SelStart = Len(Textreceive) StatusBar.SimpleText = 狀態(tài)：通信中。 End Sub4 功能實(shí)現(xiàn)4.1 服務(wù)器4.2 客戶(hù)端5 心得體會(huì)通過(guò)這次實(shí)驗(yàn)，讓我把vb編程的方法又有了新的認(rèn)識(shí)。在剛開(kāi)始學(xué)的vb，涉世未深，沒(méi)有過(guò)多的研究，只是能完成一些本地的界面設(shè)計(jì)編輯之類(lèi)的功能，而對(duì)于網(wǎng)絡(luò)這方面，完全沒(méi)有涉及到。這次通過(guò)看書(shū)和網(wǎng)上搜索，學(xué)會(huì)了winsock這個(gè)控件，實(shí)現(xiàn)了網(wǎng)絡(luò)的連接和局域網(wǎng)的聊天。這次實(shí)驗(yàn)，給我感受最深的就是我們分組完成一個(gè)局域網(wǎng)聊天室的應(yīng)用程序，包括項(xiàng)目的需求分析，制作編程以及報(bào)告的撰寫(xiě)。在這些過(guò)程中，我不僅知道了整個(gè)項(xiàng)目的開(kāi)發(fā)的流程，而且讓我深深的體會(huì)到一個(gè)團(tuán)隊(duì)中的各成員合作的重要性，要善于團(tuán)隊(duì)合作，善于利用別人的智慧，這才是大智慧?？繂我坏牧α渴呛茈y完成一個(gè)大項(xiàng)目的，在進(jìn)行團(tuán)隊(duì)合作的時(shí)候，還要考慮技術(shù)上的規(guī)范性和統(tǒng)一性，這樣才可能在進(jìn)行組合的時(shí)候能得到更完美的組合。6 參考文獻(xiàn)1 明日科技 高春艷