如何定制ie下载过程

feng8103 2004-08-27 03:12:23
以下为一个ie的下载api函数,但下载一个文件都会提示下载路径,请教有什么方法可以
在代码中直接写好下载路径
Public Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
...全文
80 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
zyl910 2004-08-27
  • 打赏
  • 举报
回复
你还不如直接用Winsock控件,根据HTTP协议写下载程序
bboos 2004-08-27
  • 打赏
  • 举报
回复
Function FileDownLoad(ByVal ObjInet As Control, ByVal strURL As String, ByVal strSaveFile As String) As Boolean
'功能:文件下载函数
'ObjInet:Inet控件
'strURL:Ftp服务器的地址
'strSaveFile:下载文件保存地址
'Designed by Mr.Wangrong
'QQ : 28830832
'DATE: 2004-07-01
On Error GoTo errhandel
Dim b() As Byte
Dim StrShell As String

ObjInet.AccessType = icUseDefault
b() = ObjInet.OpenURL(strURL, icByteArray)

Open strSaveFile For Binary Access _
Write As #1
Put #1, , b()
Close #1

If Dir(strSaveFile) <> "" Then
If MsgBox("Done", vbYesNo, "") = vbYes Then
StrShell = Shell(strSaveFile, 1)
Else
Kill strSaveFile
End If

Else
MsgBox "文件不存在"
End If
Exit Function
errhandel: MsgBox Err.Description
End Function

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