<p>用VB編寫網絡尋呼 </p>
<p></p>
<p>河南省南陽市 岳兵</p>
<p></p>
<p>　　提起ICQ的大名，愛好電腦的朋友一定不會感到陌生的吧？ICQ就是互聯網上的尋呼機，無論什么時候，只要你的朋友在線，你只需在ICQ中輸入他的ID號碼，你就可以在互聯網上呼到他。ICQ由于其方便、快捷，且擁有眾多的注冊用戶而一舉成為互聯網上最流行的網絡尋呼機，它幾乎成為每一個上網用戶的必備之物。當你在使用ICQ的時候，是否會想過自己動手編寫一個網絡尋呼機呢？這其實在VB中就可以實現。</p>
<p>　　網絡尋呼的原理就是當客戶端程序連接服務器時，通過服務器搜索所要呼叫的ID號碼，如果檢測到此用戶且該用戶正處于聯網狀態，則服務器通知此用戶的客戶端程序響應主叫方客戶端程序，然后在主叫方和被叫方建立連接后，雙方就可以聊天或進行其它的通信。</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>　　內容如下：</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>　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 '將 LocalPort 屬性設置為一個整數。</p>
<p>　　tcpServer(0).Listen '然后調用 Listen 方法。</p>
<p>　　tcpIndex = 1</p>
<p>　End Sub</p>
<p></p>
<p>　　準備應答客戶端程序的請求連接，使用ConnectionRequest事件來應答戶端程序的請求，代碼如下：</p>
<p></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 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 '接受具有 requestID 參數的,連接。</p>
<p>　　End If</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>　　On Error GoTo ErrHandle</p>
<p>　　tcpServer(Index).GetData s, vbString '接收數據并存入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>　　'如果是請求尋呼某一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>　Sub 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>