[Ссылки могут видеть только зарегистрированные пользователи. ]
Возможно ли этот автокликер переделать под win7?
Он очень удобный и простой на мой взгляд но на win7 не пашет.
Как это сделать и поподробнее
Алгоритм:
- узнаем и записываем положение курсора или задаешь вручную.
Цитата:
var m:TPoint;
begin
if getasynckeystate($04)<>0 then //если нажат скроллер
begin
m:=Mouse.CursorPos;
ListBox1.Items.Add(inttostr(m.X));
ListBox2.Items.Add(inttostr(m.Y));
ListBox3.Items.Add(<Переменная с времинем повтора>:=<Переменная с времинем повтора>*1000{переводим в секунды});
end;
end;
- запуск автокликера
Цитата:
var i,j:integer;
begin
n:=strtoint(Edit3.Text); {n - это число повторов; например: 20 раз повторить список из ListBox}
for i:=1 to n do
begin
for j:=0 to ListBox1.Items.Count-1 do {выполнения всего списка команд из ListBox}
begin
x:=strtoint(ListBox1.Items[j]);
y:=strtoint(ListBox2.Items[j]);
t:=strtoint(ListBox3.Items[j]);
Pos.X:=x;
Pos.Y:=y;
Mouse.CursorPos:=pos; //перемещаем курсор в нужные координаты
//1 нажатие левой кнопки мыши
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, Pos.X, Pos.Y, 0, 0); //нажатие
Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, Pos.X, Pos.Y, 0, 0); //отпускание
Sleep(t);
end;
end;
end;
- остановка делается аналогично запуску.
Если что то не понятно, пиши объясню.
Последний раз редактировалось vim.adm; 17.03.2012 в 06:11.
лично на своем опыте проверил, что автокликер легче написать с 0 чем копаться в чужом коде, получается во первых быстрее во вторых получаешь хоть какие то полезные знания ^^