亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

用VB編寫網絡尋呼機

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

----在VB中編寫網絡尋呼機需要建立兩個程序，一個為客戶端程序Client，一個為服務器端程序Server。

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

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

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

PrivateTypeActiveUser
ClientIPAsString'記錄客戶的IP地址
ClientPortAsInteger'記錄當前會話的端口
ClientIDAsLong'記錄客戶的ID號碼
ClientConnectedAsBoolean
'客戶連接狀態，True表示已連接，False表示沒有連接
EndType
DimCurUser()AsActiveUser
DimtcpIndexAsInteger'跟蹤當前建立連接數

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

----準備應答客戶端程序的請求連接，使用ConnectionRequest事件來應答戶端程序的請求，代碼如下：
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
'已經沒有可用端口,記錄客戶的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屬性,如未關閉，在接受新的連接之前關閉此連接。
IftcpServer(0).State<>sckClosedThen
tcpServer(0).Close
tcpServer(0).AcceptrequestID
'接受具有requestID參數的,連接。
EndSub

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

OnErrorGoToErrHandle
tcpServer(Index).GetDatas,vbString
'接收數據并存入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數組中是否存在此用戶）,然后發送信息，通知此用戶響應呼叫并顯示主叫用戶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編寫網絡尋呼的思路和主要部分的實現過程，至于主叫方和被叫方建立連接后的通信并未擴展，讀者若有興趣，可在這方面加入具體的實現代碼，就可以給本程序增加更多的功能，如實時聊天，語音對話等。如果在服務器程序檢索到被叫方時，分別通知兩者客戶端程序，使主叫方和被叫方直接利用IP地址進行連接，則兩者的連接速度將會有大幅度的提高。->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
日韩国产中文字幕| 操人视频在线观看欧美| 久久久国产91| 精品亚洲男同gayvideo网站| 国产精品久久99久久| 国产日本欧美一区二区三区| 成人激情视频在线观看| 欧美成人免费全部| 3344国产精品免费看| 中文字幕国内精品| 欧美精品在线免费观看| 精品人伦一区二区三区蜜桃免费| 欧美丝袜一区二区| 国产日韩中文字幕在线| 成人激情视频小说免费下载| 成人欧美一区二区三区黑人| 日本久久久久久| 日韩精品在线免费观看视频| 亚洲视频一区二区三区| 欧美极品少妇xxxxⅹ裸体艺术| 欧美黑人xxxx| 国产有码在线一区二区视频| 欧美日韩中文在线观看| 亚洲国产成人爱av在线播放| 国内揄拍国内精品少妇国语| 亚洲一区二区三区乱码aⅴ| 亚洲成色www8888| 欧美激情手机在线视频| 九九热这里只有在线精品视| 亚洲字幕一区二区| 久久久噜噜噜久久| 久久亚洲精品网站| 一区二区三区四区视频| 欧美激情亚洲综合一区| 国产精品一区二区女厕厕| 欧美一级片久久久久久久| 久久夜精品va视频免费观看| 综合国产在线视频| 精品国产乱码久久久久酒店| 91精品成人久久| 国产视频999| 国产精品私拍pans大尺度在线| 久久视频精品在线| 欧美成人午夜剧场免费观看| 正在播放国产一区| 久久天天躁狠狠躁夜夜爽蜜月| 精品人伦一区二区三区蜜桃网站| 日韩美女写真福利在线观看| 久久久99免费视频| 久久久综合免费视频| 亚洲欧洲xxxx| 日韩免费观看在线观看| 国产日韩欧美在线视频观看| 国产一区二区三区四区福利| 久久精品影视伊人网| 欧美日韩亚洲国产一区| 在线精品国产成人综合| 欧美性视频精品| 午夜精品一区二区三区在线| 国产ts一区二区| 一本一本久久a久久精品牛牛影视| 欧美俄罗斯性视频| 精品国产乱码久久久久酒店| 97久久久免费福利网址| 国产精品狠色婷| 精品久久香蕉国产线看观看亚洲| 欧美电影免费播放| 高清欧美性猛交| 第一福利永久视频精品| 国产精品99久久久久久www| 国产69久久精品成人| 国产日韩欧美在线观看| 久久久久日韩精品久久久男男| 国产日韩在线亚洲字幕中文| 91精品91久久久久久| 午夜精品一区二区三区在线视频| 精品国产一区二区三区久久狼5月| xxxxxxxxx欧美| 少妇高潮久久77777| 日韩国产欧美精品一区二区三区| 亚洲free性xxxx护士hd| 亚洲国产精品久久久久| 91久久久久久久久久| 欧美最猛性xxxxx(亚洲精品)| 久久精品在线视频| 亚洲最大的免费| 最近的2019中文字幕免费一页| 久久久久久久爱| 久久99热这里只有精品国产| 日韩av中文字幕在线免费观看| 国产精品久久久久久久久久久久| 欧美午夜激情小视频| 久久久999精品| 91在线精品播放| 国产高清视频一区三区| 91中文在线视频| 欧美激情一区二区三区高清视频| 在线观看久久久久久| 在线视频亚洲欧美| 国产亚洲欧洲高清| 色视频www在线播放国产成人| 日韩视频在线免费观看| 国产精品老牛影院在线观看| 国产成人综合精品在线| 中文字幕最新精品| 欧美日韩亚洲一区二| 亚洲无限av看| 日韩电影大全免费观看2023年上| 国内精品久久久久影院 日本资源| 国产精品久久久久久影视| 欧美成人激情视频| 亚洲欧美一区二区三区四区| 精品成人国产在线观看男人呻吟| 成人激情电影一区二区| 欧美高清在线视频观看不卡| 国产精品在线看| 92福利视频午夜1000合集在线观看| 色综久久综合桃花网| 亚洲毛茸茸少妇高潮呻吟| 日韩在线视频一区| 成人午夜高潮视频| 国产精品高清在线| 国产欧美日韩中文字幕| 日韩成人黄色av| 国产精品美女在线| 成人看片人aa| 精品久久国产精品| 日韩欧美在线一区| 欧美不卡视频一区发布| 国产在线久久久| 91sa在线看| 在线中文字幕日韩| 国产一区二区三区免费视频| 欧美日韩亚洲网| 日本精品久久久| 国产精品精品一区二区三区午夜版| 欧美日韩国产成人高清视频| 日韩美女av在线| 91av成人在线| 国产999在线观看| 尤物九九久久国产精品的特点| 欧美日韩免费在线| 国产美女精品视频免费观看| 国产精品日韩久久久久| 91在线色戒在线| 欧美精品在线观看91| 久久视频免费在线播放| 中文字幕在线看视频国产欧美| 欧美一区二区三区精品电影| 亚洲一区二区三区xxx视频| 久久精品成人一区二区三区| 日本亚洲精品在线观看| 亚洲91精品在线观看| 欧美日韩中国免费专区在线看| 欧美野外猛男的大粗鳮| 国产一区二区欧美日韩| 国产精品激情av电影在线观看| 成人黄色午夜影院| 国产综合在线看| 午夜精品久久久久久久99黑人| 日本欧美国产在线| 欧美性猛交99久久久久99按摩| 欧美日韩中文字幕在线视频| 97久久国产精品|