簡單局域網聊天工具.doc

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