Anyboday can help VBscript ? - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>DotNet - 窗口里的风景

Anyboday can help VBscript ?

Anyboday can help VBscript ?# DotNet - 窗口里的风景

I*A2009-06-11 07:06

1 楼

I got a piece of Vbscript to download files from Internet. It works fine for
small files but failed for large file( greater than 3M?). I guess the
buffer size is not set large enought. How can I set buffer size in Vbscript?
Thanks a lot.
Here is the section of the code:
dim sWebAddress : sWebAddress = Wscript.Arguments.Item(0)
dim oxMLHTTP: set oxMLHTTP=CreateObject("MSXML2.ServerXMLHTTP")
dim oStream: Set oStream = CreateObject("ADODB.Stream")
With oXMLHTTP
.Open "GET", sWebAddress, true

c*e2009-06-11 07:06

2 楼

http://msdn.microsoft.com/en-us/library/ms760403(VS.85).aspx

for
Vbscript?

【在 I**A 的大作中提到】

: I got a piece of Vbscript to download files from Internet. It works fine for
: small files but failed for large file( greater than 3M?). I guess the
: buffer size is not set large enought. How can I set buffer size in Vbscript?
: Thanks a lot.
: Here is the section of the code:
: dim sWebAddress : sWebAddress = Wscript.Arguments.Item(0)
: dim oxMLHTTP: set oxMLHTTP=CreateObject("MSXML2.ServerXMLHTTP")
: dim oStream: Set oStream = CreateObject("ADODB.Stream")
: With oXMLHTTP
: .Open "GET", sWebAddress, true