批处理之家 - Powered by Discuz! Board

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

作者: 522235677 时间: 2013-4-8 21:07 标题: [已解决]vbs怎样正确下载网页文件？

本帖最后由 522235677 于 2013-4-9 09:24 编辑

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 时间: 2013-4-9 04:48

msxml2.xmlhttp 改成 Msxml2.ServerXMLHTTP

作者: 522235677 时间: 2013-4-9 09:23

回复 2# CrLf

好，非常感谢。

作者: yu2n 时间: 2013-4-9 17:04

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 时间: 2013-4-9 19:01

回复 4# yu2n

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

欢迎光临批处理之家 (http://www.bathome.net/)

Powered by Discuz! 7.2