Что нового

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

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()
 
Верх