Paso 5: Codificación de los botones de comando
deja comienzo con la primera cmdHost
1. Haga doble clic en él, esto hará que aparezca la ventana de código
2. debe tener este aspecto
Private Sub cmdHost_Click()
End Sub
3. Introduzca este código de
sckMain.LocalPort = txtPort.text
sckMain.listen
ahora ¿qué significa eso??
la primera línea hace el puerto local de Winsock es igual al número en el cuadro de texto (txtPort)
la segunda línea dice el winsock para escuchar en ese puerto para alguien tratando de conectar
ahora cierre y haga doble clic en cmdConnect
Introduzca este código de
sckMain.RemoteHost = txtIP.text
sckMain.RemotePort = txtPort.text
sckMain.Connect
las dos primeras líneas cambian el Host_remoto y el RemotePort de winsock (sckMain) a la ip y el puerto que queremos
el sckMain.Connect dice conectarse a alguien escuchando en ese puerto y la ip
ahora para el botón cerrar
Haga doble clic en cmdClose y tipo
sckMain.close
txtLog = txtLog.text & "Conexión cerrada!" & vbCrlf
el sckMain.close dice el winsock para desconectar
la segunda línea añade que conexión cerrada a txtLog
Haga doble clic en cmdSend y tipo
sckMain.senddata "[" & txtName.text & "]" & txtSend.text
txtLog = txtLog.text & "[" & txtName.text & "]" & txtSend.text & vbcrlf
txtSend.text = ""
las dos primeras líneas son mal que tengo a la derecha en el editor y les cambia cuando así que mira el cuadro para el código correcto
primera línea envía el texto en txtSend y su nombre en txtName
segunda línea agrega el mensaje enviado y su nombre a txtLog
tercera línea borra el texto en txtSend
