Red de conocimiento informático - Conocimiento informático - Ayuda a traducir el código VB (con algunos comentarios)

Ayuda a traducir el código VB (con algunos comentarios)

'¡Hace calor hoy!

'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

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