Trucos informatica, que es informatica - Programando la primera aplicación Cliente/Servidor 2

Friday, 21 de November de 2008

Home

Trucos

Programando la primera aplicación Cliente/Servidor 2

Pc utility software

Programando la primera aplicación Cliente/Servidor 2

autor iskiam

Friday, 13 de May de 2005

Esto hace que el Control WinSock empiece a funcionar, escuchando el puerto que se indicó en las propiedades de dicho control. Este puerto es el 888. Ahora si realizamos todo a la perfección el puerto 888 esta siendo vigilado para aceptar conexiones remotas. Luego en el Evento DataArrival del WinSock;

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Datos queda transformada en una variable de cadena, y WinSock almacena los datos que recibe del Cliente en el buffer y luego ingresan a la variable datos, dicha variable mostrará su contenido en el control TextBox (Text1).

En el evento ConnectionRequest;

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Este evento es muy importante, permite aceptar la petición de conexión. Sin este evento el resto del programa no tendría efecto.

En el evento Click del command2;

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Comentario[s]

Escrito por Invitado el 2008-10-29 02:35:36

hello Welcome to our wow gold and World of Warcraft gold store. We arewow gold specilized, professional andwow powerleveling reliable website for wow gold selling and wow power leveling service. By the samewow power leveling token,we offer thewow power leveling best WoW service wow power levelingfor our long-term Rolexand loyal customers. You willwow power leveling find thewow gold benefits andwow powerleveling value we created wow powerlevelingdifferent from otherpowerleveling sites. As to most powerlevelingpeople, they are cheap wow goldunwilling to spend mostcheap wow gold of the timepower leveling grinding money forpower leveling mounts or repair wow power levelingwhen they can purchase what rolex replicathey are badly need. The onlyreplica rolex way is to look forcheap wow gold the best placeRunescape Gold to buy cheap WOW gold. Yes! YouRuneScape Money find it here! OurWatches Rolex WoW Gold gold wowsupplying service has already Rolex Watchesaccumulated a high reputation andwow gold credibility. We have plenty of Gold suppliers,Watch Rolex which will guarantee our deliveryRolex Watch instant. Actually, we have been getting tons of postive rs goldfeedbacks from our loyal customers who really appreciate our service.