该函数是VB的一个用来调用API进行网络下载的函数，过程如下：

前台下载

声明：

Private Declare Function DoFileDownload Lib "shdocvw.dll"(ByVal lpszFile As String) As Long

'//调用

然后在代码里直接调用：

Dim gourl As String

AdUrl = StrConv("网页地址", vbUnicode) ’在使用时会出现对话框询问用户保存路径

Call DoFileDownload(AdUrl)

易语言 调用IE下载

.版本 2

.DLL命令 外部_转换为宽字符, 整数型, "Kernel32.dll", "MultiByteToWideChar", , 将多媒体字符串映像为通配字符串 _取目标编码长度

.参数 代码页, 整数型, , CP_ACP CP_UTF8

.参数 字符类型, 整数型

.参数 文本, 文本型

.参数 文本长度, 整数型

.参数 缓存, 字节型

.参数 缓存大小, 整数型

.DLL命令 下载文件, 整数型, "shdocvw.dll", "DoFileDownload"

.参数 url, 文本型

.版本 2

.子程序 _按钮1_被单击

下载 ()

.子程序 下载

.局部变量 url, 文本型

.局部变量 u, 文本型

url = 编辑框1.内容

u = 取空白文本 (1024)

unicode (1, 2, url, -1, u, 1024)

下载文件 (u)