Три года назад написал шуточную прогу... сейчас она издевается над учениками в информат-классе...
Смысл прост: запускаем прогу, и курсор мыши начинает бегать по экрану, описывая синусоиду.
Весело и просто.
Суть реализации такова... создаете проект, на него располагаете объект Timer1() и швыряете в сорс следующий код...
'-------------------НАЧАЛО ЛИСТИНГА-----------------------------
'////////////Вот моя суперская прога, которая двигает курсор мышки по экрану по синусоиде:
Dim X As Integer
Dim Y As Integer
Dim Func As Long
Dim Direction As Boolean
Dim High As Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Sub Form_Load()
Direction = True
High = 100
X = 1
Y = 100
Me.Hide
End Sub
Private Sub Timer1_Timer()
SetCursorPos X, Y
If (Direction = True) Then X = X + 5
Else
X = X - 5
End If
If (X > 950) And (Direction = True) Then
Direction = False
High = High + 20
End If
If (X < 50) And (Direction = False) Then
Direction = True
High = High + 20
End If
Func = High + Sin(X) * 20
Y = Func
End Sub
'-------------------КОНЕЦ ЛИСТИНГА-----------------------------
Да прибудет с вами счастье... гы...