【文章內(nèi)容簡(jiǎn)介】
聽(tīng)狀態(tài);另一個(gè)按鈕用來(lái)推出服務(wù)器應(yīng)用程序,命名為 cmdClose. 具體代碼如下: Option Explicit Dim HostName As String * 256 Dim HostIP As String Dim colHostName As Collection 39。存儲(chǔ)用戶 Dim colHostcourse As Collection 39。存儲(chǔ)用戶所選擇的課程名 Private Sub Form_Load() 39。獲取本地計(jì)算機(jī)的名稱和 IP HostName = HostIP = 39。初始化端口號(hào)為 1024 = 1024 End Sub Private Sub cmdOpenPort_Click() If Trim$() = vbNullString Then MsgBox 請(qǐng)指定端口號(hào)! Exit Sub End If 39。設(shè)置服務(wù)器的端口號(hào) = CLng(Trim$()) 39。服務(wù)器端 WinSockTCP 空間執(zhí)行監(jiān)聽(tīng)功能 End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub WinsockTCP_ConnectionRequest(ByVal requestID As Long) On Error GoTo err 39。檢查控件的 State 屬性是否為關(guān)閉的 39。如果不是,在接受新的連接之前先關(guān)閉此連接 If sckClosed Then End If 39。利用 WinSock 控件響應(yīng)請(qǐng)求 39。同時(shí)相集合中加入該客戶端的地址 requestID err: MsgBox End Sub Private Sub WinsockTCP_DataArrival(ByVal bytesTotal As Long) Dim sData As String Dim