elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Curso de javascript por TickTack


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Permitir múltiples conexiones a un servidor Winsock
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Permitir múltiples conexiones a un servidor Winsock  (Leído 2,521 veces)
Brian1511

Desconectado Desconectado

Mensajes: 268


¿Quien soy esa es la gran pregunta?


Ver Perfil WWW
Permitir múltiples conexiones a un servidor Winsock
« en: 17 Diciembre 2012, 01:16 am »

Hola a todos como estan bueno aqui les bengo con una peticion que se que es semcilla pero dificil de encontrar .

Mi siguinte duda es que estoy realizando un proyecto conexión winsock , esta pide el estado del servidor si esta - Online / o / - Offline

Ya cree un post pero nadie me di realmente lo que queria , DarkoOnMatrix me dio un ejemplo hay , muy bueno pero no es lo que queria , asi que ospido que me ayudeis

ya tengo el code del Servidor este crea controles en tiempo de ejecucion todo perfecto pero no se como hacer para el cliente.

Este es el code que uso para el servidor:

Código
  1.  
  2. Public NumSockets As Integer '
  3.  Public Variable
  4. Dim ConnectionCount As Long
  5. Dim ac As String
  6.  
  7.  
  8.  
  9. Private Sub Command1_Click()
  10.  
  11. If Label1.Caption = "Online" Then
  12.  
  13. Me.Command1.Caption = "Abrir Servidor"
  14.  
  15. Winsock1(Index).Close
  16.  
  17. Label1.Caption = "Offline"
  18.  
  19. Label1.ForeColor = &HFF&
  20.  
  21. state.Caption = "No hay ninguna conexión."
  22.  
  23. List1.RemoveItem (Winsock1(Index).RemoteHost)
  24.  
  25. ElseIf Label1.Caption = "Offline" Then
  26.  
  27. Me.Command1.Caption = "Cerrar Servidor"
  28.  
  29. Winsock1(Index).Close
  30.  
  31. Winsock1(0).LocalPort = "1000"
  32.  
  33. Winsock1(0).Listen
  34.  
  35. Label1.Caption = "Online"
  36.  
  37. Label1.ForeColor = &HC000&
  38.  
  39. End If
  40. End Sub
  41.  
  42. Private Sub Form_Load()
  43.  
  44.  
  45. Label1.Caption = "Online"
  46.  
  47. Label1.ForeColor = &HC000&
  48.  
  49. Winsock1(0).LocalPort = 1000
  50.  
  51. Winsock1(0).Listen
  52.  
  53. End Sub
  54.  
  55. Private Sub Winsock1_ConnectionRequest(Index As Integer, _
  56. ByVal requestID As Long)
  57.  
  58. Dim rm As String
  59.  
  60. rm = Winsock1(Index).RemoteHost
  61.  
  62.   List1.AddItem (rm & " Se ha conectado.")
  63.  
  64.  
  65. Print "Connection Request from : " & _
  66. Winsock1(Index).RemoteHostIP; NumSockets = NumSockets + 1
  67.  
  68. '//Increase Number of Sockets by one. Load Winsock1(NumSockets) '//Load a New Winsock Object Nusockets as Index Value Winsock1(NumSockets).Accept requestID
  69. '//Accept the New Connection
  70.  
  71.  
  72. End Sub
  73. Private Sub Winsock1_DataArrival(Index As Integer, ByVal _
  74. bytesTotal As Long)
  75.  
  76. Winsock1(Index).GetData ac, vbString
  77.  
  78. Print vtData
  79.  
  80. End Sub
  81.  
  82.  

Cuando se conectan el sevidor se me queda en offline pero en el list de las Ip conectadas se me agregan ¿¿Que Ago!!??


« Última modificación: 17 Diciembre 2012, 01:50 am por simorg » En línea



Creador de BrainMind
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Permitir múltiples conexiones a un servidor Winsock
« Respuesta #1 en: 17 Diciembre 2012, 08:21 am »

Esta muy feo ese código...
Mientras tanto puedes ver este tema:

http://foro.elhacker.net/programacion_visual_basic/duda_con_winsock-t320011.0.html;msg1582889#msg1582889

Dulces Lunas!¡.


« Última modificación: 18 Diciembre 2012, 16:27 pm por BlackZeroX (Astaroth) » En línea

The Dark Shadow is my passion.
Brian1511

Desconectado Desconectado

Mensajes: 268


¿Quien soy esa es la gran pregunta?


Ver Perfil WWW
Re: Permitir múltiples conexiones a un servidor Winsock
« Respuesta #2 en: 17 Diciembre 2012, 17:48 pm »

Gracias amigo muchas gracias , Eres mi heroe tambien !! :D tu y Dark son lo maximo! :D y si tomate todo tu tiempo! ;D
En línea



Creador de BrainMind
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda cliente-servidor, multiples conexiones, administrador de conexiones
Programación Visual Basic
-Xenon- 8 5,597 Último mensaje 14 Enero 2006, 14:44 pm
por -Xenon-
[Ayuda] Conexiones multiples con winsock
Programación Visual Basic
Red Mx 2 1,620 Último mensaje 2 Agosto 2006, 21:36 pm
por Red Mx
Winsock conexiones multiples ¿como? « 1 2 »
Programación Visual Basic
Shrick 10 5,556 Último mensaje 28 Octubre 2008, 13:53 pm
por Shrick
conexiones multiples con winsock ayuda « 1 2 »
Programación Visual Basic
Fucko 12 9,808 Último mensaje 20 Abril 2010, 00:47 am
por Fucko
[Sockets] Conexiones múltiples de clientes a servidor.
Programación C/C++
Zodiak98 6 5,684 Último mensaje 25 Enero 2016, 00:42 am
por sodark
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines