Ayuda a traducir el código VB (con algunos comentarios)
'Tengo la oportunidad de ayudarte a escribir más detalles
Private Sub Command1_Click() 'Evento de clic del botón 1
Fin 'Salir del programa
End Sub
Private Sub Form_Load() 'Evento de inicio de la ventana principal
textsend.Visible = False 'textsend es un control de cuadro de texto, configúrelo como invisible
textget.Visible = False 'Igual que arriba, textget está configurado como invisible
Winsockserver.LocalPort = 1001 'Winsockserver es el control winsock que agregó, vinculado al puerto de red 1001
Winsockserver.LocalPort = 1001 'Winsockserver es el control winsock que agregó, vinculado al puerto de red 1001
Winsockserver.LocalPort = 1001.Visible = True 'Igual que arriba
Si Winsockserver.State
End Sub
Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long) 'Han llegado datos
Dim tmpstr As String 'Define una variable de cadena tmpstr
Winsockserver.GetData 'tmpstr guarda los datos recibidos en tmpstr
textget.Text = tmpstr 'el cuadro de texto textget muestra los datos recibidos.
End Sub
El código fuente del programa cliente es el siguiente:
Private Sub Command1_Click() 'Igual que arriba
End
End Sub
Private Sub Command2_Click() 'Se hizo clic en el botón 2.
Se hizo clic en
Winsockclient.Connect 'Conectarse al servidor
End Sub
Private Sub Form_Load() 'Evento de inicio de la ventana principal
envío de texto Visible = False 'Establece el atributo invisible como arriba
textget.RemoteHost = "sccdsz" 'Vincula a la dirección IP del lado del servidor, como "192.168.1.1"
Fin. Sub
Private Sub Text1_Change() 'Cambiar los datos de Text1
Winsockclient.RemoteHost = Text1.SendData textsend.Text 'Enviar los datos en el cuadro de texto del final de texto al servidor p>
End Sub
Private Sub Winsockclient_Close() 'Igual que arriba, cierra la conexión
Winsockclient.Close
End
End Sub
Sub privado winsockclient_Connect() 'Hay una solicitud de conexión ahora
textsend.Text Viewible = True 'No se requiere más
End Sub