[Руководство] "Эмулятор нажатий клавиш" или "Один поток и пара Процедур"

[zaparca]

Здесь находится руководство по созданию своей программы выложеной в теме [Помогите!] Эмулятор нажатий клавиш!

Thread-поток в котором все происходит

***
type

  TName = class(TThread) // TName - название потока лучше написать своё 
  private
    { Private declarations }
  protected
    procedure DoWork;
    procedure Execute; override;
  end;
...  
var
  Name: TName;
...  
procedure TForm1.Button1Click(Sender: TObject); // события нашей кнопки
begin
  if Button1.Caption = 'Stop' then // если кнопка называлась 'Stop' 
  begin
    Name.Terminate;                // отключаем поток  
    Button1.Caption := 'Start';    // называем кнопку 'Start'
    Exit;                          // выход из процедуры 
  end;
  Name:= TName.Create(False);      // создаем поток
  Name.Priority := tpLower;        // устанавливаем приоритет в данном случае низкий
  Button1.Caption := 'Stop';       // называем кнопку 'Stop'
end;
...
procedure TName.Execute;
begin
  while not Terminated do
    Synchronize(DoWork);
end;
...
procedure TName.DoWork;
begin
  // тут пишем код который будет работать в потоке
end;
***

SendKeys-процедура нажатия клавиш

*** // копируем как есть
procedure SimulateKeyDown(Key: byte);
begin
  keybd_event(Key, 0, 0, 0);
end;

procedure SimulateKeyUp(Key: byte);
begin
  keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

procedure SimulateKeystroke(Key: byte; extra: DWORD);
begin
  keybd_event(Key, extra, 0, 0);
  keybd_event(Key, extra, KEYEVENTF_KEYUP, 0);
end;

procedure SendKeys(s: string);
var
  i: integer;
  flag: bool;
  w: word;
begin
  {Get the state of the caps lock key}
  flag := not GetKeyState(VK_CAPITAL) and 1 = 0;
  {If the caps lock key is on then turn it off}
  if flag then
    SimulateKeystroke(VK_CAPITAL, 0);
  for i := 1 to Length(s) do
  begin
    w := VkKeyScan(s[i]);
    {If there is not an error in the key translation}
    if ((HiByte(w) <> $FF) and (LoByte(w) <> $FF)) then
    begin
      {If the key requires the shift key down - hold it down}
      if HiByte(w) and 1 = 1 then
        SimulateKeyDown(VK_SHIFT);
      {Send the VK_KEY}
      SimulateKeystroke(LoByte(w), 0);
      {If the key required the shift key down - release it}
      if HiByte(w) and 1 = 1 then
        SimulateKeyUp(VK_SHIFT);
    end;
  end;
  {if the caps lock key was on at start, turn it back on}
  if flag then
    SimulateKeystroke(VK_CAPITAL, 0);
end;
***// так как сам еще не разбирался

процедура в потоке

***
procedure TName.DoWork;    // собственно поток
var
  K: Integer;              // время паузы в секундах
  Key: string;             // клавиша
  pa1: ttime;              // системное время
begin
  Key := (Form1.Edit1.Text);         // получаем клавишу из Edit1 
  K := StrToInt(Form1.Edit2.Text);   // получаем секунды из Edit2
  if Form1.CheckBox1.Checked = true then   // проверяем CheckBox1 на галку )
  begin
    SendKeys(Key);                   // отправляем клавишу из Edit1 в SendKeys  
    Application.ProcessMessages;
  end;
  pa1 := (K * 1.1574074074074074074074074074074E-5) + time; //вычисляем время задержки точно 
  repeat                                  // если не равно     
    application.processmessages;
    sleep(10);                            // спим ) 
  until time >= pa1;                      // проверяем         
  Application.ProcessMessages;
end;
***

собственно сам листинг прораммы

[Ссылки могут видеть только зарегистрированные пользователи. ]

В: Почему картинка?
О: [Ссылки могут видеть только зарегистрированные пользователи. ]

[Dinmaite]

Собственно... А простите что за бред?
Чего ради создавать поток, если все что мы в нем делаем это вызываем процедуру DoWork в основном потоке приложения?
Да и вообще... я прозреваю, я всегда полагал, что удобнее пользоваться сообщениями Windows - WM_CHAR и WM_KeyDown\WM_KeyUp, но теперь я вижу, что keybd_event реально лучше приспособлена для того, чтобы кроме вашего приложения ничем на компьютере нельзя было заняться.

PS Почему картинка?
PPS Пиво я конечно люблю, но почему картинка?

[zaparca]

Цитата: Сообщение от Dinmaite Собственно... А простите что за бред? Чего ради создавать поток, если все что мы в нем делаем это вызываем процедуру DoWork в основном потоке приложения?

ну я еще пока сам учусь. ПОТОКИ: я у Вас спрашивал как Вы создаёте, но Вы отказались продемонстрировать пример ...

Цитата: Сообщение от Dinmaite Да и вообще... я прозреваю, я всегда полагал, что удобнее пользоваться сообщениями Windows - WM_CHAR и WM_KeyDown\WM_KeyUp, но теперь я вижу, что keybd_event реально лучше приспособлена для того, чтобы кроме вашего приложения ничем на компьютере нельзя было заняться.

Цитата: Сообщение от Iufy*fjvklJw789 Эмулятор нажатий клавиш! два чекбокса 2 бутона 1 чек бокс (цифры 1-0)второй чек бокс тоже самое эмитируют нажатие клавиш 1 чек бокс нажимиаеться 1 раз потом чек бокс второй раз но с перерывом по 3сек тоисть получается так напримерпервый чек бокс у нас 1 второй - 3(1 (три секунды ждем)3,1)(три секунды ждем)3(и т.д.пока не остоновим))1 бутон останавливает все это дело(допустим нажимаем шифт у нас останавливается все это дело) второй бутон(старт допустим ctrl) помогите с написанием...алгоритм есть, а знания.... с менея спс

в теме и не требовалось заниматся чем то еще

Цитата: Сообщение от Dinmaite PS Почему картинка? PPS Пиво я конечно люблю, но почему картинка?

я не пью здоровье не позволяет
а картинка для того чтоб просто не копировали текст и вставляли готовый код а писали сами и не ленились ...

[Dinmaite]

Цитата: Сообщение от zaparca ПОТОКИ: я у Вас спрашивал как Вы создаёте, но Вы отказались продемонстрировать пример ...

Я не обязан предоставлять примеры, а Вы, при создании обучающего материала, должны были бы хотя бы знать о чем пишете.