Mensajes

Gracias por la aportacion hotmail_pop3 

1S4ludo

Hola:

Usa esto a ver si te funciona:

Código [Seleccionar] Expandir

ws.GetData datos
if left(datos, 3)= "log" then
text1.text = mid (datos,4)
end if


Y el server q solo envie "log" & text1.text

Espero q te funcione
1S4ludo

Hola:

El enlace de X-TN esta bien, pero lo q te enseñan es a variar un formulario, mira aki puedes hacerlo usando la api:

http://www.recursosvisualbasic.com.ar/htm/listado-api/api-32.htm

Keda mas profesional, y mas rapido xD

1S4ludo

Hola:

Te faltan las comillas:

Código [Seleccionar] Expandir

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Sub Form_Load()
Dim fallo As Integer
fallo = SystemParametersInfo(20, 0, "C:\WINDOWS\FONDO.BMP", 0)
End Sub


kedaria asi 
1S4ludo

Hola

Para mostrar los formulario pones:

Código [Seleccionar] Expandir

frmNombre.show

Y para descargarlos:

Código [Seleccionar] Expandir

Unload frmNombre

Y cuando kieras cerrar todos, pues los descargas uno a uno xD

1S4ludo 

Ok
Eso es por q la imagen es muy grande se hace asi:

Server:

Código:
Private Sub Form_Load()
ws.Close
ws.Connect "127.0.0.1", 2848
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data

If Left(data, 8) = "SendFile" Then
Open "C:\Prueba.txt" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1

ws.SendData Send
End If

End Sub


Cliente:

Código:
Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
ws.LocalPort = 2848
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data

If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\Prueba2.txt" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If

If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If

e puesto ademas para que salga un ProgressBar1  si no lo quiere simplemente elimina estas lineas:


Código:
ProgressBar1.Max = LenFile
ProgressBar1.Value = 0
ProgressBar1.Value = Len(DataFile)

Me lo paso WarGhost hace ya algun tiempo 

1S4ludo

Hola:

Una cosa q no me keda clara... El servidor es de internet o tb lo as programado tu??
Dimelo y a ver si te puedo hechar una mano 

1S4ludo

Ok

Todo en orden ahora si q funciona 

1S4ludo

Hola:

Me salta error de compilacion aki:

Código [Seleccionar] Expandir

SetCursorPos("x", "y")

La cosa es q no entiendo por q, porque la api parece q esta bien usada...   

1S4ludo

Hola:

Mu weno tio, de verdad 

Solo una cosa tengo una pantalla de 19 pulgadas y la barra de cargar la pagina se me ve por la mitad de la pantalla xD
Seguramente por q lo has echo en una pantalla mas pekeña xD pero vamos q eso tiene facil solucion 

Por lo demas esta todo mu bien, por cierto es open soure??

Mis felicitaciones, mu weno
1S4ludo