[Сеть, интернет] Оптравка на FTP

[Wulk@n]

Версия AutoIt: Version 3.4.1

Описание:
Здравствуйте Пользователи Форума autoit-script.ru
Есть фаил test.exe Корневая папка C:\Windows\System32\test после запуска test.exe в test созоется файл test.txt
Помогите сделать отправку test.txt на FTP сервер в коневую папку /www/sait.ru/logo
Примечания:
Также если у кого то есть скрипт билдера с антологичными функциями буду очень признателен

 

[alex33]

#include <FTPEx.au3>
Local $hOpen, $hConnect, $put, $CClose, $OClose

;RunWait("test.exe")

If FileExists("C:\Windows\System32\test\test.txt") Then
    $hOpen = _FTP_Open('MyFTP Control')
    $hConnect = _FTP_Connect($hOpen, "31.170.165.86", "Логин_для_FTP_сервера", "Пароль_к_серверу")
    _FTP_DirCreate($hConnect, "/www/sait.ru/logo")
    $put = _FTP_FilePut($hConnect, "C:\Windows\System32\test\test.txt", "/www/sait.ru/logo/test.txt")
    $CClose = _FTP_Close($hConnect)
    $OClose = _FTP_Close($hOpen)
EndIf

(не забудьте подставить свой сервер, логин и пароль)...
P.S. У меня работает...

 

[madmasles]

Предупреждение

За нарушение общих правил (пункт В.2):

Старайтесь избегать “Over quoting” (преувеличенное цитирование) - цитируйте только необходимую часть сообщения, которая наилучшим образом подчеркнёт суть цитируемого.

С уважением, ваш Глобальный модератор.

 

[alex33]

Wulk@n, А вы сервер, логин, пароль подставляете правильно?
У меня то ведь работает...


Добавлено:

Сообщение автоматически объединено: 17 Июл 2014

Wulk@n [?]

НЕ работает даный скрипт создает test.txt размер 0 а не отправляет фаил с данными

А можно по подробнее?

 

[Wulk@n]

Решение найдено вот код :

Спойлер

;RunWait("test.exe")
#include <FTPEx.au3>
$currentmaxsize = 1024

While 1
    $file = FileGetSize( "D:\FTP4.txt" )
    If $file > $currentmaxsize Then
        $server = "178.208.00.10" ;ftp host
        $username = "Логин" ;Ftp user
        $pass = "Пароль" ;Ftp password
        $Open = _FTP_Open('MyFTP Control')
        $Conn = _FTP_Connect($Open, $server, $username, $pass, 1)
        $Ftpp = _FTP_FilePut($Conn, "D:\FTP4.txt", "/httpdocs/logo/logo.txt") ;/httpdocs/logo/ Корневая папка FTP имя файла -logo.txt
	    $Ftpc = _FTP_Close($Open)
        $currentmaxsize += 1024
        ConsoleWrite('File Put' & @CRLF)
        ExitLoop
    EndIf
WEnd

Всем Спасибо ! :beer: