CLIENT

Private Sub Download_Click()   

    WS.SendData "download" & Ruta.Caption

End Sub


SERVER

    If Left(datos, 8) = "download" Then
    datos = Mid(datos, 9)

	    tamaño = FileLen(datos)

	    WS.SendData "dtam" & tamaño

    End If


CLIENT

    If Left(datos, 4) = "dtam" Then
    datos = Mid(datos, 5)

	    PB.Max = datos
	    'MsgBox PB.Max

	   WS.SendData "dok" & Ruta.Caption
 
   End If


SERVER


    If Left(datos, 3) = "dok" Then
    datos = Mid(datos, 4)

 	   'aki debe de estar el fallo
	   Dim filedata As String

 	   Open datos For Binary As #1
 	   filedata = Input(LOF(1), 1)
	   Close #1

 	   WS.SendData "dongo" & filedata

    End If


CLIENT


    If Left(datos, 6) = "downgo" Then
    datos = Mid(datos, 7)

	    Open App.path & "\miArchivo" For Binary As #1
	    Put #1, , datos
	    Close

 	    MsgBox "descarga completada"

    End If

	Public Sub Reconnect()
	On Error GoTo Error
	If Not WS.State = 7 Then
	WS.CloseSck
	WS.Connect Text1.Text, 6239 'en text1 pongo la ip publica del client
	End If
	Error:
	End Sub

	''''''''''''''''''''''''''''''''''
	
	Private Sub connect_Click()
	On Error Resume Next
	WS.Connect Text1.Text, 6239 
	Timer1.Enabled = True
	End Sub

	Private Sub Timer1_Timer()
	On Error GoTo Error
	If Not WS.State = 7 Then
	Call Reconnect
	End If
	If WS.State = 7 Then
	Label3.Caption = "conectado"
	Else
	Label3.Caption = "desconectado"
	End If
	Error:
	End Sub

	Private Sub WS_DataArrival(ByVal bytesTotal As Long)
	On Error GoTo Error
	Dim datos As String
	WS.GetData datos
	If datos = "prueba" Then
	MsgBox "funciona!!"
	End If
	Error:
	MsgBox "error en transmisión de datos"
	End Sub


*CLIENTE:

	Private Sub Escuchar_Click()
	On Error Resume Next
	WS.LocalPort = Text1.Text 'el puerto es 6239 al igual que el server
	WS.CloseSck
	WS.Listen
	If WS.State = 2 Then
	Label1.Caption = "Escuchando..."
	End If
	End Sub

	Private Sub Send_Click()
	WS.SendData Text2.Text 'envio datos
	End Sub

	Private Sub Exit_Click()
	End
	End Sub

	Private Sub Timer1_Timer()'cada 2 seg
	On Error GoTo Error
	If WS.State = 7 Then
	Label1.Caption = "Conectado"
	Else
	Label1.Caption = "Desconectado"
	End If
	If Label1.Caption = "Desconectado" Then
	WS.CloseSck
	WS.Listen
	End If
	Error:
	End Sub

	Private Sub WS_ConnectionRequest(ByVal requestID As Long)
	On Error GoTo Error
	WS.CloseSck
	WS.Accept requestID 'acepto toda conexion entrante
	Label3.Caption = WS.RemoteHostIP 'me indica a que ip estoy conectado
	Timer1.Enabled = True
	Error:
	End Sub