Показать сообщение отдельно
  #5  
Старый 12.07.2011, 17:51
antikiler antikiler вне форума
Прохожий
 
Регистрация: 16.03.2011
Сообщения: 23
Репутация: 24
По умолчанию

Цитата:
Сообщение от Умный_Хмырь
Привет, надеюсь ты специалист который может мне помочь!
Я не специалист, но попробую...
Цитата:
Умоляю помогите мне! Хочу сделать типо флудера!
Вообщем так, то зачем ты хочешь это использовать лучше делать через 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;
При этом есть следующие особенности. Язык ввод только английский. Следить за регистром на клаве.
Ответить с цитированием