是什么？它是一種完全面向對象的編程語言，基于。N關于VB的網絡編程？private Sub sck server _ connection request(Index為整數，ByVal request

是什么？

它是一種完全面向對象的編程語言，基于。N

關于VB的網絡編程？

private Sub sck server _ connection request(Index為整數，ByVal requestID為長整型)

Dim sip As String

將I標注為整數

Sip sckserver(0)。RemoteHostIP獲取登錄的IP地址。

我1

請檢查是否已經有此地址的記錄。

如果sckserver (i)。remotehostip sip然后存在，沒有必要加載新的控件。

如果sckserver(I)。當時狀態ltgt關閉

sckserver(I)。關閉

sckserver(I)。接受requestID

接受帶有requestID參數的連接。

如果…就會結束

出口接頭

如果…就會結束

我我1

環

否則，加載一個新的控件。

sckserver(I)。接受requestID

末端接頭

對于I 1To - 1

如果sckserver(I)。當時狀態ltgt關閉

Dim stata作為字符串

stata文本2。文本

sckserver(I)。發送數據stata

如果…就會結束

然后