麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

用VB編寫網(wǎng)絡(luò)尋呼機(jī)

2019-11-18 17:35:44
字體：大 中 小
供稿：網(wǎng)友
提起ICQ的大名，愛好電腦的朋友一定不會感到陌生的吧？ICQ就是互聯(lián)網(wǎng)上的尋呼機(jī)，無論什么時候，只要你的朋友在線，你只需在ICQ中輸入他的ID號碼，你就可以在互聯(lián)網(wǎng)上呼到他。ICQ由于其方便、快捷，且擁有眾多的注冊用戶而一舉成為互聯(lián)網(wǎng)上最流行的網(wǎng)絡(luò)尋呼機(jī)，它幾乎成為每一個上網(wǎng)用戶的必備之物。當(dāng)你在使用ICQ的時候，是否會想過自己動手編寫一個網(wǎng)絡(luò)尋呼機(jī)呢？這其實在VB中就可以實現(xiàn)。
----網(wǎng)絡(luò)尋呼的原理就是當(dāng)客戶端程序連接服務(wù)器時，通過服務(wù)器搜索所要呼叫的ID號碼，如果檢測到此用戶且該用戶正處于聯(lián)網(wǎng)狀態(tài)，則服務(wù)器通知此用戶的客戶端程序響應(yīng)主叫方客戶端程序，然后在主叫方和被叫方建立連接后，雙方就可以聊天或進(jìn)行其它的通信。

----在VB中編寫網(wǎng)絡(luò)尋呼機(jī)需要建立兩個程序，一個為客戶端程序Client，一個為服務(wù)器端程序Server。

----一、在Client工程中建立一個窗體，加載WinSock控件，稱為tcpClient，協(xié)議選擇TCP。再加入四個文本框，用以輸入服務(wù)器的ip地址、服務(wù)器端口號，被呼叫的網(wǎng)絡(luò)尋呼ID號以及用戶登錄ID號。然后再在窗體中加入三個按鈕，分別命名為“連接”、“斷開”和“退出”，點擊“連接”按鈕，并進(jìn)行如下初始化連接，代碼如下：

'在收到呼叫消息后彈出一對話框并顯示主叫方ID號碼
MsgBox(strData)
EndSub

----二、在服務(wù)器端Server工程中也建立一個窗體，加載WinSock控件，稱為tcpServer，協(xié)議選擇TCP，設(shè)置其Index值為0，并在工程中添加模塊。
----內(nèi)容如下：

PrivateTypeActiveUser
ClientIPAsString'記錄客戶的IP地址
ClientPortAsInteger'記錄當(dāng)前會話的端口
ClientIDAsLong'記錄客戶的ID號碼
ClientConnectedAsBoolean
'客戶連接狀態(tài)，True表示已連接，F(xiàn)alse表示沒有連接
EndType
DimCurUser()AsActiveUser
DimtcpIndexAsInteger'跟蹤當(dāng)前建立連接數(shù)

在Form_Load事件中加入如下代碼：
PrivateSubForm_Load()
tcpServer(0).Protocol=sckTCPProtocol
tcpServer(0).LocalPort=1001
'將LocalPort屬性設(shè)置為一個整數(shù)。
tcpServer(0).Listen'然后調(diào)用Listen方法。
tcpIndex=1
EndSub

