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