日本免费精品_最新日韩一区_亚洲视频一区在线_a在线视频观看_天天射夜夜骑_粉嫩av一区二区三区_欧美中日韩免费视频_综合图区欧美_国内精品美女在线观看_午夜精品久久久久久久男人的天堂

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

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

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

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

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

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

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

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

----準備應(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號碼,則檢索當前此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)過程，至于主叫方和被叫方建立連接后的通信并未擴展，讀者若有興趣，可在這方面加入具體的實現(xiàn)代碼，就可以給本程序增加更多的功能，如實時聊天，語音對話等。如果在服務(wù)器程序檢索到被叫方時，分別通知兩者客戶端程序，使主叫方和被叫方直接利用IP地址進行連接，則兩者的連接速度將會有大幅度的提高。->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
精品国产综合久久| 日韩国产一区久久| 精品久久在线| 日韩欧美国产亚洲| 欧美日韩国产专区| 欧美日韩免费精品| www.狠狠干| 欧美日韩精品综合| 黄色一级大片在线免费看国产一| 欧美日韩色综合| 91精品日本| 欧美日韩国产系列| 国产专区中文字幕| 国产欧美一级| 日韩中文字幕在线视频观看| 欧美在线视频第一页| 亚洲欧美伊人| 中文字幕在线观看视频www| 国产福利免费在线观看| 亚洲乱码中文字幕综合| 日韩精品视频免费播放| 亚洲乱码一区av黑人高潮| 国产超级va在线视频| 91精品久久久久久久久| 91精品日本| 中文字幕在线国产| 欧美日韩国产第一页| 国产欧美综合在线| 精品区一区二区| 亚洲高清视频在线| 黄色一区二区在线| 欧美日韩精品在线视频| 日韩精品在线免费观看视频| 欧美日韩国产综合网| 国产不卡一区| 亚洲免费中文字幕| 日韩精品视频在线观看免费| 日韩欧美高清在线| 国产欧美日韩第一页| 国产一级粉嫩xxxx| 日韩欧美视频一区二区三区四区| 欧美高清一区| 亚洲综合中文字幕在线| 中文字幕精品视频| 一级片免费在线播放| 日韩一级在线免费观看| 日韩激情一区| 欧美日韩国产999| 日韩三级视频在线播放| 狠狠色综合色区| 香蕉人人精品| 日韩在线不卡一区| 亚洲专区一二三| 精品日韩av| 日韩在线三区| 欧美日韩久久久| 先锋男人资源站| 亚洲福利视频在线| www中文字幕| 国产欧美日韩91| 91精品国产调教在线观看| 日韩在线视频观看| 中文字幕亚洲一区在线观看| 欧美日韩综合在线观看| 欧美国产综合视频| 中文字幕精品在线播放| 国产蜜臀在线| 欧美日韩在线精品成人综合网 | 亚洲欧美伊人| 国产在线黄色| 国产偷国产偷亚洲清高网站| 中文字幕亚洲高清| 97久久精品| 国产三级视频网站| 亚洲视频一二三四| 国产欧美日韩在线观看| 日韩精品一级| 久久久精品国产免费观看同学| 国产91欧美| 日韩精品在线第一页| 亚洲欧洲日产国码av系列天堂| 欧美日韩高清在线| 91精品日本| 亚洲女人天堂a在线播放| 欧美日韩精品在线| 91精品视频观看| 精品久久久精品| 精品乱人伦一区二区三区| 国产激情久久久| 一区二区不卡久久精品| 91精品在线观看视频| 免费视频二区| 午夜国产福利在线观看| 黄色国产网站在线播放| 欧美日韩精品综合| 精品欧美久久久| 美女在线视频一区| 国产丝袜欧美中文另类| 国产日韩三级| 日韩专区视频网站| av不卡免费看| 偷窥国产亚洲免费视频| 一区在线播放视频| 在线观看国产一区| 午夜av一区| 欧美日韩在线视频一区| 精品国产免费视频| 日韩精品一区二区三区视频播放| 中文字幕精品在线视频| a在线观看免费视频| 91久久在线| 中文国产字幕在线观看| 亚洲素人一区二区| 美女在线视频一区| 国产 日韩 欧美 综合 一区| 亚洲第一中文字幕| 国产视频2区| 国产不卡在线观看视频| 国产一区日韩| 中文字幕视频在线观看| 欧美久久在线观看| 日韩欧美国产免费播放| 日韩精品在线观看视频| 高清一区二区| 日韩av不卡在线观看| 欧美日韩国产亚洲一区| 免费在线国产| 精品熟女一区二区三区| 国产视频aaa| 欧美日韩视频免费播放| 一区二区三区精品在线| 日韩在线a电影| 一二三区精品视频| 日韩在线观看一区| 日韩久久99| 91麻豆精品国产91久久久使用方法 | 亚洲一区在线观看网站| 精品国产99| 91精品婷婷国产综合久久竹菊| 欧美专区中文字幕| 日韩欧美国产不卡| 天天摸日日摸狠狠添| 国产一级粉嫩xxxx| 在线不卡日本| 国产一区在线不卡| 在线日韩中文| 二区三区中文字幕| 一区三区二区视频| 欧美日韩综合高清一区二区| 在线欧美日韩精品| 欧美日韩在线不卡| 中文字幕在线导航| 欧美日韩国产专区| 午夜国产视频 | 亚洲视频日韩| 国产激情在线视频| 国产香蕉精品视频| 国产成人精品综合网站| 久久精品日韩无码| 天堂在线中文| 一区二区视频国产| 日韩中文欧美在线| 视频一区中文字幕国产| 最近中文av字幕在线中文| 午夜伦欧美伦电影理论片| 精品视频资源站| 欧美99久久| 午夜伊人狠狠久久| 国产乱码在线观看| 日韩精品乱码av一区二区| 亚洲成在线观看| 91精品国产自产在线观看永久∴| 一级片免费在线播放| 欧美二区在线观看| 亚洲午夜91| 日韩在线一区二区| 久久久99久久精品欧美| 日韩欧美在线网站| 国产在线高潮| 亚洲黄色一区二区| 亚洲综合在线视频| 国产99对白在线播放| 欧美日韩国产免费| 日韩免费视频一区二区视频在线观看 | 久久精品国产视频| 一区免费在线| 久久精品蜜桃| 午夜福利一区二区三区| 精品欧美日韩在线| 99久热re在线精彩视频| 国产免费一级| 亚洲免费福利视频| 日韩欧美一级在线| 亚洲视频日韩| 中文字幕精品在线视频| 91精品婷婷国产综合久久| 一区二区在线观| 亚洲一二三不卡| 日韩欧美色综合网站| 欧美一级搡bbbb搡bbbb| 国产一级片播放| 国产视频2区| 亚洲免费福利视频| 久艹在线视频| 欧美日韩三级一区| 日韩欧美中文| 欧美 日韩 国产在线| 黄色国产在线| 欧美日韩成人一区二区| 91日韩欧美| 欧美日韩中文字幕在线观看| 国产一区成人| 欧美 日韩 综合| 日韩欧美在线网址| 国产精品福利视频一区二区三区| 日韩www在线| 国产在线不卡av| 精品无人国产偷自产在线| 黄色视屏免费在线观看| 色偷偷一区二区三区| 亚洲天堂国产视频| 一区二区三区久久| 国产欧美日韩三级| 亚洲三级av| 中文字幕在线视频网| 91精品网站| 欧美日韩国产免费| 久久福利视频一区二区| 国产91大片| 中文字幕 亚洲视频| 欧美日韩久久久| 日韩精品在线免费观看视频| 中文精品视频| 国产高清精品二区| 欧美日韩一级黄| 欧美日韩亚洲国产综合| 激情婷婷亚洲| 精品一二三区| 国产欧美日韩久久| 欧美久久久久久蜜桃| 欧美日韩精品电影| 欧美成人精品在线| 国产一级视频在线播放| 日韩欧美国产亚洲| 国产一级在线| 中文在线不卡| 国产偷国产偷亚洲清高网站 | 国产激情99| 欧美日韩在线不卡视频| 日韩欧美亚洲国产| 激情五月综合| 日韩欧美在线第一页| 中文字幕五月欧美| 日韩中文字幕视频在线观看| 国产日韩精品视频| 91精品国产调教在线观看| 午夜av一区二区| 亚洲高清精品视频| 日韩欧美在线中文字幕| 久久久99久久| 中文在线视频观看| 日韩欧美中文免费| 日韩免费高清一区二区| 日韩国产欧美在线视频| 欧美亚洲国产免费| 精品日本视频| 黄色国产网站在线观看| 国产亚洲一级| 日韩一级在线视频| 亚洲大片精品永久免费| 中文字幕成人乱码在线电影| 婷婷久久综合九色国产成人| av免费看在线| 日韩欧美国产高清91| 国产一级在线免费观看| 国产欧美日韩综合| 91久久中文| 中文字幕 亚洲一区| 国产日韩av一区| 精品三级av| 不卡在线视频| 91精品国产91久久久久久久久| 在线三级av| 免费看黄资源大全高清| 一区二区不卡视频| 久久视频在线免费观看| 欧美日韩精品欧美日韩精品一| 亚洲一级网站| 在线视频你懂得一区| 在线中文字幕视频| 最近中文字幕在线中文视频| 国产福利第一页| 欧美色视频一区二区三区在线观看| 久久综合九色欧美综合狠狠| 亚洲制服一区| 国产亚洲视频中文字幕视频| 日韩欧美一卡二卡| 午夜精品一区二区三区免费视频| 日韩欧美中文在线| 久久综合久久综合九色| 久久99蜜桃精品| www.中文字幕在线| 亚洲欧美99| 三级网站免费观看| 又黄又www的网站| 国产激情在线播放| 日韩欧美中文免费| 日韩中文在线视频| 欧美日韩在线观看成人| 欧美日韩性视频一区二区三区 | 精品三级久久| 不卡专区在线| 91精品在线免费观看| 国产在成人精品线拍偷自揄拍| 精品人妻一区二区三区视频| 九九精品调教| 91精品久久久久久久久| 成人禁用看黄a在线| 精品欧美日韩在线| 亚洲一区日韩在线| 日韩在线观看精品| 中文字幕高清在线播放| 国产乱一区二区| 美女黄a一级视频| 中文字幕亚洲国产| 欧美中文字幕视频| 91精选在线| 欧美三级在线播放| 国产三级在线播放| 亚洲免费观看视频| 91精品在线观看国产| 日韩久久在线| 香蕉av一区| 在线观看一区| 91精品国产91| 精品国产乱码久久久久久牛牛| 中文天堂在线一区| 精品一区二区三区中文字幕在线| 国产在线精品日韩| 久久99久久久久| 国产日韩电影| 久久香蕉一区| 一区二区在线高清视频| 久久精品99国产国产精| 国产福利在线看| 中文字幕 欧美日韩| 精品激情国产视频| 91精品国产丝袜白色高跟鞋| 中文字幕狠狠干| 国产精品一区二区三区免费观看| 日韩中文字幕| 99视频一区| 日韩美女视频一区二区在线观看| wwww亚洲| 999视频精品| 蜜桃久久久久| 亚洲视频中文字幕| 亚洲乱码中文字幕| www日韩欧美| 国产欧美中文字幕| 国产在线不卡av| 国产高潮久久久| 亚洲视频色图| 成人a在线视频免费观看| 久久婷婷综合国产| 在线欧美一级视频| 精品久久久久久无| 欧美日韩国产首页| 国产欧美第一页| 欧美日韩一二| 国产午夜精品视频免费不卡69堂| 精品视频在线视频| 99精品视频国产| 999精品在线| 国产成人一二三区| 精品国产欧美日韩不卡在线观看| 午夜少妇久久久久久久久| av丝袜在线| 亚洲欧美日本另类| 国产欧美日韩综合精品| 中文字幕在线视频网| 亚洲黄在线观看| 亚洲娇小xxxx欧美娇小| 91av久久久| 精品精品久久| 日韩欧美国产成人精品免费| 国产欧美三级| 国产福利久久久| 日韩精品视频免费在线观看| 91精品国产自产| 色综合久久六月婷婷中文字幕| 99在线精品视频免费观看20| 日韩精品在线看| 国产三级精品在线观看| 欧美日韩午夜在线| 日本中文字幕在线观看| 日韩欧美999| 日韩精品国产欧美| 精品久久九九| 免费高清特黄a大片|