说起ICQ、OICQ，网络的虫虫们一定不会对此感到陌生吧!ICQ、OICQ就是互联网上的寻呼机，无论什么时候，只要你的朋友在线，你只需在OICQ、ICQ中输入他的ID，你就可以在互联网上呼到他。OICQ、ICQ由于其方便、快捷，且拥有众多的注册用户而一举成为互联网上最流行的网络寻呼机，它几乎成为每一个上网用户的必备之物。当你在使用OICQ、ICQ的时候，是不是也想自己做个网络寻呼机呢？我想是吧--好，那你就仔细的往下读吧^_^
我们现在来拿Visual Basic[简称VB]编写。GO_ON
网络寻呼的原理就是当客户端程序[Client]连接服务器时，通过服务器查找所要呼叫的ID，如果检测该用户正处于联网状态，则服务器通知此用户的客户端程序[Client]响应主叫方客户端程序，然后在主叫方和被叫方建立连接后，双方就可以聊天或进行其它的通信了^_^。
在VB中编写网络寻呼机需要建立一个客户端程序Client和一个服务器端程序Server。
#再介绍什么是Winsock控件，好-往下看>
#Winsock控件建立在TCP、UDP的协议基础上，以达到网络上的主机互连--先来看下面的通信程序例子，OK
Dim sign As Boolean
Dim flashsign As Boolean
Dim con As Boolean
Private Sub transfer_Click()
On Error GoTo transfererror
Timer1.Enabled = False
gettext.Text = " 纪风/[aeonwind_speak]:" + sendtext.Text + Chr(13) + Chr(10) + gettext.Text
Dim say As String
If sign = True Then
say = " 纪风/[aeonwind_speak]:" + sendtext.Text + Chr(13) + Chr(10)
Winsockout.SendData say
Else
say = " 纪风/[aeonwind_speak]:" + sendtext.Text + Chr(13) + Chr(10)
Winsock1.SendData say
End If
sendtext.Text = ""
Exit Sub
transfererror:
Dim a As String
a = "错误，系统还没有连结到网络^_^"
MsgBox (a)
End
Exit Sub
End Sub
Private Sub conbut_Click()
On Error GoTo connecterror
Winsockout.RemoteHost = hostnametext.Text
Winsockout.Connect
sign = True
conbut.Default = False
transfer.Default = True
Exit Sub
connecterror:
Dim a As String
a = " 错误，系统还没有连结到网络^_^"
Dim b As String
b = " 连结错误，检查连结的计算机是否在线！"
MsgBox (b + a)
End
Exit Sub
End Sub
Private Sub exitbut_Click()
On Error GoTo exiterror
If con = True Then
End
End If
If sign = True Then
Winsockout.SendData "连接终止!"
Else
Winsock1.SendData "连接终止!"
End If
Exit Sub
exiterror:
Dim a As String
a = " 错误，系统还没有连结到网络^_^"
MsgBox (a)
End
Exit Sub
End Sub
Private Sub Form_Load()
Winsock1.Listen
sign = False
flashsign = True
Timer1.Enabled = False
con = False
conbut.Default = True
End Sub
Private Sub hostnametext_Change()
conbut.Enabled = True
End Sub
Private Sub Timer1_Timer()
If Form1.WindowState = 1 Then
If flashsign = True Then
Form1.Icon = LoadPicture(App.Path + "\zhcn010.ico")
flashsign = False
ElseIf flashsign = False Then
Form1.Icon = LoadPicture(App.Path + "\zhcn020.ico")
flashsign = True
End If
End If
End Sub
Private Sub Winsock1_Close()
conbut.Enabled = True
hostnametext.Enabled = True
Winsock1.Close
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> 0 Then
Winsock1.Close
End If
transfer.Default = True
If Form1.WindowState = 1 Then
Timer1.Enabled = True
MMControl1.Notify = False
Form1.MMControl1.Wait = True
Form1.MMControl1.Shareable = False
Form1.MMControl1.DeviceType = "waveaudio"
Form1.MMControl1.filename = App.Path + "\mcitest.wav"
Form1.MMControl1.Command = "Open"
Form1.MMControl1.Command = "play"
Form1.MMControl1.Command = "prev"
End If
conbut.Enabled = False
hostnametext.Enabled = False
sendtext.Enabled = True
gettext.Enabled = True
gettext.Text = " 连接完成!" + Chr(13) + Chr(10)
sign = False
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
If Form1.WindowState = 1 Then
Timer1.Enabled = True
MMControl1.Notify = False
Form1.MMControl1.Wait = True
Form1.MMControl1.Shareable = False
Form1.MMControl1.DeviceType = "waveaudio"
Form1.MMControl1.filename = App.Path + "\mcitest.wav"
Form1.MMControl1.Command = "Open"
Form1.MMControl1.Command = "play"
Form1.MMControl1.Command = "prev"
End If
Winsock1.GetData str
If str = " 连接终止!" Then
con = True
Winsock1.SendData " 是否要终止连接!"
ElseIf str = " 是否要终止连接!" Then
End
End If
gettext.Text = str + gettext.Text
End Sub
Private Sub Winsockout_Close()
hostnametext.Enabled = True
Winsockout.Close
End Sub
Private Sub Winsockout_Connect()
Form1.WindowState = 0
gettext.Enabled = True
sendtext.Enabled = True
conbut.Enabled = False
gettext.Text = "连接成功!" + Chr(13) + Chr(10)
End Sub
Private Sub Winsockout_DataAr
#呵呵--我想你应该明白了吧！回到正体，我们继续向下走 ^_^
在Client工程中建立一个窗体，加载WinSock控件，称为tcpClient，协议选择TCP。再加入四个Texe，用以输入服务器的IP地址、服务器端口[Port]，被呼叫的网络寻呼ID以及用户登录ID。然后再在窗体中加入三个按钮，分别命名为“连接”、“断开”和“退出”，点击“连接”按钮，并进行如下初始化连接，请看代码：
Private Sub Command1_Click()
If Len(Text1.Text) = 0 And Len(Text2.Text) = 0 Then
MsgBox ("输入主机名或主机IP地址。")
Exit Sub
ElseIf Len(Text1.Text) > 0 Then
tcpClient.RemoteHost = Text1.Text
tcpClient.RemotePort = Text2.Text
End If
tcpClient.Connect
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
tcpClient.Close '断开连接
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Text2.Text = "1001"
End Sub
Private Sub tcpClient_Connect()
tcpClient.SendData (Text3.Text&"@"&Text4.Text)
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
strData = strData + "呼叫"
'在收到呼叫消息后弹出一对话框，并显示主叫方ID
MsgBox (strData)
End Sub
#在服务器端Server工程中也建立一个窗体，加载WinSock控件，称为tcpServer，协议选择TCP，设置其Index值为0，并在工程中添加模块。
Private Type ActiveUser
ClientIP As String 'SAVE客户的IP地址
ClientPort As Integer 'SAVE当前会话的Port
ClientID As Long 'SAVE客户的ID
ClientConnected As Boolean '客户连接状态，True[真]表示已连接，False[假]表示没有连接
End Type
Dim CurUser() As ActiveUser
Dim tcpIndex As Integer '跟踪当前建立连接数
在Form_Load事件中加入：
Private Sub Form_Load()
tcpServer(0).Protocol = sckTCPProtocol
tcpServer(0).LocalPort = 1001
'将LocalPort 属性设置为一个整数。
tcpServer(0).Listen '然后调用 Listen 方法。
tcpIndex = 1
End Sub
准备应答客户端程序的请求连接，使用ConnectionRequest事件来应答户端程序的请求，请看代码：
Private Sub tcpServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
Dim i As Integer
On Error GoTo ErrHandle
For i = 1 To tcpIndex '选择一个空闲端口
If CurUser(i).ClientConnected = False And i < > tcpIndex Then
Load tcpServer(i)
tcpServer(i).LocalPort = CurUser(i).ClientPort - 1
tcpServer(i).Accept requestID
Exit For
ElseIf CurUser(i).ClientConnected = False Then
Load tcpServer(i)
tcpServer(i).LocalPort = Port
If tcpServer(i).State < > sckClosed Then
tcpServer(i).Close
End If
tcpServer(i).Accept requestID
Exit For
End If
Next
DoEvents
'测试是否连接成功
If tcpServer(i).State = sckConnected Then
If i = tcpIndex Then
'已经没有可用端口,记录客户的IP和Port
tcpIndex = tcpIndex + 1
Port = Port + 1
ReDim Preserve CurUser(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
End If
End If
Exit Sub
ErrHandle:
Resume Next
'检查控件的State属性,如未关闭，在接受新的连接之前关闭此连接。
If tcpServer(0).State <> sckClosed Then
tcpServer(0).Close
tcpServer(0).Accept requestID
'接受具有 requestID 参数的,连接。
End Sub
Private Sub tcpServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim i As Integer
Dim s As String
Dim RequID As Long '主叫方ID
Dim SearchID As Long '被叫方ID
On Error GoTo ErrHandle
tcpServer(Index).GetData s, vbString
'接收数据并存入s
If Mid(s, i, 1) = "@" Then
'分离s中的主叫方和被叫方ID号码
SearhID = Left(s, i - 1) '把号存入mKey
RequID = Right(s, Len(s) - i) 'ID存入RequID
End If
'如果是请求寻呼某一ID号码,则检索当前此ID用户是否登录（即CurUser数组中是否存在此用户）,然后发送信息，通知此用户响应呼叫并显示主叫用户ID号码。
For i = 1 To tcpIndex
If RequID = CurUser(i).ClientID And CurUser(i).ClientConnected = True Then
tcpServer(i).SendData (SearhID)
End If
Next
Exit Sub
ErrHandle:
If Err.Number = sckBadState Then '连接不正确
CurUser(i).ClientConnected = False
CurUser(i).ClientIP = ""
Unload tcpServer(i)
Resume Next
End If
End Sub
再看看UDP协议下的网络寻呼机是怎么写的？
·先看看什么是UDP？
#UDP协议是一种无连接协议，两台计算机之间的数据传输类似于传递邮件：消息从一台计算机发送到另一台计算机，但是两者之间没有明确的连接。
两台计算机的地位可以看成“对等的”，这种应用程序也被称为点对点的应用程序，由于UDP协议不需要显式的连接，就需要在两个Winsock控件
中间发送数据，因此需要完成以下三步：继续往下看！
·把RemoteHost属性设置为另一台计算机的名称。
·把RemotePort属性设置为第二个控件的LocalPort属性。
·调用Bind方法，指定使用的LocalPort。
和我一起做一下看看吧：
创建一个新的 Standard EXE 工程。将缺省的窗体的名称修改为frmPeerA，将窗体的标题修改为“Peer A”。然后
在窗体中放入一个Winsock控件，并将其命名为 udpPeerA。在[属性]上，单击[协议]并将协议修改为 UDPProtocol。
下一步在窗体中添加两个TextBox控件。将第一个命名为 txtSend，第二个命名为 txtOutput。最后再为窗体添加如下的代码。
Private Sub Form_Load()
′控件名为udpPeerA
With udpPeerA
′将RemoteHost的值改为对方计算机的名字
RemoteHost= ″PeerB″
RemotePort = 1001 ′连接的port。
Bind 1002 ′绑定到本地的port。
End With
frmPeerB.Show′显示第二个窗体。
End Sub
Private Sub txtSend_Change()
′在键入文本时，立即将其发送出去。
udpPeerA.SendData txtSend.Text
End Sub
Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
要创建第二个UDP伙伴，按以下步骤来执行
在工程中添加一个标准窗体，将窗体的名字修改为 frmPeerB，将窗体的标题修改为“Peer B”。
然后在窗体中放入一个 Winsock 控件，并将其命名为 udpPeerB。
然后在“属性”页上，单击“协议”并将协议修改为“UDPProtocol”。
然后在窗体上添加两个 TextBox 控件。将第一个命名为 txtSend，第二个命名为 txtOutput。
最后在窗体中添加代码：
Private Sub Form_Load()
′控件名为udpPeerB。
With udpPeerB
′把RemoteHost的值改为对方计算机的名字。
RemoteHost= ″PeerA″
RemotePort = 1002 ′要连接的port。
Bind 1001 ′绑定到本地的port上。
End With
End Sub
Private Sub txtSend_Change()
′在键入后立即发送text。
udpPeerB.SendData txtSend.Text
End Sub
Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
#OK--完成任务·辛苦了各位－－－休息一下，等待文章待续^_^
如果你还有什么不懂可以 mailto:aeonwind@21cn.com
------------------
天涯孤旅何时才能停止！
带着最终的信念飘零尘世！
只对着一屡屡的清风痴迷！
这就是我-千年纪风-与风作伴的天涯浪子...