⑴ 求網路聊天室源碼，用JSP或Servlet都行
用ajax和jsp寫的，可以實現無刷新頁面顯示聊天記錄js/js.js文件varnbsp;obj;varnbsp;getId=document.getElementById;functionnbsp;objXMLHttp(){nbsp;nbsp;nbsp;nbsp;varnbsp;XmlHttpObjnbsp;=nbsp;false;nbsp;nbsp;nbsp;nbsp;if(window.ActiveXObject)nbsp;nbsp;nbsp;nbsp;{nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;XmlHttpObjnbsp;=nbsp;newnbsp;ActiveXObject(「MSXML2.XMLHTTP.3.0「);nbsp;nbsp;nbsp;nbsp;}nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;elsenbsp;ifnbsp;(window.XMLHttpRequest)nbsp;nbsp;nbsp;nbsp;{nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;XmlHttpObjnbsp;=nbsp;newnbsp;XMLHttpRequest();nbsp;nbsp;nbsp;nbsp;}nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;returnnbsp;XmlHttpObj;}functionnbsp;sendMsg(auto){nbsp;obj=objXMLHttp();nbsp;if(!auto)//nbsp;{nbsp;nbsp;varnbsp;myContentnbsp;=nbsp;getId(「myText「).value;nbsp;nbsp;if(myContentnbsp;!=nbsp;「「)nbsp;nbsp;{nbsp;nbsp;nbsp;if(obj)nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;{nbsp;nbsp;nbsp;nbsp;obj.onreadystatechangenbsp;=nbsp;addChat;nbsp;nbsp;nbsp;nbsp;obj.open(「POST「,「do.jsp「,nbsp;true);nbsp;nbsp;nbsp;nbsp;obj.setRequestHeader(「Content-Type「,「application/x-www-form-urlencoded;「);nbsp;nbsp;nbsp;nbsp;nbsp;obj.send(「myContent=「nbsp;+nbsp;myContent);nbsp;nbsp;nbsp;nbsp;getId(「myText「).value=「「;nbsp;nbsp;nbsp;nbsp;getId(「myText「).focus();nbsp;nbsp;nbsp;nbsp;Scroll();nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;}nbsp;nbsp;}nbsp;nbsp;elsenbsp;nbsp;{nbsp;nbsp;nbsp;alert(「nbsp;(*^__^*)nbsp;你不告訴我們，我們怎麼知道你們保持沉默呢「);nbsp;nbsp;nbsp;getId(「myText「).value=「保持沉默「;nbsp;nbsp;nbsp;getId(「myText「).focus();nbsp;nbsp;}nbsp;}nbsp;else//nbsp;{nbsp;nbsp;if(obj)nbsp;nbsp;{nbsp;nbsp;nbsp;obj.onreadystatechangenbsp;=nbsp;addChat;nbsp;nbsp;nbsp;obj.open(「POST「,「do.jsp「,nbsp;true);nbsp;nbsp;nbsp;obj.setRequestHeader(「Content-Type「,「application/x-www-form-urlencoded;「);nbsp;nbsp;nbsp;nbsp;obj.send(null);nbsp;nbsp;nbsp;Scroll();nbsp;nbsp;}nbsp;}}functionnbsp;addChat()//添加聊天記錄{nbsp;varnbsp;docnbsp;=nbsp;「「;nbsp;if(obj.readyStatenbsp;==nbsp;4nbsp;amp;amp;nbsp;obj.statusnbsp;==nbsp;200)nbsp;{nbsp;nbsp;doc=obj.responseText;nbsp;nbsp;if(docnbsp;!=nbsp;「「)nbsp;nbsp;{nbsp;nbsp;nbsp;getId(「says「).value=doc;nbsp;nbsp;}nbsp;}}functionnbsp;getChatContent(){nbsp;tnbsp;=nbsp;setInterval(『sendMsg(true)『,800);}functionnbsp;quickSend(){nbsp;nbsp;if(getId(「sendType「).value==「ctrlEnter「)nbsp;{nbsp;nbsp;if(window.event.ctrlKeyamp;amp;window.event.keyCode==13)nbsp;nbsp;{nbsp;nbsp;nbsp;sendMsg(false);nbsp;nbsp;}nbsp;}nbsp;elsenbsp;if(getId(「sendType「).value==「enterKey「)nbsp;{nbsp;nbsp;if(window.event.keyCode==13)nbsp;nbsp;{nbsp;nbsp;nbsp;sendMsg(false);nbsp;nbsp;}nbsp;}}functionnbsp;loginConfirm(){nbsp;if(window.event.keyCode==13)nbsp;{nbsp;nbsp;checkUser();nbsp;}}functionnbsp;checkUser(){nbsp;if(getId(「userName「).value==nullnbsp;||nbsp;getId(「userName「).value=
⑵ IM即時通訊聊天社交APP源碼，交友APP源碼
交友APP源碼 IM帶音視頻源碼Uniapp 即時通訊安卓蘋果APP源碼
前端開發語言：VUE（ 安卓，IOS,WEB為一套前端代碼）
伺服器端開發語言: PHP+WebSocket
資料庫：MySql + mongodb
前端打包工具：Hbuilder
伺服器搭建工具：寶塔 + Xshell
簡訊介面： 支持阿里雲
支付介面：支持支付寶
伺服器配置： 4核8G寬頻10兆以上
伺服器系統：Linux Centos 7.6 64位
基本功能說明：
1.發消息：語音、圖片、視頻、文字、表情、表情包、文件、名片等。
2.聊天：單聊、群聊。
3.自定義消息：發紅包、轉賬。
4.聊天記錄：清空聊天記錄、群管理、加群二維碼控制是否可加。
5.自定義添加鏈接。
6.我的錢包：後台可以充值、用戶充值、提現等。
7.創建群：可任意創建群，群成員數量不受限制，好友數量不受限。
8.群功能：設置群二維碼、群公告、群共享文件、頂置聊天、消息免打擾，屏蔽群信息、禁言、舉報、群管理、查找聊天記錄、禁止全員相互加好友、清空聊天記錄等。
9.好友聊天：文字、語音、音視頻通話、收藏、照片、小視頻、各種表情、傳送文件、發送位置、引用回復、撤回、復制、刪除、收藏、撤回、錄制、多選、發紅包，轉賬等。
10.生活圈動態：可以發送圖文、語音、視頻、可點贊，評論、舉報等。
11.會員登錄：注冊登錄、簡訊登錄。
12.賬號設置：修改密碼、語言切換、字體設置、隱私設置、安全設置、一鍵群發好友消息等。
13.用戶管理：登錄時間、登陸IP、更換頭像、更換名稱、設置密碼、批量生成用戶。
14.後台功能： 管理員列表、系統設置、用戶管理、群組管理、通訊錄管理、財務管理、會話管理、自定義網站、手機通訊錄
了解更多源碼內容，您可以私信我！
如果您也喜歡這篇文章，記得點贊+關注+評論+轉發喲！[比心][比心][比心]
⑶ ThinkPHP微的H5聊天室即時通訊系統APP源碼分享
ThinkPHP內核聊天室即時通訊系統源碼是一款類似微信的H5聊天系統APP源碼 。
源碼功能：
消息提醒：有新的消息可以提醒(數字提醒、聲音提醒)。
聊天列表：顯示最近所有的聊天列表，點擊列表某一項可以打開聊天窗口;還可以刪除聊天列表項。
聊天窗口：可以發生文字消息、圖片消息、表情;圖片可以預覽。
站內公告：在頂部顯示可以及時顯示後台發布的公告。
添加朋友：可以搜索對方的帳號名稱然後添加到通訊錄;添加前需要好友驗證才能通過。
群聊：顯示群聊信息。
列表：根據字母分組顯示聯系人;點擊聯系人可以查看詳情資料;可以刪除聯系人。
游戲：可添加你的官方網站或者游戲網站其它~自定義嵌入第三方網站
個人信息：顯示頭像、昵稱、帳號;可以修改頭像和昵稱。
修改密碼：可以修改登錄密碼。
朋友圈：可以發動態。
各種源碼每天更新，還有各種破解軟體、破解游戲、福利寫真圖哦~
網址 www.xqwym.com
⑷ VB編寫的區域網聊天工具源代碼
用VB做聊天程序的方法
---- 所謂"聊天"是指兩個程序能夠發送數據給對方。這個程序涉及到數據通訊的知識，彷彿很復雜，不過，由於VB給我們提供了一個Winsock控制項，問題就變得很簡單了。
---- 先編寫"聊天（主機）"程序。在窗體里添加Winsock控制項，並設置其Protocol屬性為1－SckUDPProtocol，其他屬性為預設值。接著添加兩個標簽和兩個文本框，設置兩個標簽的標題屬性分別為"接收窗"和"發送窗"；兩個文本框的標題屬性為空。最後編寫代碼：
---- 1."聊天（主機）"
Private Sub Form-Load()
′設置網路地址
Winsock1.LocalPort=1024
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1999
End Sub
Private Sub Text1-Change()
′發送用戶輸入的內容
Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1-DataArrival
(Byval bytesTotal As Long)
Dim rec As String
′接收對方數據並在文本框內顯示
Winsock1.GetData rec, vb String
Text2.Text=rec
End Sub
---- 2."聊天（副機）"
Private Sub Form_Load()
′設置網路地址
Winsock1.LocalPort=1999
Winsock1.RemoteHost="202.96.6.1"
Winsock1.RemotePort=1024
---- 其他部分程序與（主機）相同。最後將兩個程序存檔，並編譯成執行（.Exe）文件。現在就可以使用這個程序進行對話了。
---- 七.文本框中文本的某一特定字元或字元串同時高亮顯示的方法
---- 由於普通TextBox控制項不支持不連續字元串的同時高亮顯示，所以我們選擇RichTextBox控制項。單擊工程（Project）選單項，在彈出的下拉選單中單擊組件（Components）選單項，從彈出的對話框中選擇Microsoft Rich Textbox Control 5.0復選框，確定載入RichTextBox控制項。
---- 新建（New）一個工程，在窗體（Form）上添加一個RichTextBox控制項和兩個Command（按鈕）控制項，都採用系統默認的Name屬性值；設置RichTextBox的Text屬性值為空，Command1和Command2的Caption屬性值分別設為"輸入文本"和"選擇字元串"。最後，添加如下VB代碼：
Private Sub Command1-Click()
Dim str As String
Dim Text As String
str=〃輸入文本〃
Text=InputBox(str)
RichTextBox1.Text=Text
End Sub
Private Sub Command2-Click()
Dim str As String
Dim Text As String
Dim Position As Integer
Dim Lenth As Integer
str=〃輸入要高亮顯示的字元串〃
Text=InputBox(str)
If Text 〈〉 〃〃 Then
Position=InStr(RichTextBox1.Text, Text)－1
Lenth=Len(Text)
RichTextBox1.SelStart=Position
RichTextBox1.SelLength=Lenth
RichTextBox1.SelColor=RGB(255,0,0)
Do While InStr(Position＋Lenth＋
1, RichTextBox1.Text, Text) 〈〉 0
Position=InStr(Position＋Lenth＋
1, RichTextBox1.Text, Text)－1
RichTextBox1.SelStart=Position
RichTextBox1.SelLength=Lenth
RichTextBox1.SelColor=RGB(255,0,0)
Loop
End If
End Sub
---- 按F5執行程序，單擊"輸入文本"按鈕，在彈出的對話框中輸入一些文本，確定後，剛剛輸入的文本將顯示在RichTextBox中；再單擊"選擇字元串"按鈕，在彈出的對話框中輸入你希望高亮顯示的字元串，確定後，RichTextBox中相應的字元串將以紅色高亮顯示。
---- 八.編程實現Windows 95/98操作系統熱啟動的方法
---- 要利用程序實現系統的重新啟動，可以在你的程序中調用API函數來實現。建一個子函數：（以VB為例）
Declare Function SystemParametersInfo Lib 〃
user32〃 Alias -
〃SystemParametersInfo〃 (ByVal uAction As Long,
ByVal uParam As Long,
ByVal lpvParam As Any, ByVal
fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X=SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Call DisableCtrlAltDelete(true) ′禁止熱啟
Call DisableCtrlAltDelete(false) ′允許熱啟
---- 九.在Windows 95/ 98啟動後自動啟動程序的方法
---- 我們都知道在Windows 95/98的"開始"→"程序"選單下有一"啟動"選單項，當每次啟動Windows 95或Windows 98時，系統都會自動啟動放在"啟動"選單欄里的可執行程序。
---- 但目前有好多軟體，像解霸五、ICQ，以及大部分實時偵測病毒的軟體等等，安裝後，並沒有放在"啟動"選單里，也能在啟動操作系統時自動啟動。怎麼實現的呢？
---- 其實只要知道Windows注冊表的一些知識，這個問題就不能稱之為問題了。用滑鼠單擊"開始"，打開開始選單，再單擊"運行"，出現一對話框，然後輸入"regedit"，確定後，會打開系統注冊表編輯器，找到HKEY-LOCAL-MACHINE? SOFTWARE?Microsoft?Windows?CurrentVersion?Run，加入你的程序的入口，就可以了。如果不知道怎麼加，就參考一下已經存在的鍵值。
---- 十. 如何把數據文件輸出到Text控制項中？如果數據量比較大，窗體滿屏也不夠大，怎麼解決？
---- 有一個比較簡單的方法，就是把數據放到一個文本框（Text）里，並在其中加上水平和垂直滾動條。具體實現步驟為：先在窗體（Form）里加入一個文本框，採用默認名Text1；然後，設置文本框Text1的屬性：Text屬性設置為空，MultiLine屬性設置為True，ScrollBars屬性設置為3－Both；接著添加如下VB代碼：
Private Sub Form-Load()
Dim Handle As Integer
Dim FileName As String
On Error GoTo ErrExit
begin:
′輸入要顯示的數據文件的名稱
FileName=InputBox＄(〃Input Filename〃,
〃Open File〃)
On Error GoTo FileErr
Handle=FreeFile
Open FileName For Input As ＃Handle
′把數據文件中的數據輸出到文本框中
Text1.Text=Input＄(LOF(Handle), Handle)
Close ＃Handle
Exit Sub
FileErr:
Dim ErrNum As Integer
If Err.Number=53 Then
ErrNum=MsgBox(〃File not exist〃,
vbOKCancel, 〃Error Information〃)
If ErrNum=1 Then
GoTo begin
Else
Exit Sub
End If
End If
MsgBox Err.Description, , 〃file open failed〃
ErrExit:
Exit Sub
End Sub
′使文本框充滿整個窗體
Private Sub Form-Resize()
Text1.Left=0
Text1.Top=0
Text1.Width=Form1.Width－100
Text1.Height=Form1.Height－400
End Sub
---- 通過這樣的處理，不僅能解決問題，而且用戶還可以在文本框中對數據進行編輯。
---- 十一.關聯文件列表框、目錄列表框和驅動器列表框的方法
---- 想做一個對話窗體，包含驅動器列表框、目錄列表框和文件列表框，並能實現三者的同步操作，怎麼做？這都是我們在實際應用中經常會遇到的問題，在VB中解決這個問題非常簡單，可以通過Path屬性的改變引發Change事件來實現。例如：
Sub Dir1-Change()
File1.Path=Dir1.Path
End Sub
---- 該事件過程使窗體上的目錄列表框Dir1和文件列表框File1產生同步。因為目錄列表框Path屬性的改變將產生Change事件，所以在Dir1-Change事件過程中，把Dir1.Path賦給File1.Path，就可以產生同步效果。類似地，增加下面的事件過程，就可以使三種列表框同步操作：
Sub Drive1-Change()
Dir1.Path=Drive1.Drive
End Sub
---- 該過程使驅動器列表框和目錄列表框同步，前面的過程使目錄列表框和文件列表框同步，從而使三種列表框同步，問題即可解決。
⑸ C++通訊錄的源代碼
分是萬能的嗎？
請客氣些。