Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Participe do fórum, é rápido e fácil

Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Movendo o mouse com teclado

Ir para baixo

Movendo o mouse com teclado  Empty Movendo o mouse com teclado

Mensagem por Mr.Positive Qua Jan 12, 2011 4:55 pm

Adicione um timer no seu formulario, deixa o interval dele em 1
no ontimer do seu timer
apague Begin e end
e adicione os segintes códigos

const
Rapidez = 10;
var
Pos: TPoint;
Key: Byte;
begin
for Key:= 8 to 222 do
begin
if GetAsyncKeyState(Key)=-32767 then
begin
GetCursorPos(Pos);
case Key of
//se for pressionada a tecla para a esquerda
37: SetCursorPos(Pos.X-Rapidez, Pos.Y);
//se for pressionada a tecla para cima
38: SetCursorPos(Pos.X, Pos.Y-Rapidez);
//se for pressionada a tecla para a direita
39: SetCursorPos(Pos.X+Rapidez, Pos.Y);
//se for pressionada a tecla para baixo
40: SetCursorPos(Pos.X, Pos.Y+Rapidez);
//se for pressionado ENTER
VK_RETURN:
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;
//se for pressionado SHIFT da direita
VK_RSHIFT:
begin
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
end;
end;
end;
end;
end;
Mr.Positive
Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 29
Localização : Recreio
Humor : Feliz !
Movendo o mouse com teclado  Left_bar_bleue0 / 1000 / 100Movendo o mouse com teclado  Right_bar_bleue



Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos