[Duvida] Script

[~*BewSted*~ 1]

ola pessoal,

 

Bom eu gostaria saber se tem como eu fazer um programa no delphi por exemplo eu tenho script pronto(movimentações com o mouse)

 

por exemplo esse:

 

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

• Entre
• ou
• Cadastre-se

 

Ai gostaria de adicionar um butão (executar) que fazerá esse codico

 

Esse seguinte codico que fiz fazer o mouse clicar com o botão direito e clicar em atualizar.

 

se alguem ajudar eu agradesço ^^ te+

[Lukasmart7 1]

Tem Como Sim... Use Um Timer Deve Funcionar!

[~*BewSted*~ 1]

Tem Como Sim... Use Um Timer Deve Funcionar!

 

Deu certo naum :/

[Lukasmart7 1]

Você Converteu O Código??

[Vator 11]

Use o SetCursorPos e o mouse_event/keyboard_event.

[Ryokusei 28]

Jogue esse texto para um memo e faça o tratamento usando um iterador para ter acesso a cada linha do memo. Então filtre os valores X e Y e utilize-os como desejar.

[Celso Portiolli 0]

códico

fazerá

 

Bom, você quer fazer um arquivo de acordo onde a pessoa clicar?

 

Crie uma variável do tipo TPoint;

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

• Entre
• ou
• Cadastre-se

 

E use essa função:

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

• Entre
• ou
• Cadastre-se

 

Para Salvar, crie uma variável do tipo TStringList e adicione as posições do mouse nela:

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

• Entre
• ou
• Cadastre-se

 

 

Para ler você terá que fazer uma função sua que irá pegar o X e Y, então após pegar esses valores, você usa um SetCursorPos();

[Lukasmart7 1]

Exemplo:

Na Variavel Do Formulario

Lin : Integer;

No Form1 OnCreate

Lin := 0;

 

No Timer1

var

Pn : TPoint;

X : String;

Y : String;

begin

Lin := Lin+1;

X := Memo1.Lines.Strings[Lin];

Y := Memo2.Lines.Strings[Lin];

Pn.X:= StrtoInt(X);

Pn.Y:= StrtoInt(Y);

SetCursorPos(Pn.X, Pn.Y);

end;

Acima Seria 2 Memo Um Para o X E O Outro Para Y , Mais Se Quiser Em Um Memo Só Vai Ficar Assim

var

Pn : TPoint;

X : String;

Y : String;

begin

Lin := Lin+1;

X := Memo1.Lines.Strings[Lin];

Y := Memo1.Lines.Strings[Lin+1];

Pn.X:= StrtoInt(X);

Pn.Y:= StrtoInt(Y);

SetCursorPos(Pn.X, Pn.Y);

end;

Obs:Acima O X Será o Primeiro e O Y O Segundo!

[~*BewSted*~ 1]

Vo tentar lá, e como converte o códico(sou meio noob no delphi)

 

edit: cara não consegui naum...

 

Se tiver alguma apostila ou alguma coisa que posso estudar para coompreender melhor se me passarem ja ajuda bastante :D

 

te+

[luxfer 0]

Entenda o básico de pascal cara.

Procure uma apostila de programação bem básica.

Depois, pesquise as funções:

GetCursorPos() e SetCursorPos()

 

Você também vai ter que dar um jeito de ler o número que vem após o X: e Y:.

Crie uma função que procure pelo "x:"/"y:" e então, pela lógica, leia o número que vem depois desse "x:"/y:"