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

《簡(jiǎn)單局域網(wǎng)聊天工具》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、TCP/IP協(xié)議及網(wǎng)絡(luò)編程技術(shù)設(shè)計(jì)報(bào)告簡(jiǎn)單局域網(wǎng)聊天工具摘要：本項(xiàng)目是在VisualBasic6.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)今教育的

2、熱點(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)老師給我們布

3、置的課程設(shè)計(jì)在VisualBasic6.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)為在VisualBasic6.0環(huán)境中，利用Winsock控件開(kāi)發(fā)一個(gè)基于局域網(wǎng)的聊天工具。本項(xiàng)目是在VisualBasic6.0環(huán)境中，利用Winsock控件開(kāi)發(fā)一個(gè)基于局域網(wǎng)的聊天工具。具體內(nèi)容是局域網(wǎng)內(nèi)部的聊天軟件，基于VB編程的基礎(chǔ)上，利用Winsock控件，選擇TCP協(xié)議提供可靠的、面向連接的傳輸控制，選擇協(xié)議的配置，確定你

4、的計(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ū)⒕庉嫼玫奈谋拘畔ⅲ肳insock控件發(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)境。TCP/IP協(xié)議及網(wǎng)絡(luò)編程技術(shù)設(shè)計(jì)報(bào)告（6）記錄并顯示每一條信息。（7）實(shí)現(xiàn)上網(wǎng),聽(tīng)音樂(lè),文件傳輸,記事本等功能（8

5、）在信息中字體顏色,修改背景色。1.3方案實(shí)現(xiàn)在VisualBasic6.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ù)器PrivateSu

6、bsend_Click()'發(fā)送信息IfTextaddr.Text=""ThenMsgBox"請(qǐng)輸入對(duì)方IP地址！"ElseTCP/IP協(xié)議及網(wǎng)絡(luò)編程技術(shù)設(shè)計(jì)報(bào)告Commandcall.Visible=FalseDimTxt3AsStringWinsockclient.SendDataTextsend.TextTxt3=Textsend.TextTextsend.Text=""Txt3="阿貍說(shuō):"+time+Chr$(13)+Chr$(10)+""+Txt3If(Textreceive.Text="")ThenTextreceive.Text=Txt3ElseTextreceiv

7、e.Text=Textreceive.Text+Chr$(13)+Chr$(10)+Txt3EndIfTextreceive.SelStart=Len(Textreceive)StatusBar.SimpleText="狀態(tài)：通信中。。。"EndIfEndSubPrivateSubWinsockclient_DataArrival(ByValbytesTotalAsLong)'socket控件的信息接收DimTxt1AsStringWinsockclient.GetD