是什么？它是一種完全面向?qū)ο蟮木幊陶Z(yǔ)言，基于。N關(guān)于VB的網(wǎng)絡(luò)編程？private Sub sck server _ connection request(Index為整數(shù)，ByVal request

是什么？

它是一種完全面向?qū)ο蟮木幊陶Z(yǔ)言，基于。N

關(guān)于VB的網(wǎng)絡(luò)編程？

private Sub sck server _ connection request(Index為整數(shù)，ByVal requestID為長(zhǎng)整型)

Dim sip As String

將I標(biāo)注為整數(shù)

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

我1

請(qǐng)檢查是否已經(jīng)有此地址的記錄。

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

如果sckserver(I)。當(dāng)時(shí)狀態(tài)ltgt關(guān)閉

sckserver(I)。關(guān)閉

sckserver(I)。接受requestID

接受帶有requestID參數(shù)的連接。

如果…就會(huì)結(jié)束

出口接頭

如果…就會(huì)結(jié)束

我我1

環(huán)

否則，加載一個(gè)新的控件。

sckserver(I)。接受requestID

末端接頭

對(duì)于I 1To - 1

如果sckserver(I)。當(dāng)時(shí)狀態(tài)ltgt關(guān)閉

Dim stata作為字符串

stata文本2。文本

sckserver(I)。發(fā)送數(shù)據(jù)stata

如果…就會(huì)結(jié)束

然后