Проблемка с SetCursorPos

[XairOn]

Люди добрые помогите пожалуйста с одной проблемкой: мне нужно перемещать курсор мыши программно, как если бы это делал пользователь, как мне заставить курсор плавно перемещаться по экрану? Только мне не нужно, что бы он по диагоналям монитора ездил или что-то в этом духе, это просто, а вот например по окружности можно его пустить?

[GSerg]

Почему нет?
Координаты точки окружносит вычисляются через cos и sin соответственно

[skord]

Поставь таймер, по которому постоянно будет записываться координаты курсора в файл, а затем воспроизводиться. Т.е. сначала записываешь движения, а потом они повторяются прогой. Или так не подойдет?

[XairOn]

Поставь таймер, по которому постоянно будет записываться координаты курсора в файл, а затем воспроизводиться. Т.е. сначала записываешь движения, а потом они повторяются прогой. Или так не подойдет?

Нет так к сожалению не пойдет, прога должна сама решать, как будет двигаться курсор.

[XairOn]

Почему нет?
Координаты точки окружносит вычисляются через cos и sin соответственно

А нельзя ли поподробнее... а то у меня с математикой не очень-то

[EvilCoder]

<DELETED>

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

Function Rad(Grad) As Double 'функция для перевода градусов в радианы
Rad = Grad / 180 * 3.141592654
End Function

Sub Command_Click ()
NullX = 500 ' <- Абсцисса центра окружности
NullY = 200 ' <- Ордината
Radius = 200
For Grad  = 0 To 360 ' <- полный круг
X = NullX + Cos(Rad(Grad)) * Radius
Y = NullY + Sin(Rad(Grad)) * Radius
Sleep 20
SetCurrentPos X,Y
Next
End Sub