Ayúdame a traducir el código VB (agrega algunos comentarios)

Estoy destinado a ayudarte a escribir más detalles.

Subcomando privado 1_Click()' botón 1 evento de clic

Programa de salida 'Finalizar'

Finalizar conector

Subformulario privado _Load() 'Evento de inicio de ventana principal

Envío de mensaje SMS. visible = false' Textsend es un control de cuadro de texto, ¿verdad? Hazlo invisible.

Obtener texto. Visible = False 'Igual que arriba, textget está configurado como invisible.

Servidor Winsock. ' puerto local = 1001 ' El servidor Winsock es el control Winsock que agregó, que se vincula al puerto de red 1001.

Servidor Winsock. El servidor "escucha" está configurado en estado de escucha.

Conector final

Subtexto privado enviar _ cambio()' Los datos del cuadro de texto de envío de texto han cambiado.

Servidor Winsock. "Enviar datos textsend.text" utiliza el servidor Winsock para enviar los datos en el cuadro de texto de envío de texto.

Conector final

Servidor sub Winsock privado _ close()' evento de cierre del servidor Winsock

Winsockserver. "Cerrar" cierra la conexión de Winsockserver.

Programa de salida 'Finalizar'

Conector final

Servidor privado sub-Winsock _ solicitud de conexión (el ID de solicitud byval es largo)' El servidor Winsock tiene una conexión pedido.

Enviar SMS. Visible = True 'Igual que arriba, cambia las propiedades del cuadro de texto para hacerlo visible.

Obtener texto. “Visible = real” Igual que el anterior.

Si Winsockserver. Estado<>Cierre la conexión si no está cerrada.

También necesitas agregar un If de cierre aquí.

Servidor Winsock. "Aceptar ID de solicitud" acepta conexiones de clientes.

Conector final

servidor subwinsock privado _ llegada de datos (bytes byval en total mientras) entran los datos.

' Dim tmpstr As String ' define una variable de cadena tmpstr.

Servidor Winsock. GetData 'tmpstr guarda los datos recibidos en tmpstr.

Obtener texto. Text = tmpstr 'el cuadro de texto textget muestra los datos recibidos.

Conector final

El código fuente del programa cliente es el siguiente:

Private Sub Command1_Click()' Igual que el anterior.

Finalizar

Finalizar conector

Se hizo clic en el botón 2 de Private Sub Command2_Click().

Cliente Winsock. "Conectar" se conecta al servidor.

Conector final

Evento de inicio de ventana principal subform_Load() privado

Envío de SMS. Visible = False 'Igual que arriba, el atributo es invisible.

textget. visible=false

Cliente Winsock. puerto remoto = 1001 'Vincular el puerto de red 1001.

Cliente Winsock.

remotehost = "sccdsz " 'La dirección IP del servidor de enlace es "192.168.1.1".

Conector final

Subtexto privado 1_Change()'Cambio de datos del cuadro de texto 1

Cliente Winsock. 'remotehost = text1.text'Establezca los datos en el cuadro de texto en la dirección IP del servidor.

Conector final

subtexto privado send _ change()' text Los datos en el cuadro de texto de envío han cambiado.

Cliente Winsock. ' senddatatextsend.text ' Envía los datos del cuadro de texto de envío de texto al servidor.

Conector final

Private Sub Winsockclient_Close()' Igual que arriba para cerrar la conexión.

Cliente Winsock. Cerrar

Fin

Finalizar conector

Sub privado Winsock client_connect()' Hubo una solicitud de conexión.

Enviar SMS. Visible = verdadero' no hay mucho que decir.

textget. visible=Verdadero

Comando 2. visible = false

Conector final

cliente privado sub Winsock _ llegada de datos (bytes byval en total, siempre y cuando)'Los datos han llegado.

Atenuar tmpstr como cadena

Winsockclient. GetData tmpstr

Textget. Text = tmpstr 'Los datos obtenidos anteriormente se guardan en el cuadro de texto TextGet y se muestran.

Conector final