WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

How To
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Various Ways to Download a File


IntControl(1003,0,0,0,0) ; No WinBatch Processing Window
IntControl(12,5,0,0,0) ; Terminate silently

AddExtender("wwwsk44i.dll")
AddExtender("wwint44i.dll")

ProxyServer = "myproxy.somewhere.net"
ProxyPort = "80"
ProxyBypass = ""
Proxy = ""
If ProxyServer<>"" && ProxyPort<>"" Then Proxy = StrCat(ProxyServer,":",ProxyPort)

URL="http://www.google.com/intl/en/images/logo.gif"
Temp = Environment("Temp")
File = StrCat(Temp,"\",FileBaseName(URL))

;WinSock Method
#DefineFunction Method_A(URL,File,ProxyServer,ProxyPort)
   FileDelete(File)
   If ProxyServer<>"" Then httpFirewall(1,ProxyServer,ProxyPort,"","")
   Serv = httpGetServer(URL,"")
   Path = httpGetPath(URL,"")
   httpRecvFile(Serv,Path,File,0)
#EndFunction

;WinHTTP Method
#DefineFunction Method_B(URL,File,Proxy,ProxyBypass)
   FileDelete(File)
   WinHTTP = ObjectCreate("WinHttp.WinHttpRequest.5.1")
   If Proxy<>"" Then WinHTTP.SetProxy(2,Proxy,ProxyBypass)
   WinHTTP.Open("GET",URL,@FALSE)
   WinHTTP.Send()
   ADOStream = CreateObject("ADODB.Stream")
   ADOStream.Type = 1
   ADOStream.Open()
   ADOStream.Write(WinHTTP.responseBody)
   ADOStream.SaveToFile(File,2)
   ADOStream.close()
   ADOStream=0
   WinHTTP = 0
#EndFunction

;WinInet Method
#DefineFunction Method_C(URL,File,Proxy,ProxyBypass)
   FileDelete(File)
   ProxyEnable = 0
   If Proxy<>"" Then ProxyEnable = 1
   tophandle = iBegin(ProxyEnable,Proxy,ProxyBypass)
   datahandle = IUrlOpen(tophandle,URL)
   iReadData(datahandle,File)
   iClose(datahandle)
   iClose(tophandle)
#EndFunction

;Method_A(URL,File,ProxyServer,ProxyPort)
;Method_B(URL,File,Proxy,ProxyBypass)
Method_C(URL,File,Proxy,ProxyBypass)

Article ID:   W17025
File Created: 2007:07:03:14:27:40
Last Updated: 2007:07:03:14:27:40