Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Как программно эмулировать: а) Щелчок мышью....   Найти похожие ветки 

← →
Никита ©   (2005-01-17 20:06) [0]

Как программно эмулировать:
а) Щелчок мышью
б) Нажатие клавиши на клавиатуре

---

← →
begin...end ©   (2005-01-17 20:07) [1]

> Никита ©   (17.01.05 20:06)

а) mouse_event
б) keybd_event

---

← →
Kerk ©   (2005-01-17 20:08) [2]

begin...end ©   (17.01.05 20:07) [1]
как ты думаешь, почему они поиском по форуму не пользуются?

---

← →
begin...end ©   (2005-01-17 20:09) [3]

> [2] Kerk ©   (17.01.05 20:08)

Не знаю. Я другого понять не могу - почему в последнее время количество вопросов про "эмулирование" резко увеличилось? Не к добру это... Эмуляторы всякие, имитаторы...

---

← →
Kerk ©   (2005-01-17 20:11) [4]

begin...end ©   (17.01.05 20:09) [3]
мда.. точно.

---

← →
Никита ©   (2005-01-17 20:15) [5]

> begin...end ©   (17.01.05 20:07) [1]
> > Никита ©   (17.01.05 20:06)
>
> а) mouse_event
> б) keybd_event

А использовать это как?
Приведи пример.

---

← →
begin...end ©   (2005-01-17 20:18) [6]

> [5] Никита ©   (17.01.05 20:15)

http://delphimaster.net/view/4-1105628978/

---

← →
Никита ©   (2005-01-17 20:21) [7]

> begin...end ©   (17.01.05 20:18) [6]
> > [5] Никита ©   (17.01.05 20:15)
>
> http://delphimaster.net/view/4-1105628978/

Спасибо!

---

← →
Zeqfreed ©   (2005-01-17 20:44) [8]

Вот ещё примерчик... (ну не зря же я писал... выложу хоть)

procedure TForm1.Button1Click(Sender: TObject);
var
buf : array[0..MAX_PATH] of Char;
win_Dir : String;
SUI : TStartUpInfo;
PI : TProcessInformation;
begin
GetWindowsDirectory(buf, MAX_PATH);
win_Dir := StrPas(buf);

FillChar(SUI, SizeOf(SUI), #0);
with SUI do begin
 cb := SizeOf(SUI);
 dwFlags := STARTF_USESHOWWINDOW;
 wShowWindow := SW_SHOWNORMAL;
end;

if not CreateProcess (PChar(win_Dir + "\notepad.exe"), nil, nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, SUI, PI) then Exit;

sleep(150);

keybd_event(VK_SHIFT, 0, KEYEVENTF_EXTENDEDKEY, 0);

keybd_event(82, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(82, 0, KEYEVENTF_KEYUP, 0);

keybd_event(84, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(84, 0, KEYEVENTF_KEYUP, 0);

keybd_event(70, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(70, 0, KEYEVENTF_KEYUP, 0);

keybd_event(77, 0, KEYEVENTF_EXTENDEDKEY, 0);
keybd_event(77, 0, KEYEVENTF_KEYUP, 0);

keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;

---

← →
Kerk ©   (2005-01-17 20:46) [9]

Раз пошла такая пьянка, то и я выложу. :)

program tmhy;

uses Windows;

const
 msg = "hello"+#13+
       "the matrix has got you."+#13+
       #13#13+
       "let me welcome you ladies and gentlemen"+#13+
       "i would like to say hello"+#13+
       "are you ready for some entertainment"+#13+
       "are you ready for a show"+#13#13+
       "kerk";

var
 I: Cardinal;
 Vk: Byte;
begin
 WinExec("notepad.exe",SW_SHOWNORMAL);
 for I := 1 to Length(msg) do
 begin
   Vk := VkKeyScan(msg[I]);
   keybd_event(Vk,0,0,0);
   keybd_event(Vk,0,KEYEVENTF_KEYUP,0);
   Sleep(150);
 end;
end.

---

← →
Vaitek ©   (2005-01-17 23:07) [10]

Блин, я бы вылажил автопилот к Freelancer"у да он не доделан 8-)

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.48 MB
Время: 0.037 c