[已解决]vbs怎样正确下载网页文件？

522235677

1. With CreateObject("msxml2.xmlhttp")
   
2.     .open "get",WScript.Arguments.Item(0),False
   
3.     .send
   
4.     temp = .responseBody
   
5. End With
   
6. With CreateObject("adodb.stream")
   
7.     .Type = 1:.Mode = 3
   
8.     .Open()
   
9.     .Write(temp)
   
10.     .SaveToFile WScript.Arguments.Item(1),2
    
11.     .Close
    
12. End With

复制代码

我用这个下载网页的，但是网页变更后再次使用此vbs下载后，下载的还是修改前的网页。必须要清空IE缓存才能正常下载修改后的网页。
能不能修改一下，让这个vbs不从缓存那下载文件。

CrLf

msxml2.xmlhttp 改成 Msxml2.ServerXMLHTTP

522235677

回复 2# CrLf


    好，非常感谢。

yu2n

1. Call DownloadFile("http://iframe.ip138.com/ic.asp", "ip.txt")
   
2. Function DownloadFile(URL,SavePath)
   
3.         On Error Resume Next
   
4.         Dim fso, xPost
   
5.         Set fso= Wscript.Createobject("Scripting.FileSystemObject")
   
6.         Set xPost = createObject("Microsoft.XMLHTTP")  
   
7.         xPost.Open "GET",URL,0 ''''下载文件的地址  
   
8.         xPost.Send()  
   
9.         Set sGet = CreateObject("ADODB.Stream")  
   
10.         sGet.Mode = 3  
    
11.         sGet.Type = 1  
    
12.         sGet.Open()  
    
13.         sGet.Write(xPost.responseBody)  
    
14.         sGet.SaveToFile SavePath,2 ''''保存文件的路径和文件名
    
15.         if (fso.FileExists(SavePath)) Then                     '检测文件是否存在
    
16.                 DownloadFile = True
    
17.         else
    
18.                 DownloadFile = False
    
19.         end if
    
20.         set fso=Nothing
    
21. End Function

复制代码

522235677

回复 4# yu2n


    你这个就比较复杂了，二楼的很简单，添加个server就行了