Что нового

Отображение статуса скачивания файла.

astati

Новичок
Сообщения
145
Репутация
4
Здраствуйте!
Есть код скачивания файла из интернета:
Код:
if $msg=$Button10 Then
        InetGet('http://members.upc.nl/cheatengine/d1/CheatEngine61.exe', 'CheatEngine61.exe')
				
	EndIf

Помогите написать Прогресс бар отображающий состояние скачивания файла.

P.S. можно ли написать Прогресс бар отображающий состояние по количеству байт(если известен размер конечного файла)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
astati,
Код:
#include <WinAPIEx.au3>

ProgressOn('Скачивание файла', 'CheatEngine61.exe', '0 %', 50, 50, 16)
$hDownload = InetGet('http://members.upc.nl/cheatengine/d1/CheatEngine61.exe', @ScriptDir & '\CheatEngine61.exe', 1, 1)
Do
	If InetGetInfo($hDownload, 1) Then
		$iPersent = Round((InetGetInfo($hDownload, 0) / InetGetInfo($hDownload, 1)) * 100)
		ProgressSet($iPersent, $iPersent & ' %, ' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownload, 0)) & _
				' (' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownload, 1)) & ')')
	EndIf
	Sleep(500)
Until InetGetInfo($hDownload, 2)
InetClose($hDownload)
MsgBox(64, 'Info', $iPersent & ' %')
ProgressOff()
 
Верх