Движения нажатие мыши (Эмуляция)

[РенатZ]

Дорогие специалисты своего дела у меня к вам просьба укажите на мои ошибки в коде!

Автокликер:
Перерыл весь форум и инет в течение недели ничего ненашел надеюсь только на вашу помощь

1) Получаю координаты мыши при нажатие левой кнопки мыши и записываю в Memo1,Memo2

// Получаю Кординаты мыши
procedure TForm1.Timer3Timer(Sender: TObject);
var
  rPos: TPoint;
begin
  GetCursorPos(rPos);

  // отлов нажатие левой кнопки мыши
  if GetAsyncKeyState(VK_LButton) <> 0 then
  begin
  Memo1.Lines.Add(IntToStr(rPos.x));
  Memo2.Lines.Add(IntToStr(rPos.y));


  end;
end;

2) Получаю координаты из Memo1,Memo2 в Edit3,Edit2 И воспроизвожу (кликает не в том месте либо раньше или вообще не кликает)

 // управление мышью
procedure TForm1.Timer2Timer(Sender: TObject);
var
  Point: TPoint;
begin

  if Timer2.Tag >= Memo2.Lines.Count then
    Timer2.Tag := 0;
  Edit2.Text := Memo2.Lines.Strings[Timer2.Tag];
  Timer2.Tag := Timer2.Tag + 1;

  if Timer2.Tag >= Memo1.Lines.Count then
    Timer2.Tag := 0;
  Edit3.Text := Memo1.Lines.Strings[Timer2.Tag];
   Timer2.Tag := Timer2.Tag + 1;

  point.x:=StrToInt(Edit3.Text);
  point.y:=StrToInt(Edit2.Text);

       //Преобразуем Pointк аболютным координатам курсора мышки
  Point.x := Round(Point.x * (65535 / Screen.Width));
  Point.y := Round(Point.y * (65535 / Screen.Height));
 
 //Переместим курсор мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, Point.x, Point.y, 0, 0);
 
 //Имитируем нажатие левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Point.x, Point.y, 0, 0);
 
 //Имитируем отпускание левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Point.x, Point.y, 0, 0);

  // application.ProcessMessages;

end;

[Человек_Борща]

1. Для ловли "тыков" мышки используем глобальный хук мыши.
Причина:
1. безотказная работа и скорость


2. Используйте класс Tlist и храните в нём свои TPoint в оторых записываете координаты x и y нажатия на экране..
Причина:
TList являет собой макрос который содержит список TPoint переменных, в которые пишутся x и y кликов мышки.
Его очень удобно использовать....
И не надо тоскать геморные mrmo

 
if Timer2.Tag >= Memo1.Lines.Count then

:facepalm:

[РенатZ]

Сообщение от Человек_Борща

1. Для ловли "тыков" мышки используем глобальный хук мыши, таймер в совокупности с GetAsyncState даёт пропусти и баги.
2. Используйте класс Tlist и храните в нём свои TPoint в оторых записываете координаты x и y нажатия на экране..
Без всяких memo1 и того бреда:

 if Timer2.Tag >= Memo1.Lines.Count then

который в коде...

Накидай пожалуйста код я за неделю уже ничего не понимаю

[Человек_Борща]

Я тоже=)

1-ый пункт успешно обитает в гугле и во множественных вариациях и реализациях
2-ой в дельфийской справке

[РенатZ]

Сообщение от Человек_Борща

Я тоже=)

1-ый пункт успешно обитает в гугле и во множественных вариациях и реализациях
2-ой в дельфийской справке

Всеровно спасибо буду искать решать следить за этой темой может тут помогут

Люди добрые помогите никак не могу решить проблему(

[Larboss]

Ты хочешь просто автокликер сделать?

[РенатZ]

Сообщение от Larboss

Ты хочешь просто автокликер сделать?

Да эта часть моей программы отвечает за запись и воспроизведения действий мыши Поможешь

Неужели никто не знает как это сделать, или я задаю такой примитивный вопрос что никто не хочет отвечать?

Даже так все ровно тот же результат(((

procedure TForm1.Timer2Timer(Sender: TObject);
var
  Point: TPoint;
begin

  if Timer2.Tag >= Memo2.Lines.Count then
    Timer2.Tag := 0;
  Edit2.Text := Memo2.Lines.Strings[Timer2.Tag];
  Timer2.Tag := Timer2.Tag + 1;

  if Timer2.Tag >= Memo1.Lines.Count then
    Timer2.Tag := 0;
  Edit3.Text := Memo1.Lines.Strings[Timer2.Tag];
  Timer2.Tag := Timer2.Tag + 1;

  Point.x := StrToInt(Edit3.Text);
  Point.y := StrToInt(Edit2.Text);

 setcursorpos (Point.x,Point.y);

 
  // Имитируем нажатие левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0,0,
    0, 0);
   application.ProcessMessages;
  // Имитируем отпускание левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0,
    0);




end;

Объясните тогда как записывать и читать из тхт построчно X.Y Клик мыши!

[Stilet]

записывать и читать из тхт построчно

Используй TStringList. Примеры на форуме есть. LoadFromFile и SaveToFile.
начсет координат - надо знать как ты их в файле размещаешь.

[РенатZ]

Сообщение от Stilet

Используй TStringList. Примеры на форуме есть. LoadFromFile и SaveToFile.
начсет координат - надо знать как ты их в файле размещаешь.

спасибо конечно насчет сохранить открыть я сумею)) Мне нужно в таком формат читать из тхт (x.y тут нажатие кнопки)

// Получаю Кординаты мыши
procedure TForm1.Timer3Timer(Sender: TObject);
var
  rPos: TPoint;
begin
  GetCursorPos(rPos);

  // отлов нажатие левой кнопки мыши
  if GetAsyncKeyState(VK_LButton) <> 0 then
  begin
  Memo1.Lines.Add(IntToStr(rPos.x , rPos.y));

Memo1.Lines.SaveToFile(Имя_файла); // сохранение

  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
  Point: TPoint;

begin


Point := LoadFromFile(Имя_файла); // тут надо загрузить построчно

 
 //Имитируем нажатие левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Point.x, Point.y, 0, 0);
 
 //Имитируем отпускание левой кнопки мыши
  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Point.x, Point.y, 0, 0);

end;

ну типа этого !

[Stilet]

rPos: TPoint;

Забудь о текстовых файлах и используй File of TPoint