Программное нажатие клавиши в чужом приложении

[JetUS]

Сообщение от Der_G()RuNu(h

Пепел Феникса, этот вариант тоже не прокатил...

Ты для начала без сети попробуй всё это передать, локально. А потом уже по сети работай.

[Der_G()RuNu(h]

Сообщение от JetUS

Ты для начала без сети попробуй всё это передать, локально. А потом уже по сети работай.

при чем тут это?

Сообщение от Пепел Феникса

показывайте как делали.

function ASCIItoVK(code: integer): Cardinal;
function ASCIItoVK(code: integer): Cardinal;
begin
  Result:= 0;
  if Code=8 then
    Result:= VK_BACK;
  if Code=9 then
    Result:= VK_TAB;

и так для каждой клавиши, кроме цифр и букв - там вообще непонятно как делать...

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
функция для преобразования символа в вирт-код клавиши

[Der_G()RuNu(h]

Сообщение от Пепел Феникса

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
функция для преобразования символа в вирт-код клавиши

не понял... где она она там? точнее какая?

[Der_G()RuNu(h]

ничего не работает... пробовал и с той функцией...

[Пепел Феникса]

странный вопрос про функцию, там итак она одна...

показывайте весь код эмуляции нажатия клавиши.

[xwicked]

Это ли, не?

...
procedure presskey(key:word);
begin
 keybd_event(key,0,0,0);
end;
procedure releasekey(key:word);
begin
 keybd_event(key,0,KEYEVENTF_KEYUP,0);
end;
procedure clickkey(key:word);
begin
 keybd_event(key,0,0,0);
 keybd_event(key,0,KEYEVENTF_KEYUP,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(handle,'open','calc',nil,nil,SW_RESTORE);
 Sleep(1000);
 clickkey(VK_MENU);
 Sleep(1000);
 clickkey(VK_RIGHT);
 Sleep(1000);
 clickkey(VK_DOWN);
 Sleep(1000);
 clickkey(VK_DOWN);
 Sleep(1000);
 clickkey(VK_RETURN);
 Sleep(1000);
 clickkey(VK_NUMPAD9);
 Sleep(1000);
 clickkey(VK_NUMPAD9);...

С Word'ом делал аналогично - даже регистр чётко работает

[Пепел Феникса]

почти оно, но у вас не реализовано для букв.

[xwicked]

...
procedure presskey(key:word);
begin
 keybd_event(key,0,0,0);
end;
procedure releasekey(key:word);
begin
 keybd_event(key,0,KEYEVENTF_KEYUP,0);
end;
procedure clickkey(key:word);
begin
 keybd_event(key,0,0,0);
 keybd_event(key,0,KEYEVENTF_KEYUP,0);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 clickkey(VK_RETURN);
end;

procedure sword(s:string);
var i:integer;
begin
 for i:=1 to length(s) do
  begin
   if i= 1 then
    begin
     Sleep(500);
     presskey(VK_SHIFT);
    end
    else
    releasekey(VK_SHIFT);
   Sleep(500);
   clickkey(ord(s[i]));
  end;
end;

procedure down(i:integer);
begin
 for i:=1 to i do
  begin
   Sleep(500);
   clickkey(VK_DOWN);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Sleep(500);
 ShellExecute(handle,nil,'winword.exe',nil,nil,SW_RESTORE);
 Sleep(500);
 sword('DBHEC DBHEC DBHEC DBHEC DBHEC DBHEC DBHEC DBHEC DBHEC DBHEC DBHEC');
 Sleep(500);
 clickkey(VK_RETURN);
 Sleep(500);
 presskey(VK_MENU);
 Sleep(500);
 clickkey(VK_SHIFT);
 Sleep(500);
 releasekey(VK_MENU);
 sword('IF SAVE THEN BORODA');
 presskey(VK_MENU);
 Sleep(500);
 clickkey(VK_F4);
 Sleep(500);...

Если нужно - прикреплю все примеры архивом.

[Der_G()RuNu(h]

Сообщение от Пепел Феникса

показывайте весь код эмуляции нажатия клавиши.

function ASCIItoVK(code: integer): Cardinal;
begin
  Result:= 0;
  if Code=8 then
    Result:= VK_BACK;
  if Code=9 then
    Result:= VK_TAB;
  if Code=13 then
    Result:= VK_RETURN;
  if Code=16 then
    Result:= VK_SHIFT;
  if Code=17 then
    Result:= VK_CONTROL;
  if Code=18 then
    Result:= VK_MENU;
  if Code=19 then
    Result:= VK_PAUSE;
  if Code=20 then
    Result:= VK_CAPITAL;
  if Code=27 then
    Result:= VK_ESCAPE;
  if Code=32 then
    Result:= VK_SPACE;
  if Code=33 then
    Result:= VK_PRIOR;
  if Code=34 then
    Result:= VK_NEXT;
.....
procedure TMainForm.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  strText: string;
  width, height, i: integer;
  dc: HDC;
  xx,yy: integer;
  Pt: TPoint;
  f: TextFile;
  key: integer;
  ch: char;
  Inp: TInput;
  //s: string;
begin
 Inp.Itype:= INPUT_KEYBOARD;
      Inp.ki.wVk:= MapVirtualKey(key, 0);
      Inp.ki.dwFlags:= 0;
      SendInput(1, Inp, SizeOf(Inp));
      Inp.Itype:= INPUT_KEYBOARD;
      Inp.ki.wVk:= MapVirtualKey(key, 0);
      Inp.ki.dwFlags:= KEYEVENTF_KEYUP;