----準(zhǔn)備應(yīng)答客戶端程序的請求連接，使用ConnectionRequest事件來應(yīng)答戶端程序的請求，代碼如下：
PrivateSubtcpServer_ConnectionRequest
(IndexAsInteger,ByValrequestIDAsLong)
DimiAsInteger
OnErrorGoToErrHandle
Fori=1TotcpIndex'選擇一個空閑端口
IfCurUser(i).ClientConnected=
FalseAndi<>tcpIndexThen
LoadtcpServer(i)
tcpServer(i).LocalPort=CurUser(i).ClientPort-1
tcpServer(i).AcceptrequestID
ExitFor
ElseIfCurUser(i).ClientConnected=FalseThen
LoadtcpServer(i)
tcpServer(i).LocalPort=Port
IftcpServer(i).State<>sckClosedThen
tcpServer(i).Close
EndIf
tcpServer(i).AcceptrequestID
ExitFor
EndIf
Next
DoEvents
'測試連接是否成功
IftcpServer(i).State=sckConnectedThen
Ifi=tcpIndexThen
'已經(jīng)沒有可用端口,記錄客戶的IP地址和端口號
tcpIndex=tcpIndex 1
Port=Port 1
ReDimPreserveCurUser(tcpIndex)
CurUser(i).ClientIP=tcpServer(i).RemoteHostIP
CurUser(i).ClientConnected=True
CurUser(i).ClientPort=Port
CurUser(tcpIndex).ClientConnected=False
Else
CurUser(i).ClientIP=tcpServer(i).RemoteHostIP
CurUser(i).ClientPort=Port
CurUser(i).ClientConnected=True
EndIf
EndIf
ExitSub
ErrHandle:
ResumeNext
'檢查控件的State屬性,如未關(guān)閉，在接受新的連接之前關(guān)閉此連接。
IftcpServer(0).State<>sckClosedThen
tcpServer(0).Close
tcpServer(0).AcceptrequestID
'接受具有requestID參數(shù)的,連接。
EndSub

PrivateSubtcpServer_DataArrival(IndexAsInteger,
ByValbytesTotalAsLong)
DimiAsInteger
DimsAsString
DimRequIDAsLong'主叫方ID號碼
DimSearchIDAsLong'被叫方ID號碼

OnErrorGoToErrHandle
tcpServer(Index).GetDatas,vbString
'接收數(shù)據(jù)并存入s　
IfMid(s,i,1)="@"Then
'分離s中的主叫方和被叫方ID號碼
SearhID=Left(s,i-1)'把號存入mKey
RequID=Right(s,Len(s)-i)'ID存入RequID
EndIf

----'如果是請求尋呼某一ID號碼,則檢索當(dāng)前此ID用戶是否登錄（即CurUser數(shù)組中是否存在此用戶）,然后發(fā)送信息，通知此用戶響應(yīng)呼叫并顯示主叫用戶ID號碼。
Fori=1TotcpIndex
IfRequID=CurUser(i).ClientIDAndCurUser(i)
.ClientConnected=TrueThen
tcpServer(i).SendData(SearhID)
EndIf
Next
ExitSub
ErrHandle:
IfErr.Number=sckBadStateThen'連接不正確
CurUser(i).ClientConnected=False
CurUser(i).ClientIP=""
UnloadtcpServer(i)
ResumeNext
EndIf
EndSub

----本程序僅提供了用VisualBasic編寫網(wǎng)絡(luò)尋呼的思路和主要部分的實現(xiàn)過程，至于主叫方和被叫方建立連接后的通信并未擴(kuò)展，讀者若有興趣，可在這方面加入具體的實現(xiàn)代碼，就可以給本程序增加更多的功能，如實時聊天，語音對話等。如果在服務(wù)器程序檢索到被叫方時，分別通知兩者客戶端程序，使主叫方和被叫方直接利用IP地址進(jìn)行連接，則兩者的連接速度將會有大幅度的提高。->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 国产精品三级a三级三级午夜 | 精品国产中文字幕 | xxxxxx免费| 国产毛片在线高清视频 | 国产一级淫片在线观看 | 欧美 日韩 国产 在线 | 韩国精品一区二区三区四区五区 | 天天草夜夜骑 | 日韩av片在线播放 | 国产欧美在线一区二区三区 | 羞羞羞网站 | 精品视频一区二区三区四区 | 思思久而久而蕉人 | 久久精品欧美视频 | 国产成人精品二区 | 国产一区二区免费看 | 99麻豆久久久国产精品免费 | 日本最新免费二区三区 | 成人午夜小视频 | 在线看成人av | 一级片久久免费 | 一区二区三区日韩在线观看 | 免费一级毛片电影 | 精品免费久久 | 龙的两根好大拔不出去h | 午夜视频在线免费播放 | 欧美a在线播放 | 国产羞羞视频在线观看 | 国产成年人在线观看 | 999插插插| 国产精品久久久久久久久久 | 一区二区久久精品66国产精品 | 国产精品久久久久久影视 | 中文字幕欧美亚洲 | 性高湖久久久久久久久aaaaa | 免费午夜视频 | 美女黄色毛片免费看 | 国产一区二区三区在线免费 | 黄色免费大片 | 欧美色爱综合 | 天天操综 |