Últimos Temas de: Brian1511

Mostrar Temas
Páginas: 1 2 3 4 5 6 [7] 8 9 10

Programación / Programación Visual Basic / 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

 
Public NumSockets As Integer '
  Public Variable
 Dim ConnectionCount As Long
Dim ac As String
 
 
 
Private Sub Command1_Click()
 
If Label1.Caption = "Online" Then
 
Me.Command1.Caption = "Abrir Servidor"
 
Winsock1(Index).Close
 
Label1.Caption = "Offline"
 
Label1.ForeColor = &HFF&
 
state.Caption = "No hay ninguna conexión."
 
List1.RemoveItem (Winsock1(Index).RemoteHost)
 
ElseIf Label1.Caption = "Offline" Then
 
Me.Command1.Caption = "Cerrar Servidor"
 
Winsock1(Index).Close
 
Winsock1(0).LocalPort = "1000"
 
Winsock1(0).Listen
 
Label1.Caption = "Online"
 
Label1.ForeColor = &HC000&
 
End If
End Sub
 
Private Sub Form_Load()
 
 
Label1.Caption = "Online"
 
Label1.ForeColor = &HC000&
 
 Winsock1(0).LocalPort = 1000
 
Winsock1(0).Listen
 
End Sub
 
Private Sub Winsock1_ConnectionRequest(Index As Integer, _
ByVal requestID As Long)
 
Dim rm As String
 
rm = Winsock1(Index).RemoteHost
 
   List1.AddItem (rm & " Se ha conectado.")
 
 
Print "Connection Request from : " & _
Winsock1(Index).RemoteHostIP; NumSockets = NumSockets + 1
 
'//Increase Number of Sockets by one. Load Winsock1(NumSockets) '//Load a New Winsock Object Nusockets as Index Value Winsock1(NumSockets).Accept requestID
'//Accept the New Connection
 
 
End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal _
bytesTotal As Long)
 
Winsock1(Index).GetData ac, vbString
 
Print vtData
 
End Sub

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

Programación / Programación Visual Basic / (Ayuda) Winsock - Cliente / Servidor - Peticion de estado >Online \ Offline<

en: 16 Diciembre 2012, 14:57 pm

Hola a todos como estan bueno anteriormente ise un post de como hacer un multipuertos o algo haci que era para un chat que tengo , la cual que agregue un pedidor de estado por ejemplo

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".

63	Programación / Programación Visual Basic / Ayuda !!! Winsock Multi Puertos ¿? URGENTE!	en: 15 Diciembre 2012, 03:56 am
Hola a todos como estan bueno he tenido un tiempito sin venir es que mi pc estaba dañada pero ya la he arreglado, bien mi duda es la siguiente: Tengo un programa que estoy creando (Un chat multi-usuarios) la cual se conectan a un servidor , pero cuando voy a conectar otro cliente al servidor me salta un error es el siguiente: Código: Error : "40020" en tiempo de ejecucion: Operacion no valida en el estado actual. Bueno espero que me puedan ayudar si necesitan mas info o la parte del code en la que conecta y eso pues se los dare enseguida , repito porfavor ayudenme es importante! $:-\$

