用 Winsock TCP 控制項建立及使用用戶端/伺服器＠資訊好好玩

2007-07-05 22:35:41 | 人氣340| 回應0 | 上一篇 | 下一篇

本文曾發行於 CHT152057

結論

其他相關資訊

第一階段 - 建立伺服器

第二階段 - 建立用戶端

参考

結論

Internet Control Pack 包含 Winsock Control，可以讓您連線到遠端機器上，並且在電腦間作雙向的動態資料交換。本文件可示範，建立用戶端與伺服器間最低關係以及在電腦間交換資料所需的步驟。 Winsock TCP 控制項是以連線為基礎的控制項，可用來建立用戶端和伺服器。

回此頁最上方

1.	在 Visual Basic 中啟動新專案，按預設建立 . Form1。
2.	從 [工具] 功能表中，選擇 [自訂控制項]，將參照加入 Microsoft Winsock Control中。
3.	將 Winsock TCP 控制項加入 [表單] 中，將控制項的索引屬性變更為零。
4.	將下列程式碼加入 Form1 的一般宣告區段： `Private gSockInstance Private Sub Form_Load() gSockInstance = 0 TCP1(0).LocalPort = 1007 TCP1(0).Listen End Sub Private Sub TCP1_ConnectionRequest(Index As Integer, _ ByVal requestID As Long) gSockInstance = gSockInstance + 1 Load TCP1(gSockInstance) TCP1(gSockInstance).Accept requestID End Sub Private Sub TCP1_DataArrival(Index As Integer, ByVal bytesTotal _ As Long) Dim vta TCP1(Index).GetData vta, vbString MsgBox vta, 0, "Server" End Sub`
5.	從 [執行] 功能表中選擇 [開始]，或按 F5 鍵啟動程式。
6.	將 Visual Basic 最小化。

回此頁最上方

1.	啟動第二份 Visual Basic，此時系統會用預設表單 (Form1)，建立新專案 (Project1)。
2.	從 [工具] 功能表中選擇 [控制項]，選擇 [自訂控制項]，將參照加入 Microsoft Winsock 控制項中。
3.	將 Winsock TCP 控制項和兩個 [命令] 按鈕加入 [表單] 中。將 [命令標題] 按鈕變更為「連線」和「傳送資料」。
4.	將下列程式碼加入「連線」按鈕 Click 事件： `Private Sub Command1_Click() With TCP1 .RemoteHost = "machine name you specify" .RemotePort = 1007 .Connect End With End Sub`
5.	將下列程式碼加入「傳送資料」按鈕 Click 事件： `Private Sub Command2_Click() TCP1.SendData "This is how we begin" End Sub`
6.	將下列程式碼加入 TCP1_Connect 事件： `Private Sub TCP1_Connect() If (TCP1.State = sckConnected) Then MsgBox "connection successful" Else MsgBox "connection failed" End If End Sub`本文件為示範起見，用戶端與伺服器都在同一架電腦上執行。 TCP1.RemoteHost 指定為執行伺服器的電腦，但是只要將 RemoteHost 屬性稍加改變，就可以讓您透過點對點連接與任何電腦連線。
7.	從 [執行] 功能表選擇 [開始]，或是按 F5 鍵啟動程式。
8.	按下 [連線] 按鈕，即顯示訊息方塊，表示已連線成功。
9.	按下 [傳送資料] 按鈕，就會從伺服器端顯示，其中包含所傳送資料的訊息方塊。