Declare integer InternetOpen in WinInet ;  
      String lpszAgent,;  
      INteger dwAccessType,;  
      String lpszProxyName,;  
      String lpszProxyBypass,;  
      Integer dwFlags  
    
  Declare Integer InternetCloseHandle in WinInet integer   
    
  Declare integer InternetReadFile in WinInet ;  
  	Integer hFile,;  
  	String @ lpBuffer,;  
  	Integer dwNumberOfBytesToRead,;  
  	Integer @ lpdwNumberOfBytesRead  
    
  Declare integer InternetOpenUrl in WinInet ;  
  	integer hInternet,;  
  	string lpszUrl,;  
  	string lpszHeaders,;  
  	integer dwHeadersLength,;  
  	integer dwFlags,;  
      integer dwContext  
    
  hInet=InternetOpen("FoxPro", 0 , 0 , 0 , 0 )  
    
  	hUrl=InternetOpenUrl(hInet,<URL Тута>, 0 , 0 , 0 , 0 )  
  	buf=Space( 65535 )  && Размер буфера под файл
  	out= 0   
  	hFile=InternetReadFile(hUrl,@buf, 65535 ,@out)  
	StrToFile(Left(buf,out),<Тут имя файла>)  
  	InternetCloseHandle(hFile)  
             InternetCloseHandle(hUrl)  
  InternetCloseHandle(hInet)