Abro el Servidor lo pongo online.
Abro el Cliente y automaticamente si el servidor esta onli pues este estara online ahora bien si cierro el servidor se me pone offline el cliente y si pongo el servidor desconectado pues l cliente igual se pone offline..
Pra serles un poco mas claros aqui un par de imagenes:
Aqui automaticamente el servidor inicia el Cliente estara online!
Como pueden ver aqui pues Abro lo que es el cliente y pues me inicia Online:
Pero como pueden ver aqui si cierro la conexión osea el servidor pues los 2 estaran Offline.
Aqui vuelvo y abro la conecciondel servidor.
Aqui preciono en conectar al servidor en el form del Cliente.
Entonces aqui la gran duda mi gran problema y es que cuando voy a iniciar otro cliente pues no me conecta al servidor , ya me han dicho que sera por que el servidor esta mandando datos al cliente 1 y por eso esta ocupado y el cliente 2 no puede estar online tanbien, aqui una imagen :
Y este son los code que utiliso:
Este es para el Cliente :
Código:
Dim numElementos As Integer 'numero de sockets
Dim i As Integer 'contador
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = "1000"
Winsock1.Connect
End If
End Sub
Private Sub Form_Load()
Winsock1.Close
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = "1000"
Winsock1.Connect
End Sub
Private Sub Timer1_Timer()
If Estado.Caption = "Online" Then
Frame1.Visible = True
Timer1.Enabled = False
Timer2.Enabled = True
End If
If Estado.Caption = "Offline" Then
Frame1.Visible = False
End If
End Sub
Private Sub Timer2_Timer()
If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If
End Sub
Private Sub Winsock1_Close()
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
Timer1.Enabled = True
End Sub
Private Sub Winsock1_Connect()
Timer1.Enabled = True
Estado.Caption = "Online"
Estado.ForeColor = &HC000&
Command1.Enabled = False
Dim ac As String
ac = Winsock1.LocalIP
Winsock1.SendData ac
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'cerramos previamente el socket
Winsock1.Close
'aceptamos la conexion
Winsock1.Accept requestID
'desplegamos un mensaje en la ventana
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ac As String
ac = Winsock1.LocalIP
Winsock1.SendData ac
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Timer1.Enabled = True
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
End Sub
Para el Servidor :
Código:
Dim ac As String
Private Sub Command1_Click()
If Label1.Caption = "Online" Then
Me.Command1.Caption = "Abrir Servidor"
Winsock1.Close
Label1.Caption = "Offline"
Label1.ForeColor = &HFF&
state.Caption = "No hay ninguna conexión."
ElseIf Label1.Caption = "Offline" Then
Me.Command1.Caption = "Cerrar Servidor"
Winsock1.Close
Winsock1.LocalPort = "1000"
Winsock1.Listen
Label1.Caption = "Online"
Label1.ForeColor = &HC000&
End If
End Sub
Private Sub Form_Load()
'cerramos cualquier conexion previa
Winsock1.Close
'asignamos el puerto local que abriremos
Winsock1.LocalPort = "1000"
'deja el socket esuchando conexiones
Winsock1.Listen
Label1.Caption = "Online"
Label1.ForeColor = &HC000&
End Sub
Private Sub Winsock1_Connect()
state.Caption = "Obteniendo Datos..."
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'cerramos previamente el socket
Winsock1.Close
'aceptamos la conexion
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData ac, vbString
state.Caption = ac & " Se ha conectado."
End Sub
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
state.Caption = "No hay ninguna conexión."
End Sub
Bueno si pueden ayudarme espero que lo puedan hacer , esto es todo lo que les puedo brindar para que me ayuden este es todo el code de el "Cliente" y el "Servidor".