用VB編寫網路尋呼機(1) (轉)

用VB編寫網路尋呼機(1) (轉)[@more@]    提起ICQ的大名，愛好的朋友一定不會感到陌生的吧？ICQ就是網際網路上的尋呼機，無論什麼時候，只要你的朋友線上，你只需在ICQ中輸入他的ID號碼，你就可以在網際網路上呼到他。ICQ由於其方便、快捷，且擁有眾多的註冊而一舉成為網際網路上最流行的尋呼機，它幾乎成為每一個上網使用者的必備之物。當你在使用ICQ的時候，是否會想過自己動手編寫一個網路尋呼機呢？這其實在VB中就可以實現。

　　 網路尋呼的原理就是當客戶端連線時，透過伺服器搜尋所要呼叫的ID號碼，如果檢測到此使用者且該使用者正處於聯網狀態，則伺服器通知此使用者的客戶端程式響應主叫方客戶端程式，然後在主叫方和被叫方建立連線後，雙方就可以或進行其它的通訊。


　　 在VB中編寫網路尋呼機需要建立兩個程式，一個為客戶端程式Client，一個為伺服器端程式Server。


　　 一、在Client工程中建立一個窗體，載入WinSock，稱為tcpClient，選擇TCP。再加入四個文字框，用以輸入伺服器的、伺服器埠號，被呼叫的網路尋呼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