ZCrackLoader Version 0.1 By zzage 【内存补丁】

zzage 发表于 2008-11-19 22:38

编译需要装BusinessSkin控件。当然，自己看代码自己修改个~~反正以前胡乱写的...代码烂得一塌糊涂~
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, bsSkinData, BusinessSkinForm, Mask,
bsSkinBoxCtrls, bsSkinCtrls, bsMessages, ComCtrls, bsSkinTabs,
bsSkinShellCtrls,ShellAPI;

type
TForm1 = class(TForm)
Timer1: TTimer;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinPanel1: TbsSkinPanel;
bsSkinStdLabel3: TbsSkinStdLabel;
bsSkinStdLabel4: TbsSkinStdLabel;
bsSkinPanel2: TbsSkinPanel;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinPanel3: TbsSkinPanel;
bsSkinStdLabel2: TbsSkinStdLabel;
bsSkinStdLabel5: TbsSkinStdLabel;
bsSkinStdLabel6: TbsSkinStdLabel;
procedure Timer1Timer(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
NewData : array of byte = ($00,$00);
Bytesread : DWORD;

procedure TForm1.Timer1Timer(Sender: TObject);
var
hwin, pid: DWORD;
hprocess: DWORD;
begin
hwin := FindWindow(nil,'Boss Player 秒杀版X');
if hwin = 0 then
Form1.bsSkinStdLabel1.Caption:='目标程序未运行'
else
Form1.bsSkinStdLabel1.Caption:='目标程序已运行';
GetWindowThreadProcessId(hwin, pid);
hprocess := OpenProcess(PROCESS_ALL_ACCESS, False, pid);
if WriteProcessMemory(hProcess ,Pointer($0041C633),@newdata,1 ,BytesRead ) then
begin
CloseHandle(hProcess);
Form1.bsSkinStdLabel2.Caption:='目标程序解密成功　';
end
else
begin
CloseHandle(hProcess);
Form1.bsSkinStdLabel2.Caption:='目标程序解密失败　';
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShellExecute(Handle,'open','http://www.52pojie.cn/?u=3',nil,nil,SW_SHOWNORMAL);
end;

end.

ximo 发表于 2008-11-19 22:58

ShellExecute(Handle,'open','http://www.52pojie.cn/?u=3',nil,nil,SW_SHOWNORMAL);
BS刷贡献的

zzage 发表于 2008-11-19 23:51

原帖由 ximo 于 2008-11-19 22:58 发表 http://www.52pojie.cn/images/common/back.gif
ShellExecute(Handle,'open','http://www.52pojie.cn/?u=3',nil,nil,SW_SHOWNORMAL);
BS刷贡献的
让BS来得跟猛烈些.....

lovehuagui 发表于 2008-11-20 03:42

...不管怎么样。。都给顶下

我本善良 发表于 2009-10-19 09:45

让BS来得跟猛烈些.....
呵呵.....

aloneforu 发表于 2009-10-22 17:17

不错，支持一下。

heiye88 发表于 2009-10-23 22:37

呵呵。没提权。有些地方不一定让写。。。

baby520 发表于 2010-2-7 20:34

下载测试测试

sohh888 发表于 2010-7-30 16:39

不错，终于让我找到了，哈哈

页: [1]

吾爱破解 - 52pojie.cn's Archiver

ZCrackLoader Version 0.1 By zzage 【内存补丁】