Título: problema con servidor en vb6 Publicado por: elguast en 1 Noviembre 2008, 17:05 pm hola buenas tardes a todo el foro tengo un problema :-\ estoy haciendo un cliente servidor en visual basic 6.0,tengo hecha la parte cliente pero al hacer el servidor no hay manera de que se conecten alguien me ayuda..cuando funcione lo posteare todo para que lo prueben y por supuesto con su codigo ;D
Private Sub Command1_Click() On Error Resume Next ws.LocalPort = Text2.Text ws.Close ws.Listen If ws.State = 2 Then lab.Caption = "conectado al puerto..." End Sub Private Sub Command2_Click() ws.Close lab3.Caption = "desinfectado" End Sub Private Sub Timer1_Timer() On Error GoTo error If Not ws.State = 7 Then lab3.Caption = "desconectado" Else End If If ws.State = 7 Then lab3.Caption = "conectado" Else End If If lab3.Caption = "desconectado" Then lab3.Caption = "desconectado" GoTo puente Else End If GoTo error puente: ws.Close ws.Listen error: End Sub Private Sub ws_ConnectionRequest(ByVal requestID As Long) On Error GoTo error ws.Close ws.Accept requestID lab2.Caption = ws.RemoteHostIP Timer1.Interval = 3000 error: End Sub como haria lo basico del servidor para que me conectara a este cliente saludos. Título: Re: problema con servidor en vb6 Publicado por: vivachapas en 1 Noviembre 2008, 18:22 pm mmm hay partes del codigo q no se q baten xD como esta
Código
encima puente no esta en ningun lado xD en fin para conectarte a ese servidor el cliente deberia tener dim ip as string dim puerto as long ip = "127.0.0.1" puerto = 'aca pones el q pongas en el text1.text del servidor ws.connect ip, puerto y listo.. ahi ya lo conectaste :P SALUDOS |