Что нового

[Элементы GUI] Прогрессбар как сделать правильно?

ArgoNaft

Новичок
Сообщения
129
Репутация
0
http://autoit-script.ru/autoit3_docs/functions/GUICtrlCreateProgress.htm
Есть да я знаю, но вот есть скажем у меня код
Код:
If InetGet('http://site.com/dw/?' & @ScriptName, @ScriptDir & @ScriptName, 1) Then
   MsgBox(0, '', 'Successful')
EndIf

как мне туда вставить прогресс бар, чтоб вот качается файлик и статус бра красиво отображает процесс.
 

ivsatel

Продвинутый
Сообщения
319
Репутация
84
ArgoNaft

Код:
#include <WinAPIEx.au3>

#AutoIt3Wrapper_Run_Tidy=y

ProgressOn('Скачивание файла', 'Dr.WEB-CureIt', '0 %', -1, -1, 18)
Local $hDownloadDr = InetGet('http://download.geo.drweb.com/pub/drweb/cureit/drweb-cureit.exe', @ScriptDir & '\drweb-cureit.exe', 1, 1)
Do
	If InetGetInfo($hDownloadDr, 1) Then
		Local $iPersent = Round((InetGetInfo($hDownloadDr, 0) / InetGetInfo($hDownloadDr, 1)) * 100)
		ProgressSet($iPersent, $iPersent & ' %, ' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownloadDr, 0)) _
				 & ' (' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownloadDr, 1)) & ')')
		TraySetState(1)
		TraySetToolTip('Dr.Web CureIt! загружен на ' & $iPersent & ' %')
	EndIf
Until InetGetInfo($hDownloadDr, 2)
InetClose($hDownloadDr)
ProgressOff()
 
Верх