Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   [решено] Копирование файлов на файлообменники. (http://forum.oszone.net/showthread.php?t=190222)

TERMINAL 04-11-2010 09:35 1534424

Копирование файлов на файлообменники.
 
Возможно ли с помощью средств AutoIt автоматически в указанное время вылаживать раровский архив на файлообменник (к примеру интересует depositfiles.com) через ftp или другими методами ?

FlatX007 05-11-2010 07:38 1535114

автоматизация IE.

TERMINAL 05-11-2010 09:33 1535147

FlatX007, спасибо за обширный ответ.

yurfed 05-11-2010 10:13 1535162

Цитата:

Цитата TERMINAL
вылаживать »

Выкладывать, вылизывать может и получится.

TERMINAL 05-11-2010 10:29 1535173

yurfed, ?

yurfed 05-11-2010 10:40 1535180

Цитата:

Цитата TERMINAL
в указанное время вылаживать »

Пишите на русском языке. Это русскоязычный сайт. Будьте любезны.

делал, переустанавливал, ставил разные версии,Попробуйте OperaAC. Будут ли изменения.

madmasles 06-11-2010 01:01 1535888

TERMINAL,
Через FTP примерно так можно попробовать:
Код:

#include <FTPEx.au3>

Global $iTimer, $iPause = 2 ;(часа) пауза между проверками
Global $sFile = 'Полный путь к загружаемому файлу'
Global $iHour = 15 ;время, когда будем загружать
Global $iCheck

$iTimer = TimerInit()
While 1
    If TimerDiff($iTimer) >= (1000 * 60 * 60 * $iPause) Then
        If @HOUR >= $iHour Then
            For $i = 1 To 5
                $iCheck = _My_FTP($sFile)
                If $iCheck Then ExitLoop
            Next
            If $iCheck Then Exit
        EndIf
        $iTimer = TimerInit()
    EndIf
    Sleep(500)
WEnd


Func _My_FTP($sPathFile)
    Local $sServer = 'ftp-сервер'
    Local $sUsername = 'Логин'
    Local $sPass = 'пароль'
    Local $sRemote = '/Папка в которую загружаем/'
    Local $hOpen, $hConn, $iPut, $aFile, $sFile
    If Not Ping($sServer) Then Return 0
    $aFile = StringSplit($sPathFile, '\')
    If Not IsArray($aFile) Then Return 0
    $sFile = $aFile[$aFile[0]]
    If Not $sFile Then Return 0
    $hOpen = _FTP_Open('MyFTP')
    If $hOpen = 0 Then Return 0
    $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 1)
    If $hConn = 0 Then
        _FTP_Close($hOpen)
        Return 0
    EndIf
    For $i = 1 To 3
        $iPut = _FTP_ProgressUpload($hConn, $sPathFile, $sRemote & $sFile); с прогрессбаром
        ;$iPut = _FTP_FilePut($hConn, $sPathFile, $sRemote & $sFile); без прогрессбара
        If $iPut <> 0 Then ExitLoop
    Next
    If $iPut = 0 Then
        _FTP_Close($hOpen)
        Return 0
    EndIf
    _FTP_Close($hOpen)
    Return 1
EndFunc  ;==>_My_FTP


TERMINAL 06-11-2010 18:44 1536301

madmasles, а нельзя ли хоть как то ещё увидеть загрузку файла?

FlatX007 06-11-2010 22:14 1536458

Цитата:

Цитата TERMINAL
TERMINAL »

InetGetSize - ?

madmasles 07-11-2010 17:39 1536996

TERMINAL,
Замените в моем скрипте _FTP_FilePut на _FTP_ProgressUpload.
Я поменял в своем скрипте код (в нем еще ошибка была).

TERMINAL 08-11-2010 09:36 1537410

FlatX007, русскую справку где можно скачать на AutoIt 3.3.6.1 ?

TERMINAL 08-11-2010 17:16 1537782

madmasles, возможно ли сделать в прогрессбаре процент выполнения и размер уже загруженного файла из общего размера ?
Возможно ли растянуть прогрессбар до нужных размеров ?
Присутствует ли в твоём скрипте сверка размера текущего файла с закаченным на FTP сервер ?

madmasles 08-11-2010 17:49 1537807

TERMINAL,
Посмотрите здесь: Английская справка >> User Defined Function Reference >> FTPEx Management.


Время: 17:17.

Время: 17:17.
© OSzone.net 2001-