<p>編寫網絡尋呼機   </p>
<p>作者：岳兵</p>
<p></p>
<p>　　提起ICQ的大名，愛好電腦的朋友一定不會感到陌生的吧？ICQ就是互聯網上的尋呼機，無論什么時候，只要你的朋友在線，你只需在ICQ中輸入他的ID號碼，你就可以在互聯網上呼到他。ICQ由于其方便、快捷，且擁有眾多的注冊用戶而一舉成為互聯網上最流行的網絡尋呼機，它幾乎成為每一個上網用戶的必備之物。當你在使用ICQ的時候，是否會想過自己動手編寫一個網絡尋呼機呢？這其實在VB中就可以實現。</p>
<p></p>
<p>　　網絡尋呼的原理就是當客戶端程序連接服務器時，通過服務器搜索所要呼叫的ID號碼，如果檢測到此用戶且該用戶正處于聯網狀態，則服務器通知此用戶的客戶端程序響應主叫方客戶端程序，然后在主叫方和被叫方建立連接后，雙方就可以聊天或進行其它的通信。</p>
<p></p>
<p>　　在VB中編寫網絡尋呼機需要建立兩個程序，一個為客戶端程序Client，一個為服務器端程序Server。</p>
<p></p>
<p>　　一、在Client工程中建立一個窗體，加載WinSock控件，稱為tcpClient，協議選擇TCP。再加入四個文本框，用以輸入服務器的IP地址、服務器端口號，被呼叫的網絡尋呼ID號以及用戶登錄ID號。然后再在窗體中加入三個按鈕，分別命名為“連接”、“斷開”和“退出”，點擊“連接”按鈕，并進行如下初始化連接，代碼如下： </p>
<p></p>
<p>Private Sub Command1_Click()</p>
<p>　If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then</p>
<p>　　MsgBox ("請輸入主機名或主機IP地址。")</p>
<p>　　Exit Sub</p>
<p>　ElseIf Len(Text1.Text) > 0 Then</p>
<p>　　tcpClient.RemoteHost = Text1.Text</p>
<p>　　tcpClient.RemotePort = Text2.Text</p>
<p>　End If</p>
<p>　tcpClient.Connect</p>
<p>　Timer1.Enabled = True</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command2_Click()</p>
<p>　tcpClient.Close　　　'斷開連接</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Command3_Click()</p>
<p>　End</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>　Text2.Text = "1001"</p>
<p>End Sub</p>
<p></p>
<p>Private Sub tcpClient_Connect()</p>
<p>　tcpClient.SendData (Text3.Text&"@"&Text4.Text)</p>
<p>End Sub</p>
<p></p>
<p>Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)</p>
<p>　Dim strData As String</p>
<p>　tcpClient.GetData strData</p>
<p>　strData = strData + "呼叫"　</p>
<p>'在收到呼叫消息后彈出一對話框并顯示主叫方ID號碼</p>
<p>　MsgBox (strData)</p>
<p>End Sub</p>
<p></p>
<p>　　二、在服務器端Server工程中也建立一個窗體，加載WinSock控件，稱為tcpServer，協議選擇TCP，設置其Index值為0，并在工程中添加模塊。內容如下： </p>
<p></p>
<p>Private Type ActiveUser</p>
<p>　ClientIP As String　　　 '記錄客戶的IP地址</p>
<p>　ClientPort As Integer　　'記錄當前會話的端口</p>
<p>　ClientID As Long　　　　 '記錄客戶的ID號碼</p>
<p>　ClientConnected As Boolean '客戶連接狀態，True表示已連接，False表示沒有連接</p>
<p>End Type</p>
<p></p>
<p>Dim CurUser() As ActiveUser</p>
<p>Dim tcpIndex As Integer　 '跟蹤當前建立連接數</p>
<p></p>
<p>　　在Form_Load事件中加入如下代碼： </p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>　tcpServer(0).Protocol = sckTCPProtocol</p>
<p>　tcpServer(0).LocalPort = 1001 </p>
<p>　'將 LocalPort 屬性設置為一個整數。</p>
<p>　tcpServer(0).Listen　　'然后調用 Listen 方法。</p>
<p>　tcpIndex = 1</p>
<p>End Sub</p>
<p></p>
<p>　　準備應答客戶端程序的請求連接，使用ConnectionRequest事件來應答戶端程序的請求，代碼如下： </p>
<p></p>
<p>Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)</p>
<p>　Dim i As Integer</p>
<p>　On Error GoTo ErrHandle</p>
<p>　For i = 1 To tcpIndex　 '選擇一個空閑端口</p>
<p>　　If CurUser(i).ClientConnected = False And i < > tcpIndex Then</p>
<p>　　　Load tcpServer(i)</p>
<p>　　　tcpServer(i).LocalPort = CurUser(i).ClientPort - 1</p>
<p>　　　tcpServer(i).Accept requestID</p>
<p>　　　Exit For</p>
<p>　　ElseIf CurUser(i).ClientConnected = False Then</p>
<p>　　　 Load tcpServer(i)</p>
<p>　　　 tcpServer(i).LocalPort = Port</p>
<p>　　　 If tcpServer(i).State < > sckClosed Then</p>
<p>　　　　　tcpServer(i).Close</p>
<p>　　　 End If</p>
<p>　　　 tcpServer(i).Accept requestID</p>
<p>　　　 Exit For</p>
<p>　　End If</p>
<p>　Next</p>
<p>　DoEvents</p>
<p>　'測試連接是否成功</p>
<p>　If tcpServer(i).State = sckConnected Then</p>
<p>　　If i = tcpIndex Then　　 </p>
<p>　　 '已經沒有可用端口,記錄客戶的IP地址和端口號</p>
<p>　　　tcpIndex = tcpIndex + 1</p>
<p>　　　Port = Port + 1</p>
<p>　　　ReDim Preserve CurUser(tcpIndex)</p>
<p>　　　CurUser(i).ClientIP = tcpServer(i).RemoteHostIP</p>
<p>　　　CurUser(i).ClientConnected = True</p>
<p>　　　CurUser(i).ClientPort = Port</p>
<p>　　　CurUser(tcpIndex).ClientConnected = False</p>
<p>　　Else</p>
<p>　　　CurUser(i).ClientIP = tcpServer(i).RemoteHostIP</p>
<p>　　　CurUser(i).ClientPort = Port</p>
<p>　　　CurUser(i).ClientConnected = True</p>
<p>　　End If</p>
<p>　End If</p>
<p>　Exit Sub</p>
<p>　ErrHandle:</p>
<p>　　Resume Next　</p>
<p>　　'檢查控件的 State 屬性,如未關閉，在接受新的連接之前關閉此連接。</p>
<p>　　If tcpServer(0).State <> sckClosed Then</p>
<p>　　tcpServer(0).Close</p>
<p>　　tcpServer(0).Accept requestID　　</p>
<p>　　'接受具有 requestID 參數的,連接。</p>
<p>End Sub</p>
<p></p>
<p>Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)</p>
<p>　Dim i As Integer</p>
<p>　Dim s As String</p>
<p>　Dim RequID As Long　 '主叫方ID號碼</p>
<p>　Dim SearchID As Long '被叫方ID號碼</p>
<p></p>
<p>　On Error GoTo ErrHandle</p>
<p>　tcpServer(Index).GetData s, vbString </p>
<p>　'接收數據并存入s　　 </p>
<p>　If Mid(s, i, 1) = "@" Then　</p>
<p>　　'分離s中的主叫方和被叫方ID號碼</p>
<p>　　SearhID = Left(s, i - 1)　　'把號存入mKey</p>
<p>　　RequID = Right(s, Len(s) - i) 'ID存入RequID</p>
<p>　End If</p>
<p></p>
<p>　'如果是請求尋呼某一ID號碼,則檢索當前此ID用戶是否登錄（即CurUser數組中是否存在此用戶）,然后發送信息，通知此用戶響應呼叫并顯示主叫用戶ID號碼。</p>
<p>　For i = 1 To tcpIndex</p>
<p>　　If RequID = CurUser(i).ClientID And CurUser(i).ClientConnected = True Then</p>
<p>　　　tcpServer(i).SendData (SearhID)</p>
<p>　　End If</p>
<p>　Next</p>
<p>　Exit Sub</p>
<p>　ErrHandle:</p>
<p>　　If Err.Number = sckBadState Then　 '連接不正確</p>
<p>　　　 CurUser(i).ClientConnected = False</p>
<p>　　　 CurUser(i).ClientIP = ""</p>
<p>　　　 Unload tcpServer(i)</p>
<p>　　　 Resume Next</p>
<p>　　End If</p>
<p>End Sub</p>
<p></p>
<p>　　本程序僅提供了用Visual Basic 編寫網絡尋呼的思路和主要部分的實現過程，至于主叫方和被叫方建立連接后的通信并未擴展，讀者若有興趣，可在這方面加入具體的實現代碼，就可以給本程序增加更多的功能，如實時聊天，語音對話等。如果在服務器程序檢索到被叫方時，分別通知兩者客戶端程序，使主叫方和被叫方直接利用IP地址進行連接，則兩者的連接速度將會有大幅度的提高。  </p>