网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 论文素材 设计下载 最新论文 下载排行 论文上传 在线投稿 联系我们
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > DELPHI > 正文
一份Delphi编写外挂源码示例
来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/12
下载{$ArticleTitle}原创论文样式
orm1.Label11.Font.Color:=clblue;
label9.Caption :=inttostr(doaddtoint(ac+$254));
baoh:=Trunc(doaddtoint(ac+$254) / 4);
edit14.Text :=inttostr(baoh);
baoha:=Trunc(doaddtoint(ac+$254) / 40);
edit11.Text :=inttostr(baoha);

label10.Caption:=inttostr(doaddtoint(ac+$258));
edit2.Text :=inttostr(Trunc(doaddtoint(ac+$258)/4));
label11.Caption:=inttostr(doaddtoint(ac+$254-8));

form1.Ba1.Max:=doaddtoint(ac+$254);
ai_ga:=doaddtoint(ac+$258+4);
ai_gb:=doaddtoint(ac+$258+4);
form1.Ba1.Position:=Trunc(doaddtoint(ac+$254) / 2);
form1.Memo1.Lines.Add(''初始化成功!'');
form1.sb1.Panels[0].Text:=''初始化完成!启动-->开启外挂'';
button2.Enabled :=true;
button4.Enabled :=true;
button5.Enabled :=true;
button6.Enabled :=true;
button1.Enabled :=false;
end else
begin
form1.Memo1.Lines.Add(''初始化失败!'');
form1.Memo1.Lines.Add('''');
end;
end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f2,0);
SendMessage(h_cal,WM_KEYUP,vk_f2,0);
form1.sb1.Panels[0].Text :=''攻击中'';
end;

procedure TForm1.ba1Change(Sender: TObject);
begin
edit1.Text:=inttostr(ba1.Position);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if form1.ba1.Position>doaddtoint(ac+$254) then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f3,0);
SendMessage(h_cal,WM_KEYUP,vk_f3,0);

y_id:=y_id+1;
form1.sb1.Panels.Text :=''已吃红[''+inttostr(y_id)+'']个'';
end;
if strtoint(form1.edit2.Text)>doaddtoint(ac+$258) then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f4,0);
SendMessage(h_cal,WM_KEYUP,vk_f4,0);
form1.sb1.Panels[0].Text :=''吃下蓝药物Oo'';

end;

timer2.Enabled :=false;

end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f6,0);
SendMessage(h_cal,WM_KEYUP,vk_f6,0);
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f7,0);
SendMessage(h_cal,WM_KEYUP,vk_f7,0);
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
SendMessage(h_cal,WM_KEYDOWN,vk_f8,0);
SendMessage(h_cal,WM_KEYUP,vk_f8,0);
end;

procedure TForm1.Timer7Timer(Sender: TObject);

begin
form1.Label9.Caption :=inttostr(doaddtoint(ac+$254));
form1.Label10.Caption :=inttostr(doaddtoint(ac+$258));
// form1.Label10.Caption :=inttostr(doaddtoint(ac+$79b));
//TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),strtoint(edit1.Text )),strtoint(edit1.Text));
if (ck6.Checked=true) then
begin
// if 0<>doaddtoint(ac+$79b) then

if 0=doaddtoint(ac+$79b) then
begin
if ck2.Checked=true then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_tab,0);
SendMessage(h_cal,WM_KEYUP,vk_tab,0);
form1.sb1.Panels[0].Text :=''正在查找怪物Oo。'';
SendMessage(h_cal,WM_KEYDOWN,vk_f5,0);
SendMessage(h_cal,WM_KEYUP,vk_f5,0);
timer_one:=180;
timer6.Enabled :=false;
timer6.Enabled :=true;

end;
end;

end else begin
if ai_ga<>ai_gb then
begin
ai_gb:=ai_ga;
if ck2.Checked=true then
begin
SendMessage(h_cal,WM_KEYDOWN,vk_tab,0);
SendMessage(h_cal,WM_KEYUP,vk_tab,0);
form1.sb1.Panels[0].Text :=''没看见怪物,正在查找怪物Oo。'';
SendMessage(h_cal,WM_KEYDOWN,vk_f5,0);
SendMessage(h_cal,

  • 上一篇资讯: delphi 写外挂的模板
  • 下一篇资讯: delphi获取网页源代码
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号