完美国际FB穿墙飞天外挂的源代码
我的图书馆
完美国际FB穿墙飞天外挂的源代码
完美国际FB穿墙飞天外挂的源代码
{完美已经变味了.从对盗号的姑息,到周年庆的敛财.一个不以用户为根本的东东,是存不长久的.
顺便说一下,完美世界的服务器文件在网络上已经出现.恐怕完美离当年的传奇不远了.
既然这样,我为它的腐朽再加把力吧.
下面披露FB外挂的源代码.Delphi. v7平台调试通过.
基址是68-71的都可以用的一般三周换一次基址.以后基址改了.大家就自己换吧.注意,本程序基址用的二字节的,与平常网上找到的四字节数据有所不同.
顺便提醒一下,下面源码没有做防封处理.一般会在10-30分钟左右被封,想进一步做更好的,就自己学点破解吧.
转载请注明出处,谢谢---------时光牧者}
usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtC
typeTForm1 = class(TForm)&&& CheckBox1: TCheckB&&& CheckBox2: TCheckB&&& CheckBox3: TCheckB&&& CheckBox4: TCheckB&&& CheckBox6: TCheckB&&& procedure FormCreate(Sender: TObject);&&& procedure FormShow(Sender: TObject);&&& procedure CheckBox1MouseUp(Sender: TO Button: TMouseB&&&&& Shift: TShiftS X, Y: Integer);&&& procedure CheckBox2MouseUp(Sender: TO Button: TMouseB&&&&& Shift: TShiftS X, Y: Integer);&&& procedure CheckBox6MouseUp(Sender: TO Button: TMouseB&&&&& Shift: TShiftS X, Y: Integer);&&& procedure CheckBox4MouseUp(Sender: TO Button: TMouseB&&&&& Shift: TShiftS X, Y: Integer);&&& procedure CheckBox3MouseUp(Sender: TO Button: TMouseB&&&&& Shift: TShiftS X, Y: Integer);privatefunction FindproHandle():&&& { Private declarations }public&&& { Public declarations }Wnd:pid:ProHandle:THycadd:ftadd:cqadd:yyadd:fxadd:Num:yc1,yc2,cq1,cq2,ft1,ft2,yy1,yy2,fx1,fx2:
varForm1: TForm1;
implementation{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);begincqadd:=$;&& //穿墙ycadd:=$;&& //隐藏ftadd:=$;&& //无限跳yyadd:=$; //空中漫步,游泳基址没找到;fxadd:=$; //飞行num:=0;cq1:=49881;cq2:=49625;yc1:=49881;yc2:=49369;ft1:=362;ft2:=2666;yy1:=32373;//31349;yy2:=32372;//31348;fx1:=4469;fx2:=4468;
function TForm1.FindproHandle():varflag:beginnum:=0;flag:=Wnd := FindWindow(nil,'Element Client');//查找窗口GetWindowThreadProcessId(Wnd, @PID); //得到pID//以完全访问权限打开进程句柄ProHandle := OpenProcess(PROCESS_ALL_ACCESS, False, PID);if PID=0 then&&& begin&&& showmessage('进程读取失败,可能是游戏没有启动!');&&& flag:=&&&FindproHandle:=
//不在状态栏显示procedure TForm1.FormShow(Sender: TObject);beginShowWindow(Application.Handle, SW_HIDE);
procedure TForm1.CheckBox1MouseUp(Sender: TO Button: TMouseB//穿墙Shift: TShiftS X, Y: Integer);begin&&& if FindproHandle() then&&& begin&&& if Form1.CheckBox1.Checked then&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.cqadd),@Form1.cq1,2,num)&&& else&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.cqadd),@Form1.cq2,2,num);&&& CloseHandle(ProHandle);&&& endelse&&& CheckBox1.Checked:=
procedure TForm1.CheckBox2MouseUp(Sender: TO Button: TMouseB//隐藏建筑Shift: TShiftS X, Y: Integer);beginif FindproHandle() then&&& begin&&& if Form1.CheckBox2.Checked then&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.ycadd),@Form1.yc1,2,num)&&& else&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.ycadd),@Form1.yc2,2,num);&&& CloseHandle(ProHandle);&&& endelse&&& CheckBox2.Checked:=
procedure TForm1.CheckBox6MouseUp(Sender: TO Button: TMouseB//飞行Shift: TShiftS X, Y: Integer);beginif FindproHandle() then&&& begin&&& if Form1.CheckBox6.Checked then&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.fxadd),@Form1.fx1,2,num)&&& else&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.fxadd),@Form1.fx2,2,num);&&& CloseHandle(ProHandle);&&& endelse&&& CheckBox6.Checked:=
procedure TForm1.CheckBox4MouseUp(Sender: TO Button: TMouseB//空中漫步Shift: TShiftS X, Y: Integer);begin&&& if FindproHandle() then&&& begin&& if Form1.CheckBox4.Checked then&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.yyadd),@Form1.yy1,2,num)&& else&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.yyadd),@Form1.yy2,2,num);&&& CloseHandle(ProHandle);&& endelse&&& CheckBox4.Checked:=
procedure TForm1.CheckBox3MouseUp(Sender: TO Button: TMouseB//无限跳Shift: TShiftS X, Y: Integer);begin&&&&& if FindproHandle() then&&& begin&&& if Form1.CheckBox3.Checked then&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.ftadd),@Form1.ft1,2,num)&&& else&&&&& WriteProcessMemory(ProHandle,Pointer(Form1.ftadd),@Form1.ft2,2,num);&&& CloseHandle(ProHandle);&&& endelse&&& CheckBox3.Checked:=
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&
喜欢该文的人也喜欢　　可能好多同学都会了 现在贴出来让不会的同学参考
　　以前我经常撞树的
　　通常用的修改办法是见不到树，但大家回去试试我的这种，树是正常可见的，只有湖底的水草没有了，具体如下：退出游戏，复制“trees.pck”然后删除“grasses.pck”最后将复制的那个文件重命名为“grasses.pck”。重新登录，这样就行了，不影响任何操作。