64	Programación / .NET (C#, VB.NET, ASP) / Pasar Items de un ListBox a otro en un formulario diferente .net	en: 6 Diciembre 2012, 01:46 am
HOLA con el titulo lo dice todo .. Bueno lo que pasa es que estoy haciendo un juego en vb.net y necesito pasa los datosde un ListBox a otro pero que esta en otro Form Ejemplo El list del Form de Inicio_de_Sesion - pide unos datos por FTP a un Servidor alojado en 000.Web-host.com ... entonces este pide los que se agregan en una carpeta y en esa carpeta se crea un txt la cual este se nos descarga y se muestran en el listbox .. Una ves mostrada en el ListBox un proceso de Contains comprueba si el listbox tiene los datos que se ingresaron en los 2 Textbox .... Cuando los comprueba y da Valido pues me da un mensaje de Bienvenida y se me habre un nuevo form este contiene los datos del usuario pues lo que quiero es que los datros del otro listbox del inicio se me pasen a este listbox!! Espero aver explicado bein lo que quiero porfavor ayudenme

65	Programación / .NET (C#, VB.NET, ASP) / ¿Como crear imagenes en tiempo de ejecucion?	en: 5 Diciembre 2012, 04:43 am
Hola a todos como estan bueno como dice el titulo esto es lo que pido lo que tengo en mente es hacer un juego en vb.net como guitar hero y estoy empesañndo por lo que es el movimiento de las imagenes hacia abajo pero primero debo saber como hacer para que las imaganes se me cren solas en el orden que ponga ¿? si alguien podria ayudarme porfa les estare muy agradecido.. PD : No pongo code por que no tengo por eso es que estoy consultando busque y busque pero nada de lo que esperaba! AYUDA!!

66	Programación / Programación Visual Basic / Enviar y Solicitar datos en Base de Datos mediante Winsock?	en: 25 Noviembre 2012, 18:42 pm
Hola a todos estoy creando un proyecta la cual es un inicio de sesion + registro / este al momento del registro envia los datos ingresados a una bd qu he creada y pues al momento de iniciar sesion pide los datos ingresados.. Si tienen una manera mas facil de hacer un inicio + registro como este o como sepan pues me dicen porfavor lo necesito!! Quiero que pueda registrarse e inciar sesion desde diferentes pc!!

67	Programación / Programación Visual Basic / Como enviar Varios Datos con Winsock..	en: 24 Noviembre 2012, 19:36 pm
Hola a todos bueno mi duda es de como enviar varios datos tipos String a un servidor cliente la cual estoy creando Esto es lo que tengo pero solo me envia 1 solo dato no se si es por que el puerto ya esta ocupado mandando 1 y los otros no llegan, pero solo me llega 1 y cuando pongo las variables en 1 solo SENDDATA pues se me envia todo pero solo se ve en 1 texto Este es el Code mas o menos que tengo!: ESTE ES PARA QUE EL CLIENTE RECIBA LOS DATOS: Código: Dim De1, Color1, Msg1, Act1 As String Winsock1.GetData De1 Winsock1.GetData Color1 Winsock1.GetData Msg1 Winsock1.GetData Act1 Colortxt.Text = Color1 Activacion.Caption = Act1 De.Caption = De1 MsgRecibido.Text = Msg1 ESTA ES PARA QUE EL SERVIDOR ENVIE LOS DATOS: Código: Msg1 = Mensaje.Text De1 = De.Text Color1 = EnviarColor.Text Act1 = Para.Text Winsock1.SendData Msg1 Winsock1.SendData De1 Winsock1.SendData Color1 Winsock1.SendData Act1 Bueno si necesitan otras partes del Code o no entendieron bien lo que quiero porfavor Diganme que necesito que me ayuden!

68	Programación / Programación Visual Basic / Ayuda: con winsock , Ejecutar cosas!	en: 24 Noviembre 2012, 01:27 am
Hola a todos Grcias por leer ... Bueno como dice en el tema lo tengo es un chat MultiUsurios y pues el Admin puede enviar un mensaje golaval osea una pequeña anim que ise con un par de Timers , que haces que un Frame se desplace hacia abajo y otro timer la cual muesta el mensaje escrito en un textbox el mensaje tiene una anim de desplasarce hacia la derecha algo como : Código: Esto! Esto! Esto! Esto! y lo que quiero es que mendiante un winsock se active la anm de los timers y se vean las letras que deben aparecer en el Label (El mensaje escrito!). Bueno espero que me allan entendido y gracias por leer Saludos!

69	Programación / Programación Visual Basic / AYUDA - Animacion de Texto Horizantal!	en: 23 Noviembre 2012, 00:40 am
Dim direccion As Integer Private Sub Form_Load() Me.ScaleMode = 3 Timer1.Interval = 50 Timer1.Enabled = True direccion = 10 End Sub Private Sub Timer1_Timer() Label1.left = Label1.left + direccion End Sub Este es el code que tengo funciona a la perfecion pero lo que pasa es que se mueve a la izquierda y no funciona ya intente cambiarle el "LEFT" por Rigth o Por With pero nada espero que me ayuden. la animacion es algo como esto : Bienvinido a Foro-ElHacker La mejor web de ayuda GRACIAS!!!!! Adios!

70	Programación / Programación Visual Basic / ¿Cambiar el Color de un Item al agregarlo?	en: 21 Noviembre 2012, 01:49 am
Hola a todos quisiera sabes como cambiar el color de un item al agregarlo Ejemplo!: -----------------------------------------\| Hola \| Como estas \| Jajaj \| Estilos! \| Brian1511 \| -----------------------------------------\| y haci susecivamente como lo hat¡ria porfavor ayudenme a hacer esto!.

Páginas: 1 2 3 4 5 6 [7] 8 9 10