|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Копирование файлов на файлообменники. |
|
|
[решено] Копирование файлов на файлообменники.
|
Ветеран Сообщения: 753 |
Профиль | Отправить PM | Цитировать Возможно ли с помощью средств AutoIt автоматически в указанное время вылаживать раровский архив на файлообменник (к примеру интересует depositfiles.com) через ftp или другими методами ?
|
|
------- Отправлено: 09:35, 04-11-2010 |
Ветеран Сообщения: 553
|
Профиль | Отправить PM | Цитировать автоматизация IE.
|
Отправлено: 07:38, 05-11-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать FlatX007, спасибо за обширный ответ.
|
------- Отправлено: 09:33, 05-11-2010 | #3 |
Ветеран Сообщения: 20116
|
Профиль | Отправить PM | Цитировать Цитата TERMINAL:
|
|
------- Отправлено: 10:13, 05-11-2010 | #4 |
Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать yurfed, ?
|
|
------- Отправлено: 10:29, 05-11-2010 | #5 |
Ветеран Сообщения: 20116
|
Профиль | Отправить PM | Цитировать |
------- Последний раз редактировалось yurfed, 05-11-2010 в 10:55. Отправлено: 10:40, 05-11-2010 | #6 |
Ветеран Сообщения: 812
|
Профиль | Отправить PM | Цитировать 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 |
Последний раз редактировалось madmasles, 07-11-2010 в 17:46. Причина: изменил код Отправлено: 01:01, 06-11-2010 | #7 |
Ветеран Сообщения: 753
|
Профиль | Отправить PM | Цитировать madmasles, а нельзя ли хоть как то ещё увидеть загрузку файла?
|
------- Отправлено: 18:44, 06-11-2010 | #8 |
Ветеран Сообщения: 553
|
Профиль | Отправить PM | Цитировать Цитата TERMINAL:
|
|
Отправлено: 22:14, 06-11-2010 | #9 |
Ветеран Сообщения: 812
|
Профиль | Отправить PM | Цитировать TERMINAL,
Я поменял в своем скрипте код (в нем еще ошибка была). |
Отправлено: 17:39, 07-11-2010 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
копирование файлов с удаленых ip | Moksar | AutoIt | 3 | 27-02-2011 09:41 | |
CMD/BAT - Копирование файлов | LightZone | Скриптовые языки администрирования Windows | 4 | 13-10-2010 13:33 | |
копирование файлов более 50 гб. | Дима К. | Microsoft Windows NT/2000/2003 | 30 | 05-11-2007 09:43 | |
Не работает копирование файлов | DSS | Microsoft Windows NT/2000/2003 | 2 | 07-09-2007 09:55 | |
Копирование файлов с CD | ProkVS | Автоматическая установка Windows 2000/XP/2003 | 18 | 31-03-2007 06:42 |
|