用VB寫的一個(gè)簡單的服務(wù)端程序，

服務(wù)器端程序：
Private Sub Form_Load()
tcpserver.LocalPort = 1001 '將 LocalPort 屬性設(shè)置為一個(gè)整數(shù)。
tcpserver.Listen '然后調(diào)用 Listen 方法。
End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpserver.State <> sckClosed Then tcpserver.Close '檢查控件的 State 屬性是否為關(guān)閉的。 '如果不是， '在接受新的連接之前先關(guān)閉此連接。
tcpserver.Accept requestID '接受具有 requestID 參數(shù)的 '連接。
msgbox("有人連接服務(wù)端")
End Sub

運(yùn)行后，啟動服務(wù)端，然后啟動客戶端，點(diǎn)“連接”按鈕，客服端端跳出窗口“連接服務(wù)器成功”，服務(wù)端跳出窗口“有人連接服務(wù)端”。表示雙方建立了連接。這個(gè)時(shí)候關(guān)閉客戶端，然后再啟動，點(diǎn)“連接”按鈕，就只是跳出連接服務(wù)器成功（程序設(shè)置不完美）。然后在輸入框中輸入向服務(wù)端發(fā)送數(shù)據(jù)，出現(xiàn)“錯(cuò)誤“40006” 所需事物請求的錯(cuò)誤協(xié)議連接或連接狀態(tài)”。這個(gè)時(shí)候發(fā)現(xiàn)第二次連接就不行，看來服務(wù)端只是支持單個(gè)連接，第二次連接相當(dāng)于，第二個(gè)連接，就找不到服務(wù)器，這個(gè)錯(cuò)誤跟沒有啟動服務(wù)端程序的錯(cuò)誤是一樣，說明客戶端找不到服務(wù)端。
解決辦法：創(chuàng)建控件數(shù)組
上面設(shè)計(jì)的基本服務(wù)器只能接受一個(gè)連接請求。通過創(chuàng)建控件數(shù)組，使用一個(gè)控件也可以同時(shí)接受多個(gè)連接請求。利用這種方法，不需要關(guān)閉連接，而只需創(chuàng)建新的控件實(shí)例（通過設(shè)置其索引屬性），然后在新的實(shí)例上調(diào)用 Accept 方法。

下面的代碼假定名為 sckServer 的窗體上有一個(gè) Winsock 控件，它的 Index 屬性被設(shè)置為 0；因此控件是控件數(shù)組的一部分。在聲明部分，聲明了一個(gè)模塊級的變量 intMax。在窗體的 Load 事件中，intMax 被設(shè)置為 0，數(shù)組中第一個(gè)控件的 LocalPort 屬性被設(shè)置為 1001。然后調(diào)用控件的 Listen 方法，使之成為“監(jiān)聽”控件。在連接請求到達(dá)時(shí)，代碼將檢測 Index 是否為 0（“監(jiān)聽”控件的值）。如果為 0，監(jiān)聽控件將增加 intMax 的值，并使用該號碼來創(chuàng)建新的控件實(shí)例。然后，使用新的控件實(shí)例接受連接請求。

Private intMax As Long

Private Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 1001
sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
End If
End Sub

下面涉及到sckServer的地方全部用上 sckServer(intMax)，就可以了

這樣即使客戶端重新啟動，一樣可以連接到服務(wù)端。