http://argathron.uw.hu/chuck.zip
szavazoprogi
program chuck;
uses
windows, wininet, urlmon;
procedure letolt;
var
Flags:DWORD;
begin
if InternetGetConnectedState(@Flags, 0) then begin
urlmon.UrlDownloadTofile(nil,'http://www.m0hid.gov.hu/szavaz?sortby=abc&answer=50871&action=VoteActio…);
DeleteFile('haha');
//sleep(100);
end;
end;
begin
while (1=1) do letolt;
end.
nem en irtam :)