Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
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