【正文】 組長（學(xué)號）： 拉格木呷2012080332024 組員（學(xué)號）： 高迪2012080332007 張鶴軒2012080332037 劉曉弟2012080332025 版 本 號： 時 間： 2015年1月8日 摘要 從實際應(yīng)用系統(tǒng)的角度出發(fā)，以VB的網(wǎng)絡(luò)技術(shù)為指導(dǎo)，結(jié)合現(xiàn)有軟件的應(yīng)用，編程實現(xiàn)基于Visual Basic的局域網(wǎng)絡(luò)聊天工具。從單一的文本聊天，到語音聊天以及到現(xiàn)在的圖像、視頻聊天、及時短信的發(fā)送和在線游戲等功能的開發(fā)，已經(jīng)大大的拓展了聊天工具的概念，它成為了人們通過因特網(wǎng)相互聯(lián)系和娛樂的主要平臺，這也是騰訊成功的原因。 5. 文件傳輸作為另一個獨立的模塊，大大拓展了該聊天工具的功能，其傳輸資料利用了原有的WinSock通信，關(guān)鍵需要同步雙方的發(fā)送和接受線程。是一種終端連往即時通訊網(wǎng)絡(luò)的服務(wù)。如今，作為網(wǎng)絡(luò)應(yīng)用之一的聊天工具，越來越受到人們的歡迎和重視。多玩歪歪的功能有一對一聊天，聊天室聊天，還有最具特色的多人語音聊天，在線游戲等等。 目前國內(nèi)外做聊天系統(tǒng)的公司很多，產(chǎn)品也琳瑯滿目，國內(nèi)有諸如騰訊、新浪UC、網(wǎng)易泡泡等，國外有著名的MSN以及跨平臺Gaim等。學(xué)校校園網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。 利用Visual Basic Winsock控件實現(xiàn)。TCP是面向連接的，通信雙方保持一條通路，好比目前的電話線，使用telnet登陸B(tài)BS，用的就是TCP協(xié)議；UDP是無連接的，通信雙方都不保持對方的狀態(tài)，瀏覽器訪問Internet時使用的HTTP協(xié)議就是基于UDP協(xié)議的。但是這樣的話，結(jié)構(gòu)的數(shù)量就是很多，工作量也太大，且極易出錯。通過設(shè)置控件的屬性并調(diào)用其方法就可輕易連接到一臺遠程機器上去，并且還可雙向交換數(shù)據(jù)。 任何能夠與Windows Sockets兼容實現(xiàn)協(xié)同工作的應(yīng)用程序就被認為是具有Windows Sockets接口。 WinSock控件能夠通過UDP協(xié)議（用戶數(shù)據(jù)報協(xié)議）或TCP協(xié)議（數(shù)據(jù)傳輸協(xié)議）連接到遠程的機器并進行數(shù)據(jù)交換。其中TCP是提供傳輸層服務(wù)，而IP則是提供網(wǎng)絡(luò)層服務(wù)。 ICMP：網(wǎng)間報文控制協(xié)議(Internet Control Message Protocol)此協(xié)議處理網(wǎng)關(guān)和主機的差錯和傳送控制?？蛻舳伺c服務(wù)器端可運行在多種系統(tǒng)平臺，具有良好的兼容性能。能夠顯示通過Winsock控件接收到的信息，并利用IP地址（或用戶名）加以區(qū)分。連接兩臺計算機就可彼此進行數(shù)據(jù)傳輸。為了完成連接，可調(diào)用 ConnectionRequest 事件內(nèi)的 Accept 方法。調(diào)用 DataArrival 事件內(nèi)的 GetData 方法就可獲取數(shù)據(jù)。在開始數(shù)據(jù)傳輸之前，用戶必須先建立連接。在這里我選擇的是使用TCP通訊協(xié)議編寫聊天程序，通過編寫程序。在原有的基礎(chǔ)上增加了文件的傳輸功能，并且對界面做了改進。Visual Basic簡稱VB，是由美國微軟公司于1991年開發(fā)的一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。網(wǎng)絡(luò)編程大多數(shù)網(wǎng)絡(luò)應(yīng)用程序都遵從client/server交互模型。服務(wù)器程序通過協(xié)議端口號來指定它所提供的服務(wù)，然后被動地等待通信。用戶目前可以使用兩種套接口，即流套接字TCP和數(shù)據(jù)報套接字UDP。數(shù)據(jù)報套接字的一個重要特點是它保留了記錄邊界。在創(chuàng)建客戶應(yīng)用程序時,必須知道服務(wù)器計算機名或其IP地址(存于RemoteHost屬性)及服務(wù)器計算機進行偵聽的端口(存于RemotePort屬性),然后調(diào)用Connect方法。如果要發(fā)送數(shù)據(jù),需調(diào)用SendData方法。另外,UDP應(yīng)用程序可以是客戶機,也可以是服務(wù)器程序,而不必像TCP應(yīng)用程序那樣必須分別建立客戶機程序和服務(wù)器程序。（2） 輸入聊天對象的的IP地址和自己的昵稱戶名，即可在登陸界面中使用你的用戶名登陸聊天軟件。（3） 點擊進入聊天室即可聊天。二人私聊的內(nèi)容別人看不見，服務(wù)器默認是不顯示。與 Timer 控件類似，WinSock 控件在運行時是不可見的。項目的開發(fā)和實施雖然滿足了當前業(yè)務(wù)的功能和性能要求，并實施了相應(yīng)的系統(tǒng)安全、備份等方案，隨著系統(tǒng)的運行和后期工程的投入生產(chǎn)，在現(xiàn)有系統(tǒng)軟件硬件條件下，可能會給系統(tǒng)帶來一定的壓力，所以在后期工程的開發(fā)過程中，隨時要兼顧一期工程的可能存在的性能優(yōu)化和功能調(diào)整，以及系統(tǒng)在安全、備份方面加大資源投入力度，保證系統(tǒng)達到7x24小時穩(wěn)定、可靠運行的要求 第七章、小結(jié)通過本次試驗首先了解了winsock控件的使用以及VB程序設(shè)計語言的開發(fā)環(huán)境的使用。經(jīng)過本次實訓(xùn)，使用陌生的VB編程環(huán)境實現(xiàn)了聊天室軟件的運行，實現(xiàn)了局域網(wǎng)聊天，成就感很強。學(xué)到了到底一些功能要用哪些規(guī)定的函數(shù)來實現(xiàn)，以及在用這些函數(shù)的時候要注意哪些東西，比如說，要引用規(guī)定的函數(shù)包，設(shè)定規(guī)定的變量、組件，并且在引用的時候需要注意的東西等?，F(xiàn)在，看著自己新寫的程序，回想著寫的過程，才發(fā)現(xiàn)老師的用心，真的很感謝老師。我想老師也是為了讓我學(xué)到自己想要的東西吧。用Visual Basic語言設(shè)計一個基于TCP/IP協(xié)議的點對點的聊天程序，實現(xiàn)客戶端與客戶端之間即可實現(xiàn)簡易的聊天功能。d) 實現(xiàn)點對點和廣播信息的發(fā)送功能。 利用Visual Basic Winsock控件實現(xiàn)。登陸的界面如下，需要輸入主機地址。服務(wù)器運行后，按Ctrl+F12即可打開服務(wù)器的界面。但是回復(fù)還是要進入二人世界。條件判斷 If = Then MsgBox 請輸入昵稱！, , 信息提示 Exit Sub End If If Option2(0).Value = True Then HostIP = 39。鼠標指針樣式 = 11 39。TCP協(xié)議 = HostIP 39。 進入聊天室End SubPrivate Sub wsk1_DataArrival(ByVal bytesTotal As Long) 39。鼠標指針樣式 = 0 39。文本起點 = 0 39。連接標記設(shè)置 = False 39。設(shè)置狀態(tài)欄 39。防止鏈路中斷 = 11 39。 str 39。鼠標指針樣式設(shè)置 = True (4) = 等待連接 39。注釋：winsock控件 wsk1 作為服務(wù)器程序監(jiān)聽 = 3000 End SubPrivate Sub Text1_Change()End SubPrivate Sub wsk1_ConnectionRequest(ByVal requestID As Long) Dim i As Long Dim j As Long For i = 1 To maxn 39。進行連接 39。關(guān)閉連接 Unload wsk2(Index) 39。發(fā)送消息 ElseIf user(i) And i = Index Then 39