[Dúvida/Delphi]Readprocessmemory

[shutdowns 0]

Olá,

Bom pessoal, tenho muito dificuldade em aprender delphi, ainda mais quando se fala em "Readprocessmemory" piora tudo. Minha dúvida é como fazer oque está sendo escrito numa address, aparecer no edit. Vamos supor que eu tenha essa address "01009C1F". Vamos supor que nela eu escreva "webcheats" e eu quero que no edit apareça "webcheats" !!! Espero que todos possam compreender.

Até mais. :)

[DogDanger.exe 0]

var

wHandle: hwnd;

hProcess: integer;

pId: integer;

Value, Read: Cardinal;

begin

wHandle := FindWindow('Softnyx',nil);

GetWindowThreadProcessId(wHandle,@pId);

if wHandle <> 0 then begin;

hProcess := OpenProcess(PROCESS_ALL_ACCESS,False,pId);

ReadProcessMemory(hProcess, Ptr($ADDRESS), Addr(Value), 4, Read);

label1.caption:=inttostr(value);

 

Créditos :

Sr.Master

[Lukasmart7 1]

Não Esqueça de Declarar "TLHelp32" Nas User!

[DragonBoss 9]

@[E]DogDanger.exe

 

é, esse code é um exemplo de readprocessmemory, porém, é util por exemplo pra ler integer... no que ele explicou, ele quer ler uma string ( a palavra WebCheats), então, no caso, poderemos fazer com um array of char =] (explicarei adiante...).

 

@Lukasmart7 Pra usar as funções citadas não é necessário adicionar TLHelp32 nas useS.

 

@shutdowns

Então, vamos lá... a ideia é a mesma : "ler memoria" porém, aqui vamos jogar pra um array e transformá-lo em string.

Segue o code e explicações:

 

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

• Entre
• ou
• Cadastre-se

 

obs: usei um array de 100 chars '-', pode dexar assim mesmo se kiser..

obs³: o que tiver entre {* *} é explicação, pode remover se quiser '-'

obs²: no findwindow, se nao for usar um parametro, dexa nil... assim:

 

H := FindWindow(nil, 'tibia'); //nome da janela ou...

H := FindWindow('tibiaclient', nil); //classe da janela

 

flw, abraçs

 

créditos: DragonBoss ;P

[Lukasmart7 1]

@[E]DogDanger.exe

 

é, esse code é um exemplo de readprocessmemory, porém, é util por exemplo pra ler integer... no que ele explicou, ele quer ler uma string ( a palavra WebCheats), então, no caso, poderemos fazer com um array of char =] (explicarei adiante...).

 

@Lukasmart7 Pra usar as funções citadas não é necessário adicionar TLHelp32 nas useS.

 

@shutdowns

Então, vamos lá... a ideia é a mesma : "ler memoria" porém, aqui vamos jogar pra um array e transformá-lo em string.

Segue o code e explicações:

 

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

• Entre
• ou
• Cadastre-se

 

obs: usei um array de 100 chars '-', pode dexar assim mesmo se kiser..

obs³: o que tiver entre {* *} é explicação, pode remover se quiser '-'

obs²: no findwindow, se nao for usar um parametro, dexa nil... assim:

 

 

 

flw, abraçs

 

créditos: DragonBoss ;P

 

Ops!. Hehe

é que eu fui testa mas eu não gosto de coloca para ler o nome da janela então coloquei função para ler logo o processo e a função utiliza esta user!!

[shutdowns 0]

Olá,

Bom pessoal, vou tentar explicar melhor oque eu quero, tipo assim olha esse tutorial : http://www.webcheats.com.br/forum/delphi-vb/355457-tutorial-delphi-programa-de-envio-de-emails.html

Eu quero que no edit, quero que apareça oque está sendo escrita numa determinada address. Como eu ja disse acima, não sei se o código passado por vc dragon funciona ainda não testei, mais não conseguir compreender esse negocio de janela, eu tenho que colocar o nome da janela que ta o address ? e em que parte do código devo colocar a address, e onde devo adicionar esse código ? no edit ?

Espero respostas até mais. :piscadela:

[DragonBoss 9]

ReadProcessMemory(PH,pointer($0063FDEC), @dat,100,read);

 

na parte vermelha... =P

 

olha, você pegou esse address de algum programa (ou jogo) né ? então... você tem que determinar de onde ele vai ler o address, como no exemplo que falei:

 

H := FindWindow(nil, 'tibia');

Aqui seria o nome da janela, por exemplo o tibia (no titulo da janela está 'tibia').

 

H := FindWindow('tibiaclient', nil);

esse segundo, é a classe da janela, o tibia pode ser encontrado pela classe 'tibiaclient'.

 

o codigo funciona, testei aqui antes de postar pra encontrar o nome do character no tibia...

 

OBS: você pode usar o código em um TIMER.

 

OBS²: no fim do meu code, ele passa o valor pra uma label, você só precisa alterar pra um edit....

 

muda de:

label1.Caption :=String(dat);

para:

edit1.text :=String(dat);

 

 

flw, abraçs

[shutdowns 0]

Olá,

Man não funcinou, eu fiz o seguinte, antes de testar o código com o programa de e-mails resolvir testar com um qualquer, com a form apenas adicionei um edite e o timer, deis dois clique no timer e adicionei o código passado acima, ai comecei a editar troquei a address troquei o negocio com o nome da janela o negocio da classe da janela eu não intendi e deixei em branco, deve ser essa uma das causas, em seguinda troquei o nome label por edit, na hora de compilar deu erro nas variaveis do código, ai pensei aham deve ser para colocar elas como variaveis globais, então coloquei elas como variaveis globais, ai eu complilei e foi tudo bacana mais na hora de testar o edit não aparecia, não aparecia nada apenas o form, vc sabe me dizer o porque do problema ???

Até mais. :emo:

[DragonBoss 9]

o.0'

tenta fazer o projeto de novo...

 

obs: as variaveis nao precisam ser globais... '-'

 

OBS2: testa o code com algo simples, como uma escrita no pimball...(ou com outro programa seu mesmo... ae vc vai saber o que colocar como caption no code) ae vc ve como funciona, e testa em um jogo mais complexo...

 

OBS3: veja se o address ta certo =P.

 

Mais uma OBS: ali vc pode usar o nome da janela OU a classe...se kiser, pode usar os dois, mas nao eh necessario...

 

 

flw, abraçs