@Noob_help_me_pls

Как сделать программу, которая выводит текст из фала в чат в браузере?

Подскажите как сделать программу, которая выводит заготовленный текст из файла в чат, в браузере.
  • Вопрос задан
  • 130 просмотров
Решения вопроса 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Ставишь фокус в чат и отправляешь со стороны программы нажатия клавиш - симуляция нажатия.
Clipbrd.AsText := 'Hello';

keybd_event(Ord('H'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('H'), 0, KEYEVENTF_KEYUP, 0);

keybd_event(Ord('e'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('e'), 0, KEYEVENTF_KEYUP, 0);

keybd_event(Ord('l'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('l'), 0, KEYEVENTF_KEYUP, 0);

keybd_event(Ord('l'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('l'), 0, KEYEVENTF_KEYUP, 0);

keybd_event(Ord('o'), 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('o'), 0, KEYEVENTF_KEYUP, 0);

keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);

Будет написано слово "Hello" и отправлено симуляцией нажатия Enter

Либо, помещаешь текст в буфер обмена, симулируешь нажатие Ctrl + V и Enter

keybd_event(VK_CTRL, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(Ord('V'), 0, KEYEVENTF_KEYDOWN, 0);

keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CTRL, 0, KEYEVENTF_KEYUP, 0);

keybd_event(VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0);
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
Ответ написан
Комментировать
Пригласить эксперта
Ответы на вопрос 1
@calculator212
всё просто, считываешь текст из файла, а потом заносишь его в чат в браузере.
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы