vbµÄwinsock¿Ø¼þ½ÓÊܳöÏÖÂÒÂë

·þÎñÆ÷¶ËµÄ´úÂë:
Private intMax    As Long
   
Private Sub Command1_Click()
sckServer(intMax).SendData Text1.Text
End Sub

  Private Sub Form_Load()
        intMax = 0
        sckServer(0).LocalPort = 1011
        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

Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim shuju As String
sckServer(intMax).GetData shuju
Text2.Text = shuju
End Sub
¿Í»§¶Ë´úÂë:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Winsock1.SendData Text1.Text
End Sub

Private Sub Command3_Click()
          <