免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

具體的理論只是，參考  點擊打開鏈接的上一部分

服務器端

Private Sub Command1_Click()
    Dim strSend As String
    strSend = Text2.Text
    Sock(1).SendData strSend
End Sub

Private Sub Command2_Click()
    Command2.Caption = Sock(0).RemoteHostIP
End Sub

Private Sub Form_Load()
    'Load Sock(0)
    Listener.LocalPort = 8000   '端口號
    Listener.Listen             '開始偵聽
End Sub

Private Sub Listener_ConnectionRequest(ByVal requestID As Long)
    Dim SockIndex As Integer
    SockIndex = 200
    Dim i As Integer?
    '遍歷控件
    For i = 0 To Sock.UBound
        If Sock(i).State = 0 Then SockIndex = i
    Next
    If SockIndex = 200 Then
        Load Sock(Sock.UBound + 1)
        SockIndex = Sock.UBound
    End If
    '接受請求
    Sock(SockIndex).Accept (requestID)
End Sub

Private Sub Sock_Close(Index As Integer)
    If Sock(Index).State <> sckClosed Then
        Sock(Index).Close
    End If
End Sub
      
Private Sub Sock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim strGet As String 
    '接收字符串并寫入text中
    Sock(Index).GetData strGet
    Text1.Text = strGet
End Sub 
    ------------------------------------------------------------------

客戶端

Private Sub Command1_Click()
    Dim strSet As String
    strSet = Text2.Text
    Winsock1.SendData strSet
End Sub

Private Sub Command2_Click()
    Me.Winsock1.RemoteHost = "10.1.51.150"
    Me.Winsock1.RemotePort = 8000
    Me.Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim strGet As String
    '接收字符串并寫入Text1控件中
    Winsock1.GetData strGet
    Text1.Text = strGet
End Sub

Private Sub Form_Load()
    
End Sub