Код:
Func GetSourceOrFile($URL, $SourceOrFile = "Source", $PathToDownLoad = "")
#cs ----------------------------------------------------------------------------
Внешние связи: #include <File.au3>, переменная $AllowDownLoad для немедленного завершения и цикл обработки GUI {GUIProcess()}
Получает файл или исходный текст файла в интернете. При этом обрабатывает GUI
Возвращаемое значение: Исходный текст файла или пустая строка
#ce ----------------------------------------------------------------------------
Local $Handle
Local $Return = ""
If $PathToDownLoad = "" Then $PathToDownLoad = _TempFile()
$Handle = InetGet($URL, $PathToDownLoad, 0, 1)
While (NOT(InetGetInfo($Handle, 2))) And $AllowDownLoad
; Вот здесь можно вставить функцию обновления прогресса.
GUIProcess()
WEnd
InetClose($Handle)
If $SourceOrFile = "Source" Then
$Return = FileRead($PathToDownLoad)
FileDelete($PathToDownLoad)
EndIf
Return $Return
EndFunc
