Ajuda

['Aym 8]

bom to fazendo um inejtor e queria saber como fasso pra quando abrir redirecionar para a web cheats!

[DragonBoss 9]

Adicione ShellAPI nas uses... e no OnCreate do form, coloque o seguinte código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Flw, abraços.

['Aym 8]

eu não entendo muito diisso eu coloco tudo em uses?

[DragonBoss 9]

nas uses, você coloca somente ShellAPI

 

ae vc da dois cliques no form, e vc vai ir até o evento OnCreate dele... ae vc coloka esse code que passei:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

vai ficar algo assim:

 

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, shellapi, StdCtrls;

 

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);begin

ShellExecute(Handle, 'open', 'www.webcheats.com.br',nil,nil, SW_SHOWNORMAL);

end;

 

end.

 

['Aym 8]

quando eu coloco esse codigo em onCreate da um erro!

[DragonBoss 9]

.. qual erro ?

 

se vc adicionar ShellAPI nas uses, e por o code no oncreate... não há porque dar erro o.0'

 

ve ae.... se possivel, manda ss do erro ...

 

obs: eu coloquei ae entre spoiler (o botao de "mostrar") como fikaria o codigo da unit =P

ve ae e compara com o seu =X

 

flw

['Aym 8]

olha aki a print do erro:

[DragonBoss 9]

...é, a imagem não ajudou muito nesse caso ;P

 

passa o pedaço da source aonde o shellexecute está.. ( um bom pedaço que de pra eu antender o erro).

 

tenta usar o code da forma que fiz, em um projeto novo, colocando shellapi nas uses, e dando dois clikes no form ae vc coloka o code do shellexecute... e testa pra ver se ao menos isso funciona normal =P...

[Owner 8]

É que você colocou dois end.

Retire um ai vai dar certo (:

Abrasz :amor:

['Aym 8]

Acho que o erro deve ser esse:

ShellAPI

aonde devo colocar ele?

e aki!

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Owner 8]

Está certo !

Normalzinho a uses.

Posta o código aqui ( source ) para ficar melhor na ajuda (:

['Aym 8]

olha aki a source:

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ShellAPI , ExtCtrls, StdCtrls, TlHelp32, jpeg;

 

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

OpenDialog1: TOpenDialog;

Timer1: TTimer;

Button2: TButton;

Label3: TLabel;

Label4: TLabel;

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

function GetPID(ProcessName: string): DWORD;

var MyHandle: THandle;

Struct: TProcessEntry32;

begin

Result:=0;

try

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);

Struct.dwSize:=Sizeof(TProcessEntry32);

if Process32First(MyHandle, Struct) then

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

while Process32Next(MyHandle, Struct) do

if Struct.szExeFile=ProcessName then

begin

Result:=Struct.th32ProcessID;

Exit;

end;

except on exception do

Exit;

end;

end;

 

function InjectDll(PID:DWORD; sDll:string):Boolean;

var

hLib: Pointer;

hThread: THandle;

pMod: Pointer;

hOpen: THandle;

dWritten: Cardinal;

ThreadID: Cardinal;

begin

Result := FALSE;

hOpen := OpenProcess(PROCESS_ALL_ACCESS, FALSE, PID);

if hOpen <> INVALID_HANDLE_VALUE then

begin

hLib := GetProcAddress(GetModuleHandle(PChar('kernel32.dll')), PChar('LoadLibraryA'));

pMod := VirtualAllocEx(hOpen, nil, Length(sDll) + 1, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);

if WriteProcessMemory(hOpen, pMod, @sDll[1], Length(sDll), dWritten) then

Result := TRUE;

hThread := CreateRemoteThread(hOpen, nil, 0, hLib, pMod, 0, ThreadID);

WaitForSingleObject(hThread, INFINITE);

CloseHandle(hOpen);

CloseHandle(hThread);

end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if not OpenDialog1.Execute then Exit;

Edit2.Text:=OpenDialog1.FileName;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

Timer1.Enabled:=True;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

var PID: DWORD;

begin

Timer1.Enabled:=False;

PID:=GetPID(Edit1.Text);

if PID=0 then

begin

Timer1.Enabled:=True;

Exit;

end;

Timer1.Enabled:=False;

if InjectDll(PID, Edit2.Text) then

MessageBoxA(Handle, 'DLL injetada com sucesso!', 'Grand Chase Injetor', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

else

MessageBoxA(Handle, 'Erro ao injetar DLL.', 'Grand Chase Injector', MB_ICONERROR+MB_SYSTEMMODAL);

end;

 

end.

[Owner 8]

O oncreate não esta declarado !

Aperta duas vezes no form e adicione o código.

[~OwneR~ 8]

O código que você passou não tem nenhum erro manin...

Agora só falta você colocar o código no onCreate...

['Aym 8]

~onwer~

toda veiz que coloco da aquele erro da print da pagina anterior!

[Owner 8]

Que erro louco, poste a source completa aqui com o código ( ShellExecute ) para vermos !

['Aym 8]

acho que não vou mais querer fazer isso e muito compricado o brigado pela ajuda onwer!

[Galinho13 0]

Dúvida respondida,

 

Fechado.