Помогите с имитацией движения мышки

[Koneru]

Именно движения нажатие уже получилось, есть код на VB проги шутки с перемешением и нажатием кнопок мыши но я полный 0 в VB если будет нужен могу скинуть

[Koneru]

program madmouse;
uses Windows; // Больше нам ничего и не надо
var
  arrI: array [0..3] of TInput; //Массив для событий
  n: Integer = 0; // количество используемых элементов массива
  desk_dc: HDC;
  desk_wnd: HWND;
  screen_width, screen_height: Integer; // размеры экрана
  screen_width_factor, screen_height_factor: Integer; // коэффициенты преобразований
  
procedure PressEnter;
var K: array [0..1] of TInput;
begin
  ZeroMemory(@K, SizeOf(TInput)*2);
  K[0].Itype := INPUT_KEYBOARD;
  K[0].ki.wVk := VK_RETURN;
  K[1].Itype := INPUT_KEYBOARD;
  K[1].ki.wVk := VK_RETURN;
  K[1].ki.dwFlags := KEYEVENTF_KEYUP;
  SendInput(2,K[0],SizeOf(TInput));
end;

begin
  if MessageBox(0,'Одумайся! Ты запускаешь программу Mad Mouse!' +
                    #13#10 + 'Если что - жми <ESC>',
                    'Последнее предупреждение',
                    MB_OKCANCEL or MB_DEFBUTTON2) = IDCANCEL
                    then ExitProcess(0);

  desk_wnd := GetDesktopWindow; // получаем хэндл окна экрана
	desk_dc := GetWindowDC(desk_wnd); // получаем контекст экрана
  screen_width := GetDeviceCaps(desk_dc,HORZRES); // получаем рамеры экрана
  screen_height := GetDeviceCaps(desk_dc,VERTRES);
  screen_width_factor := 65535 div screen_width; // считаем коэффициенты для
	screen_height_factor := 65535 div screen_height; // преобразований
  ReleaseDC(desk_wnd, desk_dc); // Обязательно освобождаем контекст экрана

  ZeroMemory(@arrI, SizeOf(TInput) * 4); // Обнуляем весь массив
  // Подготавливаем постоянные элементы массива
  arrI[0].Itype := INPUT_MOUSE;
  arrI[1].Itype := INPUT_MOUSE;
  arrI[2].Itype := INPUT_MOUSE;
  arrI[3].Itype := INPUT_MOUSE;

  Randomize;

repeat
  arrI[0].mi.dx := Random(screen_width) * screen_width_factor;
  arrI[0].mi.dy := Random(screen_height) * screen_height_factor;
  n := 0;
  case Random(6) of
  0: // Просто двигаем мышу
    begin
      n := 1;
      arrI[0].mi.dwFlags := MOUSEEVENTF_MOVE
                            or MOUSEEVENTF_ABSOLUTE;
    end;
  1: // Левый клик
    begin
      n := 2;
      arrI[0].mi.dwFlags := MOUSEEVENTF_MOVE
                            or MOUSEEVENTF_ABSOLUTE
                            or MOUSEEVENTF_LEFTDOWN;
      arrI[1].mi.dwFlags := MOUSEEVENTF_LEFTUP;
    end;
  2: // Правый клик
    begin
      n := 2;
      arrI[0].mi.dwFlags := MOUSEEVENTF_MOVE
                            or MOUSEEVENTF_ABSOLUTE
                            or MOUSEEVENTF_RIGHTDOWN;
      arrI[1].mi.dwFlags := MOUSEEVENTF_RIGHTUP;
    end;
  3: // Двойной клик   }
    begin
      n := 4;
      arrI[0].mi.dwFlags := MOUSEEVENTF_MOVE
                            or MOUSEEVENTF_ABSOLUTE
                            or MOUSEEVENTF_LEFTDOWN;
      arrI[1].mi.dwFlags := MOUSEEVENTF_LEFTUP;
      arrI[2].mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
      arrI[3].mi.dwFlags := MOUSEEVENTF_LEFTUP;
    end;
  4: // Drag`n`drop
    begin
      n := 3;
      arrI[0].mi.dwFlags := MOUSEEVENTF_MOVE
                            or MOUSEEVENTF_ABSOLUTE
                            or MOUSEEVENTF_LEFTDOWN;
      arrI[1].mi.dwFlags := MOUSEEVENTF_MOVE or MOUSEEVENTF_ABSOLUTE;
      arrI[1].mi.dx := Random(screen_width) * screen_width_factor;
      arrI[1].mi.dy := Random(screen_height) * screen_height_factor;
      arrI[2].mi.dwFlags := MOUSEEVENTF_LEFTUP;
    end;
  5: // Нажмем энтер
    begin
      PressEnter;
    end;
  end;
  if n <> 0 then SendInput(n,arrI[0],SizeOf(TInput));
  Sleep(300);
until GetAsyncKeyState(VK_ESCAPE) <> 0;
end.

[Koneru]

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx также вот ссылка но я не понимаю как реализовать это в проге

[Alex11223]

Это Дельфи, а не ВБ.

[Koneru]

Я не знаю не Делфи не ВБ и случайно перепутал))

[Alex11223]

Так там винапи в основном, а не особенности Дельфи. Считайте это псевдокодом.

[Koneru]

Выдели пожалуйста как прописать движение мыши

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

в чем конкретно проблема применения примеров?
функции те же, константы те же.
могу вам еще пример на шарпе для SendInput дать.

[Koneru]

не могу я слишком школьник я слишком мало знаю(( но я это говорю честно чтобы помогли и понимали всю сложность моего положения))

кстати хорошо бы было если не трудно пришли плиз

От модератора, пользуйтесь кнопкой правки, не плодите сообщения подряд.