Encontre la librería ftp y consigo leer el nombre de tosdos los archivo, lo que no puedo hacer es que se descarguen.
Aqui les dejo mi código ayudenme por favor!!
Código: Seleccionar todo
#Include <File.au3>
#Include <Array.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <FTP.au3>
#Include <FTP.au3>
Global Const $Host = 'ftp.u41.eset.com'
Global Const $Login = 'EAV-23053334'
Global Const $Password = 'vkndbju77m'
Global $hFtp, $hSession, $hFind, $tFind
_FTP_Startup()
$hFtp = _FTP_Open('MyFtp')
$hSession = _FTP_Connect($hFtp, $Host, $Login, $Password)
$tFind = DllStructCreate($tagWIN32_FIND_DATA)
TrayTip("NodGen 2.0" , "Esperando al servidor.."& @CRLF & "" & @CRLF & "Conectando con el servidor.."& @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)
Sleep(2000)
TrayTip("NodGen 2.0" , "Conectado"& @CRLF & "" & @CRLF & "Leyendo archivos..." & @CRLF & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)
Sleep(2000)
$tFind = DllStructCreate($tagWIN32_FIND_DATA)
$hFind = _FTP_FileFindFirst($hSession, '/eset_update/', $tFind)
While Not @error
ConsoleWrite(DllStructGetData($tFind, 'FileName') & @CR)
_FTP_FileFindNext($hFind, $tFind)
WEnd
TrayTip("NodGen 2.0" , "Nombre: " & "" & @lf &"" & @lf & "Descargado: "& @InetGetBytesRead & " de " & "" & "KB" &@lf & "" & @CRLF & "@Gm15 KopyLeft (k)-2009- http://www.arkcrew.com" ,1,1)
sleep(500)
_FTP_FileFindClose($hFind)
_FTP_Disconnect($hSession)
_FTP_Close($hFtp)
_FTP_Shutdown()
exit
Agradecería mucho su ayuda, Un saludo