симулиране на MouseClick

8 отговора 345 прегледа
#1

симулиране на MouseClick

... програмно да замъкна мишката на произволно място на екрана, и да предизвикам Click, без значение върху каква форма и програма е попаднала.

П.П. Забрайх да спомена - VB6

----------------------------------
помислих, хареса ми, помислих пак...

Редактирано от Щиpлиц на

Отговор
в отговор на Щиpлиц #2

Re: симулиране на MouseClick

Виж API функцията SendInput.

Поздрави от Бургас.
Отговор
в отговор на pbourgas #3

Re: симулиране на MouseClick

Виждам, ама всички търсения ме довеждат до MSDN. Място, където до днес не съм успял да изровя нищо от това, което ми е трябвало.

Все пак благодаря. Някакво начало е.

----------------------------------
помислих, хареса ми, помислих пак...
Отговор
в отговор на Щиpлиц #4

Re: симулиране на MouseClick

spored men e krai :)

Отговор
в отговор на Щиpлиц #5

Re: симулиране на MouseClick

А аз в 90% от случаите намирам това което търся за Windows програмиране именно в MSDN.
Функцията SendInput е описана достатъчно добре в там.
Разгледай описанието и ще видиш.

Поздрави от Бургас.
Отговор
в отговор на Щиpлиц #6

Re: симулиране на MouseClick

The mouse_event function synthesizes mouse motion and button clicks.

VOID mouse_event(

DWORD dwFlags, // flags specifying various motion/click variants
DWORD dx, // horizontal mouse position or position change
DWORD dy, // vertical mouse position or position change
DWORD dwData, // amount of wheel movement
DWORD dwExtraInfo // 32 bits of application-defined information
);

Отговор
в отговор на KpyM #7

Re: симулиране на MouseClick

Не знам защо, но това не ми прилича да е на VB6.

Интересува ме в коя библиотека, коя функция, и как се декларира, и своиствата и. Но на VB6.

----------------------------------
помислих, хареса ми, помислих пак...
Отговор
в отговор на Щиpлиц #8

Re: симулиране на MouseClick

[линк]

Отговор
в отговор на Щиpлиц #9

Re: симулиране на MouseClick

a sasto i tova
[линк]

[линк]
mouse_event
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Отговор