Original message
Code:
#DEFINE page "pers/"
#define Gif1 200
#define Gif2 300
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)
MD(PAGE)
For i=Gif1 to Gif2
m.cFile=Transform(i,"@L 999")+".gif"
hUrl=InternetOpenUrl(hInet,"http://smailiki.h10.ru/"+PAGE+m.cFile,0,0,0,0)
buf=Space(65535)
out=0
hFile=InternetReadFile(hUrl,@buf,65535,@out)
If out > 0
If 'TITLE' $ Left(buf,out) && это скрипт сайта отвечает такими файлами
Else
? m.cFile
StrToFile(Left(buf,out),PAGE+m.cFile)
EndIf
EndIf
InternetCloseHandle(hFile)
InternetCloseHandle(hUrl)
Next
InternetCloseHandle(hInet)