Ayuda de programación de red VB

El problema ocurre en el lado del servidor. Primero, verifique que su With sea un servidor de calcetines, y algunos detrás de él sean SockClient y otros sean servidores de calcetines; segundo, su control winsock no tiene escucha; tercero: según mi experiencia, cuando use winsock, no use with, escriba directamente el; nombre de control.puertolocal, etc. El enfoque correcto debería ser unificar los nombres, eliminarlos y luego cambiar el enlace para escuchar.

Su cliente no tiene errores y se puede copiar directamente. Cambié el código del servidor a lo siguiente (pasé la prueba en esta máquina):

El código del servidor cambiado:

Private Sub Form_Load()

sockclient. LocalPort = 2000 'Especifique el número de puerto (generalmente especifique un puerto superior a 1024)

sockclient.Listen

End Sub

'Aquí para manejar la información del cliente receptor enviado

Private Sub sockclient_DataArrival(ByVal bytesTotal As Long)

Dim Tmp As String

sockclient.GetData Tmp 'Recibir información enviada desde el cliente

MsgBox Tmp 'Muestra la información enviada por el cliente

End Sub

'Aquí está el procesamiento de la solicitud de conexión recibida

Private Sub sockclient_ConnectionRequest( ByVal requestID As Long)

sockclient.Close 'Evitar que se abra SockClient

sockclient.Accept requestID 'Aceptar la solicitud del cliente

End Sub

'Por supuesto, el servidor también puede enviar información al cliente, como crear un control Command1 en la ventana y luego agregar algún código

Private Sub Command1_Click()

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

sockclient.SendData "Esta es la información enviada por el servidor"

Finalizar si

End Sub

El cliente copia el original directamente y el servidor copia los cambios que hice. Lo probé en mi máquina y pasó.

¡Los puntos me los deberían dar a mí! ! ! ! !