[Умный_Хмырь]

Привет, надеюсь ты специалист который может мне помочь!

Вот Часть программы которая нажимает и отжимает клавишу А

Код:

keybd_event(ord('A'),0, 0, 0); 
sleep(400); 
keybd_event(ord('A'),0, KEYEVENTF_KEYUP, 0); 

Но проблема такая: эта прога нажимает только по 1 кнопки-букве!
Как сделать чтобы печатался текст который я укожу в окне (например edit1)? Умоляю помогите мне! Возможно кто то это уже спрашивал(если да пришлите ссылку)

Хочу сделать типо флудера!

[PhoeniX]

А последовательно в цикле нажимать нужные клавиши религия не позволяет?
Написать текст большими буквами как-то позволила...

[antikiler]

Сообщение от Умный_Хмырь

Привет, надеюсь ты специалист который может мне помочь!

Я не специалист, но попробую...

Умоляю помогите мне! Хочу сделать типо флудера!

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

Код:

str2 := UpperCase (Edit1.Text); // str2 : string;
 for i:=1  to Length(str2) do
    begin                                          
       str := str2[i]  ;                          // str : char
       key := ord(str);                      // key : byte
       keybd_event(key, 0, 0, 0);
       keybd_event(key, 0, KEYEVENTF_KEYUP, 0);
       sleep(500);
    end;

При этом есть следующие особенности. Язык ввод только английский. Следить за регистром на клаве.

[M.A.D.M.A.N.]

Код:

  for i := 1 to Length(s) do
  begin
    keybd_event(ord(s[i]),0, 0, 0); 
    sleep(400); 
    keybd_event(ord(s[i]),0, KEYEVENTF_KEYUP, 0);
  end;

[Страдалецъ]

Вот только неправильно все это будет работать, т.к. во первых нужен виртульный код клавиши а не Ord(...), во вторых, имитация ввода должна включать в себя и обработку перевода в верхний регистр букв и переход на другой язык. Все не так просто, как кажется.