От делать нефиг написал маленький загрузчик файлов.
Пишим урл и он определяет имя, расширение и предлагает вам сохранить в папку.
Открыть спойлер
Закрыть спойлер
InitNetwork()
URL$ = InputRequester("Введите", "URL нужного вам файла:", "")
NAME$=ReverseString(URL$)
A$ = StringField(NAME$, 1, "/")
A$=ReverseString(A$)
NAME$ = StringField(A$, 2, ".")
Filename$ = SaveFileRequester("Выберите папку, в которую сохраним файл", A$, "."+NAME$, 0)
If ReceiveHTTPFile(URL$, Filename$)
MessageRequester("", "Загрузка файла "+A$+" успешно завершена", #PB_MessageRequester_Ok)
Else
MessageRequester("", "Ошибка. Неудалось скачать файл "+A$, #PB_MessageRequester_Ok)
EndIf