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.
mmm hay partes del codigo q no se q baten xD como esta
If lab3.Caption = "desconectado" Then
lab3.Caption = "desconectado"
GoTo puente
Else
End If
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