Войти

Показать полную графическую версию : [решено] Копирование файлов на файлообменники.


TERMINAL
04-11-2010, 09:35
Возможно ли с помощью средств AutoIt автоматически в указанное время вылаживать раровский архив на файлообменник (к примеру интересует depositfiles.com) через ftp или другими методами ?

FlatX007
05-11-2010, 07:38
автоматизация IE.

TERMINAL
05-11-2010, 09:33
FlatX007, спасибо за обширный ответ.

yurfed
05-11-2010, 10:13
вылаживать »Выкладывать, вылизывать может и получится.

TERMINAL
05-11-2010, 10:29
yurfed, ?

yurfed
05-11-2010, 10:40
в указанное время вылаживать » Пишите на русском языке. Это русскоязычный сайт. Будьте любезны.
делал, переустанавливал, ставил разные версии,Попробуйте OperaAC (http://soft.oszone.net/program/5627/Opera_AC/). Будут ли изменения.

madmasles
06-11-2010, 01:01
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
madmasles, а нельзя ли хоть как то ещё увидеть загрузку файла?

FlatX007
06-11-2010, 22:14
TERMINAL »

InetGetSize - ?

madmasles
07-11-2010, 17:39
TERMINAL,
Замените в моем скрипте _FTP_FilePut на _FTP_ProgressUpload.
Я поменял в своем скрипте код (в нем еще ошибка была).

TERMINAL
08-11-2010, 09:36
FlatX007, русскую справку где можно скачать на AutoIt 3.3.6.1 ?

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

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




© OSzone.net 2001-2012