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

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

用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地址進行連接,則兩者的連接速度將會有大幅度的提高。->


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 三级国产三级在线 | 亚洲一区在线免费视频 | 久久免费视频8 | 国产一级在线免费观看 | av在线免费电影 | 亚洲精品3 | 亚洲视频欧美 | 欧美精品一区二区久久 | 国产欧美日韩在线不卡第一页 | 国产精品免费大片 | 免费网址黄 | 色七七亚洲| 奶子吧naiziba.cc免费午夜片在线观看 | 一区www| 精品久久久久久国产三级 | 亚洲第一页中文字幕 | 久久影院一区二区三区 | 天堂成人一区二区三区 | 视频在线色 | 狼人狠狠干 | 国产69精品福利视频 | 日韩一级毛毛片 | 逼特逼视频在线观看 | a黄色网| 国产在线欧美日韩 | 国产精品99久久久久久宅女 | av电影在线观看网址 | 国产69精品99久久久久久宅男 | 逼片视频| 中文字幕综合在线观看 | 成人精品视频在线 | 国产一级片91| 国产精品久久久久久久久久了 | 原来神马影院手机版免费 | 国产成年人视频网站 | 精品一区二区三区免费爱 | 国产一区免费在线 | 久久成年网站 | 久久国产精品网 | 久久美女免费视频 | 黄色av电影在线播放 |