[Pytanie] Wykonanie FTP

[CzuCzuS]

Piszę łatwy skrypt i chcę aby pobrało pliki z FTP;)

Jaki napisac do tego kod, kpolecenia:

 

Otworzenie FTP

Pobranie pliku z folderu public_HTML na pulpit

Zakończenie połączenia

 

[kaje11]

http://www.autoitscript.com/autoit3/docs/functions/InetGet.htm

 

przykładowy url: ftp://nazwauzytownika:[email protected]/public_html/plik

[CzuCzuS]

Nic z tego nie rozumiem

Jak uzupełniam to:

InetGet ( "URL" [,"filename" [, options [, background]]] )

to wyskakuje mi błąd

[kaje11]

InetGet( "ftp://nazwauzytownika:[email protected]/public_html/plik", "plik" )

[Wasiij Iwanowic]

nie lepiej zrobić to jako runDOS? będzie prościej i raczej nic nie powinno nawalić niż tak pieprzyć się z tym w au3, po za tym do FTP jest biblioteka o nazwie FTP.au3(wow!)

 

jak ogarniasz batcha...

 

@echo on

echo open serwer >> a.txt

echo login>> a.txt

echo haslo>> a.txt

echo put adres_pliku >> a.txt

echo bye >> a.txt

ftp -s:a.txt

del a.txt

exit

[kaje11]

 

nie lepiej zrobić to jako runDOS? będzie prościej i raczej nic nie powinno nawalić niż tak pieprzyć się z tym w au3, po za tym do FTP jest biblioteka o nazwie FTP.au3(wow!)

 

jak ogarniasz batcha...

 

@echo on

echo open serwer >> a.txt

echo login>> a.txt

echo haslo>> a.txt

echo put adres_pliku >> a.txt

echo bye >> a.txt

ftp -s:a.txt

del a.txt

exit

 

Nie lepiej, z iNetGet możesz wyłapywać info, z batcha nie (może tylko filesize).

[Kamileczek48PL]

na gorze dobrze podali ;D

[NitroShot]

#include <FTPEx.au3>

Func ftp()
Local $pass = 'Haslo' ;tutaj podaj haslo do FTP
	Local  $username = 'login' ;login do FTP
	Local $server = 'IP_SERWERA' ;ip serwera FTP
   $Open = _FTP_Open('Moje FTP') ;tworzymy uchwyt do ftp
        $Conn = _FTP_Connect($Open, $server, $username, $pass) ;laczy sie do ftp loginem i haslem ktore jest podane wyżej
 If  @error  Then ;jezeli jest blad z polaczeniem to 
	 MsgBox(4096,"Błąd","Nie mogę się połączyć") ;komunikat
 Else
;pobranie pliku
EndIf
_FTP_Close($open) ;Zamknięcie połączenia
EndFunc

Nie pamiętam jak pobrać plik :/ Niech ktoś poprawi

Ew. otwórz FTPEx.au3 w folderze include (w folderze gdzie masz zaintalowanego Autoita) i poszukaj tam odpowiedniej funkcji

[kaje11]

@NitroShot:

http://www.autoitscript.com/autoit3/docs/libfunctions/FTPEx%20Management.htm

http://www.autoitscript.com/autoit3/docs/libfunctions/_FTP_FileGet.htm

 

 

 

_FTP_FileGet($l_FTPSession, $s_RemoteFile, $s_LocalFile [, $fFailIfExists = False, [$dwFlagsAndAttributes = 0 [, $l_Flags = 0 [, $l_Context = 0]]]])

 

[NitroShot]

Poprawiony kod z góry. (problem z edycją postu )

 

#include <FTPEx.au3>

Func ftp()
Local $pass = 'Haslo' ;tutaj podaj haslo do FTP
	Local  $username = 'login' ;login do FTP
	Local $server = 'IP_SERWERA' ;ip serwera FTP
   $Open = _FTP_Open('Moje FTP') ;tworzymy uchwyt do ftp
        $Conn = _FTP_Connect($Open, $server, $username, $pass) ;laczy sie do ftp loginem i haslem ktore jest podane wyżej
 If  @error  Then ;jezeli jest blad z polaczeniem to 
	 MsgBox(4096,"Błąd","Nie mogę się połączyć") ;komunikat
 Else
$remote = 'index.txt' ;ścieżka i nazwa pobieranego pliku
$local = 'C:\' ;gdzie ma zostać zapisany plik
$lokalizacja = $local&$remote 
$download = _FTP_FileGet($Conn,$remote,$lokalizacja) ;pobranie pliku
If $download = 0 Then
	MsgBox(0,"Bład","Nie znalazłem pliku.")
Else
	MsgBox(0,"Pobralem",":)")
Endif
EndIf
_FTP_Close($open) ;Zamknięcie połączenia
EndFunc

Mała ciekawostka.
Jeśli $local będzie zawierała ścieżkę i nazwę pliku (np. C:\test.txt) wtedy plik index.txt zostanie przepisany do pliku test.txt.

Kod będzie wyglądał tak:

$remote = 'index.txt' 
$local = 'C:\test.txt' 
$download = _FTP_FileGet($Conn,$remote,$local) ;TRZEBA TU WSTAWIC INNĄ ZMIENNĄ (czyli $local)
If $download = 0 Then
	MsgBox(0,"Bład","Nie znalazłem pliku.")
Else
	MsgBox(0,"Pobralem",":)")
Endif