Cómo usar winsock en VB para conectarse a otra computadora

'En el lado del servidor, cree dos controles Winsock en la ventana, llamados SockServer y SockClient respectivamente, y luego copie el siguiente código

Private Sub Form_Load()

Con SockServer

.LocalPort = 2000 'Especifique el número de puerto (normalmente es mejor especificar un puerto superior a 1024)

.Bind

Terminar con

End Sub

'Esto maneja la recepción de información enviada desde el cliente

.Bind

End With

End Sub

'Esto maneja la recepción de información enviada desde el cliente

Private Sub SockClient_DataArrival( ByVal bytesTotal As Long)

Dim Tmp As String

SockClient.Accept requestID 'Aceptar de la solicitud del cliente

End Sub

'Por supuesto, el servidor también puede enviar información al cliente, por ejemplo, crear un control Command1 en la ventana y luego agregar un fragmento de código

Private Sub Command1_ Click()

Si SockClient.State = 7 Entonces 'Determinar si estás en el estado de conexión 7 significa que estás conectado

SockClient.SendData "Este mensaje es para SockClient.SendData "Este es un mensaje del lado del servidor"

End If

End Sub

'Agregar un Control Winsock al cliente Agregue un control Winsock al cliente, llamado SockClient, un control Command con el nombre predeterminado Command1 y copie el código

Private Sub Form_Load()

SockClient. RemoteHost = "127.0.0.1" 'Esta es la dirección IP del servidor que debe completarse. Si están en la misma computadora, puede usar 127.0.0.1

SockClient.RemotePort = 2000 'El puerto abierto por el El servidor debe configurarse aquí, porque el puerto del servidor se configuró anteriormente en 2000. Por lo tanto, también debe configurarse en 2000

SockClient.RemotePort = 2000 'El puerto abierto por el servidor debe configurarse aquí, porque el El puerto del servidor se configuró anteriormente en 2000, por lo que también debe configurarse en 2000 aquí

SockClient.RemoteHost = "127.Connect

End Sub

' After la conexión es exitosa, el evento Connect se ejecutará

Activado

Sub privado SockClient_Connect()

MsgBox "Ya conectado al servidor:" & SockClient.RemoteHost

End Sub

' Aquí es donde se recibe la información enviada desde el servidor

Private Sub SockClient_DataArrival(ByVal bytesTotal As Long)

Dim Tmp As String

SockClient.GetData Tmp

MsgBox Tmp, vbOKOnly, "Mensaje recibido"

End Sub

'Aquí está el mensaje al servidor

Subcomando privado1_ Click( )

Si SockClient.State = 7 Entonces 'Si está en estado de conexión, envíe datos

SockClient.SendData "Este es el mensaje del cliente" 'Envíe el mensaje, el contenido puede ser arbitrario

End If

End Sub