＋设为首页 ＋添加到收藏夹
sURLFileName = SysIp & "/aaaa/bbb.php?user_id=" & strUser & "&user_pwd=" & strPwd
lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)
If lRet <> 0 Then
MsgBox "连接服务器失败，请检查设置或联系管理员！", vbOKOnly, "警告信息"
frmMain.TimerReadFiles.Enabled = False 终止时钟控制
Else
.....
end if
我一句句注释后发现，用了lRet = URLDownloadToFile(0, sURLFileName, sSaveFileName, 0, 0)，会多消耗我2.6M的内存，是否有办法降低消耗的内存？？？？？？？？
估计是完全封装的api,而且该api与ie的版本号有一定关系，建议你直接用http协议进行改进~~
请教一下URLDownloadToFile 怎么用
是ie的一个控件吗？
可以用来保存打开的页面对不对？
能不能说说具体的用法？
To ayun00(阿云):
URL Download
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
DownloadFile "http:*.jsp", "c:\allapi.htm"
End Sub
