[Ololonlo]

Нужно написать простеньку програмку которая нажимает клавишу 2 потом пауза пару мл секунд и одновременно нажимает клавишу мышки и цифру 1,но мышка должна быть не координатов.

Код:

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: Integer;
begin
keybd_event(Ord('2'), MapVirtualKey(Ord('2'), 0), 0, 0);
keybd_event(Ord('2'), MapVirtualKey(Ord('2'), 0), KEYEVENTF_KEYUP, 0);
 
sleep(500) //


keybd_event(Ord('1'), MapVirtualKey(Ord('1'), 0), 0, 0);
keybd_event(Ord('1'), MapVirtualKey(Ord('1'), 0), KEYEVENTF_KEYUP, 0);

  mouse_event(MOUSEEVENTF_LEFTDOWN);
  mouse_event(MOUSEEVENTF_LEFTUP); 

sleep(5) //


end;

Админ: Пользуемся тегами для формления кода!

Что то не так (

[Pyro]

если нетак касается мышки то вот это должно рабоать:

PHP код:

procedure cli(x: Integer = -1; y: Integer = -1);
var
  d: tPoint;
begin
  if (x = -1) or (y = -1) then
    GetCursorPos(d)
  else
    d := Point(x, y);

  d.x := Round(d.x * (65535 / Screen.Width));
  d.y := Round(d.y * (65535 / Screen.Height));

  Mouse_Event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE, d.x, d.y, 0, 0);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
  Mouse_Event(MOUSEEVENTF_MOVE, 0, 0, 0, 0);
  Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
  Mouse_Event(MOUSEEVENTF_MOVE, 0, 0, 0, 0);
end; 


[karinka29]

Помогите мне.. не знаю в чем проблема.. не могу открыть http://www.fan-bieber.com/node/153 этот сайт о шоу бизнесе.. это проблема в виндовсе ?

[ChinYan]

Вы не по адресу, стоило создать новую тему. Сайт открывается, ищите проблему у себя. Не найдете - спросите у специалистов

[alegro29]

а кто то может мне помочь установить программу opengl32 http://best-ptogramm.com/content/hot...ikakih-problem ??

[angvelem]

Может и помогут, когда перестанешь соваться в чужие топики и создавать свои.