Как правильно скачать файл? - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Хочу скачать файл .exe по такому алгоритму:
Все скачивается но когда делаю запуск вылетает консольное окно с ошибкой 16 bit и кнопка закрыть. В чем проблема?Файл который качает рабочий.Это Hello World на vb.

Решение задачи: «Как правильно скачать файл?»

textual
Листинг программы
Option Compare Database
Option Explicit
 
Public Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal Caller As Long, _
    ByVal URL As String, _
    ByVal FileName As String, _
    ByVal Reserved As Long, _
    ByVal CB As Long) As Long
 
Public Function DownloadFile(FromPathName As String, ToPathName As String) As Boolean
DownloadFile = (URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0)
End Function

Оцени полезность:

7   голосов , оценка 4 из 5