下载服务器上文件方法

qq32881

1. 
   
2. 功能 下载文件(pCaller,szURL,szFileName,dwReserved,lpfnCB)
   
3.     动态库调用("wininet.dll","bool","DeleteUrlCacheEntry","char *",szURL)   //清除缓存
   
4.     变量 返回值=动态库调用("urlmon.dll","int","URLDownloadToFileA","int",pCaller,"char *",szURL&"?rnd="&随机数(1,100000),"char *",szFileName,"int",dwReserved,"int",lpfnCB)  //下载地址加上无用后缀
   
5.     如果(返回值==0)
   
6.         返回 真
   
7.     否则
   
8.         返回 假
   
9.     结束
   
10. 结束
    
11. 功能 打开文件(lpCmdLine,nCmdShow)
    
12.     //Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
    
13.     变量 返回值=动态库调用("kernel32.dll","int","WinExec","char *",lpCmdLine,"int",nCmdShow)
    
14.     如果(返回值>31)
    
15.         返回 真
    
16.     否则
    
17.         返回 假
    
18.     结束
    
19. 结束
    
20. //开始按钮_点击操作
    
21. function start_click()
    
22.     变量 url="[url=http://sdzzp.com/test.exe]http://sdzzp.com/test.exe[/url]"
    
23.     变量 UrlToFlie="test.exe"
    
24.     变量 下载结果=下载文件(0,url,UrlToFlie,0,0)
    
25.     如果(下载结果)
    
26.         消息框("下载成功!!!")
    
27.         变量 打开结果= 打开文件(UrlToFlie,1)
    
28.         如果(打开结果)
    
29.             消息框("打开成功!!!")
    
30.         否则
    
31.             消息框("打开失败!!!")
    
32.         结束
    
33.     否则
    
34.         消息框("下载失败!!!")
    
35.     结束
    
36. end
    
37. //退出按钮_点击操作
    
38. function exit_click()
    
39.    
    
40.     exit()
    
41. end
    

复制代码

qq32881

解决了缓存问题，例如下载同一路径的文件两次，如果服务器上变动了。由于缓存的原因，还是会直接打开已下载的文件。。

解决方法有两种：
1，曲线法：将下载地址后边加上无用的动态参数，确保每次下载地址不同。缓存中自然没有。。
2，清除法：下载前清除缓存，自然缓存中就没有数据了。

为了防止权限等问题清除缓存失败，可以同时使用两种方法，，确保万无一失。。。