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

522235677

With CreateObject("msxml2.xmlhttp")
    .open "get",WScript.Arguments.Item(0),False
    .send
    temp = .responseBody
End With
With CreateObject("adodb.stream")
    .Type = 1:.Mode = 3
    .Open()
    .Write(temp)
    .SaveToFile WScript.Arguments.Item(1),2
    .Close
End With
复制代码

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

CrLf

msxml2.xmlhttp 改成 Msxml2.ServerXMLHTTP

522235677

回复 2# CrLf


    好，非常感谢。

yu2n

Call DownloadFile("http://iframe.ip138.com/ic.asp", "ip.txt")
Function DownloadFile(URL,SavePath)
	On Error Resume Next
	Dim fso, xPost
	Set fso= Wscript.Createobject("Scripting.FileSystemObject")
	Set xPost = createObject("Microsoft.XMLHTTP")  
	xPost.Open "GET",URL,0 ''''下载文件的地址  
	xPost.Send()  
	Set sGet = CreateObject("ADODB.Stream")  
	sGet.Mode = 3  
	sGet.Type = 1  
	sGet.Open()  
	sGet.Write(xPost.responseBody)  
	sGet.SaveToFile SavePath,2 ''''保存文件的路径和文件名 
	if (fso.FileExists(SavePath)) Then                     '检测文件是否存在
		DownloadFile = True
	else
		DownloadFile = False
	end if
	set fso=Nothing
End Function
复制代码

522235677

回复 4# yu2n


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