Манипулятор мышь.

[--=GAMER=--]

Подскажите как узнать положение мышки когда форма не активна, либо свёрнута, либо мышь за её пределами.
Мне подсказывали что тут через API но я в них не разобрался.
Пожалуйста напишите пример.

З.Ы. А Можно ещё примерчик про задание мышки определённых координат?

[GSerg]

getcursorpos
setcursorpos

[Ship]

Код: Выделить всё

Option Explicit


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

        x As Long
        y As Long
       
End Type

Private Sub Timer1_Timer()
Dim curs As POINTAPI

Call GetCursorPos(curs)
Label1.Caption = "X:" & Str(curs.x)
Label2.Caption = "Y:" & Str(curs.y)

End Sub

[--=GAMER=--]

А как назначить мышке координаты?

Большое Человеческое спасибо!!

[Лёха_Virus]

практически то же самое только вместо Get ставь Set

private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

Private Sub Baton_Click()
SetCursorPos 500,500
End Sub