send
Grupo de Telegram
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Aplicacion cliente servidor control Winsock (MSWINSCK.OCX)

  • 0 Respuestas
  • 1120 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5283
  • Actividad:
    35%
  • Reputación 28
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 12:20:55 pm »
Una ves creada las dos aplicaciones la pueden provar las dos en un mismo ordenador solo tienes que estar en red.

Aplicación Cliente.
************************************************** *******

Controles Propiedades Valor
------------ -------------- ---------------
1- Winsock name= Winsock1
Protocol= sckTCPProtocol

2- Dos CommanBotton
CommanBotton1 name= BotonConectar
CommanBotton2 name= BotonEnviar
CommanBotton1 Caption= Conectar
CommanBotton2 Caption= Enviar


3- Tres TextBox
TextBox1 name= TextHost
TextBox2 name= TextPort
TextBox3 name= TextMensaje

Codigo:
**************
Código: Visual Basic
  1. Private Sub BotonConectar_Click()
  2. Winsock1.Close
  3. On Error GoTo error
  4. Winsock1.Connect TextHost, TextPort
  5. Exit Sub
  6. error:
  7. MsgBox "Los datos entrados para la conexion no son correctos", , "Error"
  8. End Sub
  9.  
  10. Private Sub BotonEnviar_Click()
  11. On Error GoTo Error
  12. Winsock1.SendData TextMensaje
  13. Exit Sub
  14. Error:
  15. MsgBox "No esta conectado", vbCritical, "Error"
  16. End Sub
  17.  
  18. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  19. Dim mensaje As String
  20. Winsock1.GetData mensaje
  21. MsgBox mensaje, vbInformation, "Mensaje resivido"
  22. End Sub

**Para conectar con la aplicación servidor debe entrar
en el TextBox de nombre TextHost el nombre o IP de la PC donde se ejecuta la Aplicación de Servidor y en el de nombre TextPort el puerto por donde esta escuchando el servidor en este caso el 5500 usted lo puede cambiar solo tiene que tener en cuenta que el puerto no puede estar en uso por otra aplicación.
************************************************** *******
Aplicación Servidor.
************************************************** *******

Controles Propiedades Valor
------------ -------------- ---------------
1- Winsock name= Winsock1
Protocol= sckTCPProtocol

2-CommanBotton name= BotonEnviar
Caption= Enviar

3-TextBox name= TextMensaje

Codigo:
**************
Código: Visual Basic
  1. Private Sub Form_Load()
  2. Winsock1.LocalPort = 5500 'Puerto por donde se debe conectar el cliente
  3. Winsock1.Listen
  4. End Sub
  5.  
  6. Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  7. If Winsock1.State <> sckClosed Then Winsock1.Close
  8. Winsock.Accept IdSolicitud
  9. MsgBox "Se a conectado el Cliente", vbInformation, "Mensaje"
  10. Winsock1.SendData "Conectado"
  11. End Sub
  12.  
  13. Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  14. Dim mensaje As String
  15. Winsock1.GetData mensaje
  16. MsgBox mensaje, vbInformation, "Mensaje resivido"
  17. End Sub
  18.  
  19. Private Sub BotonEnviar_Click()
  20. On Error GoTo Error
  21. Winsock1.SendData TextMensaje
  22. Exit Sub
  23. Error:
  24. MsgBox "No esta conectado", vbCritical, "Error"
  25. End Sub

************************************************** *******
« Última modificación: Mayo 12, 2014, 03:13:18 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Saber desde que directorio se ejecuta mi aplicación

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1303
Último mensaje Julio 26, 2010, 10:22:17 am
por ANTRAX
Reiniciar la aplicacion ante un error (by leandro A.)

Iniciado por alexander1712

Respuestas: 0
Vistas: 1302
Último mensaje Enero 26, 2013, 03:02:22 am
por alexander1712
Colocar el icono de la aplicacion en el systray

Iniciado por ANTRAX

Respuestas: 1
Vistas: 1522
Último mensaje Julio 26, 2010, 12:20:09 pm
por _katze_
EAN13: Verificar y generar codigo de control

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3100
Último mensaje Julio 26, 2010, 04:22:33 pm
por ANTRAX
.bas para control de ODBC de bases de datos

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1225
Último mensaje Julio 26, 2010, 12:41:20 pm
por ANTRAX