Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > microsoft.public.scripting.vbscript > #12484

Re: "Reverse Order"

Show all headers | View raw

在 2005年5月27日星期五 UTC+8 01:26:02，<Bob Barrows [MVP]> 写道：
> McKirahan wrote:
> > "Bob Barrows [MVP]" <reb0...@NOyahoo.SPAMcom> wrote in message
> > news:uFxkzWHY...@TK2MSFTNGP10.phx.gbl...
> >> mr_unreliable wrote:
> >>> hi Richard (MVP),
> >>>
> >>> As an MVP, I'm sure that you know
> >>
> >> "MVP" is not equivalent to "expert in all computer-related issues".
> >> An MVP is awarded because of the amount of help a person provides to
> >> the community, as well as the appropriateness of the help provided.
> >>
> >
> > I didn't know that. I thought MVP was the new MCP title.
> http://mvp.support.microsoft.com/
> -- 
> Microsoft MVP -- ASP/ASP.NET
> Please reply to the newsgroup. The email account listed in my From
> header is my spam trap, so I don't check it very often. You will get a
> quicker response by posting to the newsgroup.

If you just right want to fetch data with createObject("Microsoft.XMLHTTP"), the responseBody property returns a byte() and that is what you want.
    Dim h As New MSXML2.XMLHTTP
    h.open "GET", "https://127.0.0.1:81/file.zip", False
    h.send
    Dim a As New ADODB.Stream
    a.Type = adTypeBinary ' Const adTypeBinary = 1
    a.open
    a.Position = 0 ' for if some one want to setHttpHeader range:
    a.Write h.responseBody
    a.saveToFile "D:\file2.zip", adSaveCreateOverWrite ' Const adSaveCreateOverWrite = 2
    a.Close

Back to microsoft.public.scripting.vbscript | Previous | Next | Find similar

Thread

Re: "Reverse Order" Fred Xiong (疯狂小瑞瑞) <a522237296@gmail.com> - 2023-07-24 15:25 -0700

csiph-web