- Home
·
- Internet/HTML
·
- Download Binary (graphics/executables) over http without Inet Controls
Download Binary (graphics/executables) over http without Inet Controls
Download Binary (graphics/executables) over http without Inet Controls or Api's. This program uses xmlhttp to grab it and then writes it to a file. This is very helpful for an app that is distibuted on multiple platforms because the inet controls are so buggy when trying to install on user that don't have it.
Inputs
Url
Assumes
The user needs to have XMLDOM on the computer
Returns
Binary
Rate Download Binary (graphics/executables) over http without Inet Controls
(6(6 Vote))
' Code By: Bradley Dick ([email protected])
'
'
'
' Use this code as much as you like it really saved me a lot of headache. All I ask is that you reply and vote. Thanks All this is my first post.......
'
'
' Explantion:
' strUrl is the path to the file you want ie.(http://www.abc.com/logo.gif)
' strFile is the path where you want to save the file and the name. ie.(C:\logo.gif)
'That's it... Just make sure that you include the Microsoft XML 3.0 or if you use a different on then just change the dim and the set statement..
Private Sub GetFile(strURL As String, strFile As String)
Dim xml As MSXML2.XMLHTTP30
Dim X() As Byte
Set xml = New MSXML2.XMLHTTP30
xml.Open "GET", strURL, False
xml.send
X = xml.responseBody
Open strFile For Binary Access Write As #1
Put #1, , X()
Close #1
End sub
Download Binary (graphics/executables) over http without Inet Controls Comments
No comments yet — be the first to post one!
Post a Comment