Paso 6: Codificación del Winsock
tenemos que decirle qué hacer cuando alguien intenta conectarse y necesitamos decirle a donde poner los datos que recibe
bien haga doble clic en el control(sckMain) de winsock
en la esquina superior derecha de la caja de código debe decir: error
Haga clic en el cuadro desplegable y seleccione la solicitud de conexión
ahora debe haber hizo un nuevo lugar para introducir código
en tipo de allí:
Si sckMain.state <> sckClose luego
sckMain.close
terminar si
sckMain.accept requestid
txtLog = txtLog.text & "conectarse:" & sckMain.RemoteHostIP & vbcrlf
primeras y segunda líneas comprueben si el winsock(sckMain) está cerrado y si no es así entonces cierra
tercera línea cierra el if instrucción
a línea dice el winsock (sckMain) para aceptar conexiones
quinta línea te dice que está conectado mediante la adición de una línea a txtLog
Ahora tenemos que decirle al winsock qué hacer con los datos recibe
en la parte superior derecha de la ventana de código, haga clic en el desplegable de la casilla y seleccione: DataArrival
Ahora, escriba este código:
Dim datos como cadena
sckMain.getdata datos, vbstring
txtLog = txtLog.text & vbcrlf & datos
primera línea hace datos una cadena que la picadura es donde los datos que se recibieron va a ser puesto antes de añadir a txtLog
segunda línea obtiene los datos y lo coloca en la cadena de datos como un vbstring
tercera línea agrega los datos recibidos a txtLog
Ahora bien, una vez más si es confuso y tienes preguntas post comentario o mensaje me
