vb winsock controla los errores del lado del servidor
Elimine todas las llamadas en el código, como llamar a tcpserver.GetData(message) y agregue un parámetro VbString
Escriba el mensaje ?tcpserver.GetData, VbString
tcpserver.LocalPort = ?i?' Si 11024 ya está ocupado, es necesario restablecerlo. Si 11024 ya está ocupado, saltará a ErrPort incrementado en 1 y luego regresará para continuar.
tcpserver.Listen
'Si el puerto actual no es el puerto esperado, debe coordinarse con el sistema para encontrar la aplicación que ocupa el puerto y encontrar una manera de dejarla salir. primero.
MsgBox "El puerto de escucha actual es:" amp tcpserver.LocalPort
Salir de Sub
ErrPort:
Err.clear
p>i = i 1
si gt; 65534 entonces? ¿Msgbox 'Verificar configuración del firewall'? '(No tome 65535, el sistema lo usará en cualquier momento)
Reanudar
End Sub
Llame a tcpserver.Accept(requestid) a tcpserver. Aceptar requestid
Si el puerto sigue saltando a lugares que no espera, verifique si el firewall de su sistema o el firewall del programa antivirus están bloqueando su uso.
La llamada tcpserver.SendData("El profesor dice:" & txtsend.TXT) se cambia a
tcpserver.SendData("Textoutput.Text"). (txtoutput.Texto)