|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » InetGet и ProgressOn |
|
InetGet и ProgressOn
|
Новый участник Сообщения: 29 |
В справке к AutoIt есть пример для скачивания файла из интернета
Подскажите пожалуйста, как сделать так, чтобы во время скачивания файла появлялся "ProgressOn" от 0% до 100% или размер файла в цифрах по мере его скачивания Как бы это скомбинировать ? |
|
Отправлено: 14:26, 03-06-2016 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Ну, например:
Скрытый текст
#include <InetConstants.au3> Example() Func Example() Local $sUrl = "https://download.sysinternals.com/files/ProcessExplorer.zip" Local $sFilePath = @ScriptDir & "\ProcessExplorer.zip" Local $lTotalSize = InetGetSize($sUrl, $INET_FORCERELOAD) Local $dCurrentPercent Local $hDownload = InetGet($sUrl, $sFilePath, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND) ProgressOn($sUrl, "Download progress", "0%") Do Sleep(250) $dCurrentPercent = InetGetInfo($hDownload, $INET_DOWNLOADREAD) / $lTotalSize * 100 ProgressSet($dCurrentPercent, StringFormat("%.2f", $dCurrentPercent) & "%") Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE) Local $iBytesSize = InetGetInfo($hDownload, $INET_DOWNLOADREAD) Local $iFileSize = FileGetSize($sFilePath) InetClose($hDownload) ProgressSet(100, "The total download size: " & $iBytesSize & @CRLF & "The total filesize: " & $iFileSize, "Complete") Sleep(3000) ProgressOff() EndFunc В реальности пользоваться приведёнными Вами примерами нельзя — надо ещё проверять возможные ошибки. |
Отправлено: 21:36, 03-06-2016 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 29
|
Профиль | Отправить PM | Цитировать Скачал файл намного большего размера и ошибок не наблюдал.
Спасибо за помощь. |
Отправлено: 11:02, 04-06-2016 | #3 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата sincolinum:
|
|
Отправлено: 00:46, 05-06-2016 | #4 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
[решено] InetRead, InetGet - движек IE? | AlexM | AutoIt | 5 | 17-04-2011 21:37 | |
[решено] Ошибка 13 InetGet | AlexM | AutoIt | 9 | 15-04-2011 23:17 | |
[решено] inetget не скачивает | AlterEgoFS | AutoIt | 8 | 24-03-2010 13:45 | |
[решено] Закачка куска файла через InetGet | FlatX007 | AutoIt | 18 | 07-07-2009 00:06 | |
Отображение прогресса закачки файла через InetGet | Creat0R | AutoIt | 0 | 18-06-2009 18:24 |
|