Red de conocimiento informático - Espacio del host - Quiero ejecutar tanto el cliente como el servidor en una computadora, usando la programación de control VB y Winsock. ¿Cómo puedo lograr esto?

Quiero ejecutar tanto el cliente como el servidor en una computadora, usando la programación de control VB y Winsock. ¿Cómo puedo lograr esto?

'Client.winsock=cli comando2 texto2

Private Sub cli_DataArrival(ByVal bytesTotal As Long)

Dim abc As String

cli.GetData abc

Text2.Text = Text2.Text amp; Chr(10) Chr(13) amp; abc

Fin Sub

Subcomando privado2_Click()

cli.SendData Text1.

End Sub

Sub privado Form_Load()

cli.RemoteHost = "192.168.0.1"

cli.RemotePort = 555

cli.RemotePort = 556

ser.Listen

Finalizar sub

Subcomando privado1_Clic ()

ser.SendData Text1.Private Sub ser_ConnectionRequest(ByVal requestID As Long)

Si ser.State lt;gt 0 Entonces ser.Close

ser.Accept requestID

End Sub

Private Sub ser_DataArrival(ByVal bytesTotal As Long)

Dim abc As String

ser.GetData abc

上篇: Tan pronto como el cargador del teléfono móvil se conecta al teléfono móvil, la luz indicadora del cargador no se enciende y no se puede realizar la carga. 下篇: Portátil Dell blanco de 14 pulgadas

Artículos populares